将工作表导出为 csv 文件时出错 - 获取运行时错误 '1004'

Question

我正在使用此代码将工作表作为CSV导出：

Option Explicit
Public Sub ExportWorksheetAndSaveAsCSV()
Dim wbkExport As Workbook
Dim shtToExport As Worksheet
Set shtToExport = ThisWorkbook.Worksheets("Sheet1")  'Sheet to export as CSV
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False      'Possibly overwrite without asking
wbkExport.SaveAs Filename:="C:tmptest.csv", FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
End Sub

当我提供此位置时：

wbkExport.SaveAs Filename:="C:tmptest.csv", FileFormat:=xlCSV

它给了我错误：

Runtime 1004

但是，当我将位置更改为：

wbkExport.SaveAs Filename:="C:UsersusernameDesktoptest.csv", FileFormat:=xlCSV

它有效！

有人可以告诉我在这种情况下该怎么办？

Answer 1

我认为没有C： tmp位置和解决方案，您将创建一个网络驱动器，所有需要的用户也可以访问并保存CSV那里。