将工作表导出为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:\tmp\test.csv", FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
End Sub

当我提供此位置时：

wbkExport.SaveAs Filename:="C:\tmp\test.csv", FileFormat:=xlCSV

它给了我错误：

Runtime 1004

但是当我将位置更改为：

wbkExport.SaveAs Filename:="C:\Users\username\Desktop\test.csv", FileFormat:=xlCSV

有效！

有谁能告诉我在这种情况下该怎么做？

Answer 1

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