在 VBA 中将 Excel 工作簿转换为 CSV

Question

我在将 Excel 工作簿转换为 CSV 的 VBA 脚本中出现错误。 VBA 脚本通过 Microsoft Word VBA 脚本运行。

Private Sub CommandButton1_Click()

Dim objExcel As New Excel.Application
Dim wb_xl As Excel.Workbook
Dim wb As Excel.Worksheet

Set wb_xl = objExcel.Workbooks.Open("O:\documents\folder.xlsx")
wb_xl.SaveAs FileName:="O:\documents\folder.csv", FileFormat:=xlCSV
Set wb = objExcel.Workbooks.Open("O:\documents\folder.csv")
wb_xl.Close savechanges:=False

End Sub

这看起来很简单，正在生成 CSV，但我收到一个错误：

运行时错误“1004”：无法访问“folder.csv”

错误在第 8 行 (wb_xl.SaveAs...)。

Answer 1

Dim objExcel As New Excel.Application

如果这现在没有造成任何问题，那将是以后的问题。拆分声明和赋值，一般避免自动实例化对象，尤其是在创建时会产生外部进程的对象。

Dim objExcel As Excel.Application
Set objExcel = New Excel.Application

...完成后不要忘记.Quit该实例：

'...
objExcel.Quit

现在，错误 1004。

wb_xl.SaveAs FileName:="O:\documents\folder.csv", FileFormat:=xlCSV

这看起来很简单，正在生成 CSV

不合格的xlCSV 常量没什么大不了的，但请记住，它只有在引用了Excel 库时才有效；考虑对其进行限定：

wb_xl.SaveAs FileName:="O:\documents\folder.csv", FileFormat:=Excel.xlCSV

如果正在生成 CSV，则 SaveAs 调用有效，失败的语句将是以下语句：

Set wb = objExcel.Workbooks.Open("O:\documents\folder.csv")

你不能Open那个文件，它已经打开了——这就是为什么语句会抛出错误1004：如果你在Excel UI中用.xlsm文件尝试过，你会得到更详细的错误消息：

但错误信息与 .csv 文件不同：

我在即时窗格中输入此错误消息，并打开了一个新的空白工作簿：

ThisWorkbook.SaveAs "C:\Dev\test123.csv", xlCSV
Set b = Workbooks.Open("C:\Dev\VBA\test123.csv")

我认为这正是您遇到的错误。

删除wb，您不需要它（注意：如果Open 成功，分配将引发类型不匹配错误，因为您不能分配@987654338 @object 到 Worksheet 引用；Dim wb As Excel.Worksheet 看起来不对）。也去掉Workbooks.Open操作，CSV已经打开了。

换句话说：

Private Sub CommandButton1_Click()

    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application

    Dim wb As Excel.Worksheet
    Set wb = xlApp.Workbooks.Open("O:\documents\folder.xlsx")

    wb.SaveAs FileName:="O:\documents\folder.csv", FileFormat:=Excel.xlCSV
    wb.Close savechanges:=False

    xlApp.Quit

End Sub