使用 VBA 将电子表格保存为 *.csv 时出现问题

Question

问题是我正在尝试将这个电子表格（我已经打开并保存为 *.xlsx）保存为 *.csv 文件，并且我遇到错误 Runtime error 1004 Method 'SaveAs' of object '_Workbook '失败。

这是针对 Excel 2016 的。

Dim FilePath as string

FilePath = "U:\CAP Data - Every Month\ISEAdHoc\" & FileMonth & FileYear & "\"

Dim ISEAdHoc_FileName_CSV As String

ISEAdHoc_FileName_CSV = "ISEAdHoc_" & FileMonth & "CAP_" & Format(Now(), "YYYYMMDD") & "_" & Format(Now(), "HHMMSS")

Dim FileNameforCSVandPath As String

FileNameforCSVandPath = FilePath & ISEAdHoc_FileName_CSV & ".csv"

Sheets("ISEAdHoc").Activate

'ActiveWorkbook.SaveAs Filename:=FilePath & ISEAdHoc_FileName_CSV, FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Workbooks(FileNameforCSVandPath).Close SaveChanges:=True

我希望将文件保存为 *.csv。但由于某种原因，我不断收到错误“运行时错误 1004 对象 '_Workbook' 的方法 'SaveAs' 失败。”请帮忙！

Answer 1

您的代码似乎可以正常工作。验证您的 U: 驱动器是否正确映射。

我能够复制您的代码并且它对我有用。