vba：将工作簿保存为csv文件

我试图保存一个工作簿指定使用工作簿对象作为文件格式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”）