[英]Excel - "Runtime error '1004' Method 'SaveAs' of Object' _'workbook' Failed" Macbook
Trying to save a sheet as.csv on my desktop via a makro试图通过 makro 在我的桌面上保存一张工作表 as.csv
i keep getting the "Runtime error '1004' Method 'SaveAs' of Object' _'workbook' Failed"我不断收到“运行时错误‘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
I believe the mac file location works something like:我相信 mac 文件位置的工作方式类似于:
Wb.SaveAs "Macintosh HD:Users:thomasduus:Desktop:1.csv"
Your file path is incorrect, possibly the drive is C: so add C: in front and use backslashes.您的文件路径不正确,可能驱动器是 C: 所以在前面添加 C: 并使用反斜杠。 Corrected line:更正的行:
wb.SaveAs Filename:="C:\Users\thomasduus\Desktop\1.csv", FileFormat:=xlCSV, CreateBackup:=False
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.