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

Question

>问题是我正在尝试将此电子表格(我已经打开并另存为 *.xlsx(保存为 *.csv 文件，并且出现错误运行时错误 1004 对象"_Workbook"的方法"SaveAs"失败。

这适用于 Excel 2016。

Dim FilePath as string
FilePath = "U:CAP Data - Every MonthISEAdHoc" & 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'失败。请帮忙！

Answer 1

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

我

能够复制您的代码，它在我这边工作。