vba 保存为 CSV答案

【问题标题】：vba to save as CSVvba 保存为 CSV
【发布时间】：2018-09-27 15:40:37
【问题描述】：

我找到了将单张工作表另存为 CSV 的代码。但我收到错误：运行时错误“1004” 无法访问只读文档“MasterCallOneList.CSV”

如何解决？

文档其实是一个不存在的新文档，所以不知道为什么会说文档是只读的。

Application.DisplayAlerts = False

Dim strFullName As String
strFullName = Application.Path + "\MasterOneCallList.CSV"
ThisWorkbook.Sheets("Combined").Copy
ActiveWorkbook.SaveAs Filename:=strFullName, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close

Application.DisplayAlerts = True

【问题讨论】：

只是想一想，如果文档是新文档，strFullName = Application.Path + "\MasterOneCallList.CSV"-可以工作吗？

标签： excel csv export-to-csv vba

【解决方案1】：

可能是由于 application.path 目录中的保护级别。

你试过了吗

Application.DisplayAlerts = False

Dim strFullName As String
strFullName = ThisWorkbook.Path + "\MasterOneCallList.CSV"
ThisWorkbook.Sheets("Combined").Copy
ActiveWorkbook.SaveAs Filename:=strFullName, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close

Application.DisplayAlerts = True

【讨论】：

【解决方案2】：

strFullName = Application.Path + "\MasterOneCallList.CSV"

这可能是错误，路径名是 ms_office excel 文件夹。尝试使用实际的文件夹路径字符串，代码应该可以工作。如果它确实有效，您将不得不想办法获取实际的路径字符串。

    Sub Button1_Click()

    Dim strFullName As String

    Application.DisplayAlerts = False

    strFullName = "C:\Users\dmorrison\Downloads\TestKryztof" + "\MasterOneCallList.CSV"
    ThisWorkbook.Sheets("Combined").Copy
    ActiveWorkbook.SaveAs Filename:=strFullName, FileFormat:=xlCSV, CreateBackup:=True
    ActiveWorkbook.Close

    Application.DisplayAlerts = True
End Sub

【讨论】：