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

Question

问题是我试图将此电子表格（我已经打开并保存为* .xlsx）另存为* .csv文件，并且遇到对象'_Workbook的错误运行时错误1004方法'SaveAs' '失败。

这是用于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。但是由于某种原因，我不断收到错误“对象'_Workbook'的运行时错误1004方法'SaveAs'失败。”请帮忙！

Answer 1

您的代码似乎可以按原样运行。确认您的U:驱动器映射正确。

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