Excel - “对象的运行时错误‘1004’方法‘SaveAs’_‘workbook’失败”Macbook

Question

试图通过 makro 在我的桌面上保存一张工作表 as.csv

我不断收到“运行时错误‘1004’对象‘_‘工作簿’的方法‘另存为’失败”

Sub Export()

Dim wb As Workbook
Dim sht5 As Worksheet
Dim r As Long
Dim LastRow As Long
   
Set sht5 = ThisWorkbook.Worksheets("ExportCsv")               'Sheet to export as CSV
Set wb = Application.Workbooks.Add
    
sht5.Copy Before:=wb.Worksheets(wb.Worksheets.Count)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For r = LastRow To 1 Step -1

If Cells(r, 10) = 0 Then

Rows(r).Delete

End If
        
Next r

Application.DisplayAlerts = False                             'Possibly overwrite without asking
wb.SaveAs Filename:="/Users/thomasduus/Desktop/1.csv", FileFormat:=xlCSV, CreateBackup:=False

Application.DisplayAlerts = True
wb.Close SaveChanges:=False
End Sub

Answer 1

我相信 mac 文件位置的工作方式类似于：

Wb.SaveAs "Macintosh HD:Users:thomasduus:Desktop:1.csv"

Answer 2

您的文件路径不正确，可能驱动器是 C: 所以在前面添加 C: 并使用反斜杠。 更正的行：

wb.SaveAs Filename:="C:\Users\thomasduus\Desktop\1.csv", FileFormat:=xlCSV, CreateBackup:=False