vba：將工作簿另存為csv文件

Question

我正在嘗試將使用工作簿對象指定的工作簿保存為csv文件格式，但是存在一些問題。 在下面的代碼中，另存為行之后出現錯誤，說.csv文件是只讀的：

Sub Button1_Click()
    Dim c As Workbook
    Set c = Application.Workbooks.Open(Filename:="C:\Testing\testbook.xlsx", IgnoreReadOnlyRecommended:=True)
    Call sSaveWorkbookAsCSV(c, "C:\Testing")
End Sub

Public Sub WBookToCSV(wkbktosv As Workbook, strOutputFilePath As String)

    Application.DisplayAlerts = False
    Call wkbktosv.SaveAs(strOutputFilePath, xlCSV, CreateBackup:=False)
    Application.DisplayAlerts = True
    Call wkbktosv.Close(SaveChanges:=False)

End Sub

Answer 1

您應該將其更改為：sSaveWorkbookAsCSV（c，“ C：\\ Testing.csv”）