我需要通过VBA/VBS脚本编程,将所有工作表(共4个,我知道它们的名称)以工作表命名的csv文件形式导出到同一文件夹中,而不需要加载Excel并手动运行宏。
理想情况下,脚本应该将源文件路径/文件名.xls和导出文件路径作为命令行参数输入。
我已经阅读了许多用于在Excel内完成此操作的Excel VBA脚本,并且我已经看到了一些用于加载Excel工作簿以导出第一个工作表的脚本。然而,当我尝试将两者混合在一起时,我会得到以下错误:
(1,12) 预期语句结束
理想情况下,脚本应该将源文件路径/文件名.xls和导出文件路径作为命令行参数输入。
我已经阅读了许多用于在Excel内完成此操作的Excel VBA脚本,并且我已经看到了一些用于加载Excel工作簿以导出第一个工作表的脚本。然而,当我尝试将两者混合在一起时,我会得到以下错误:
(1,12) 预期语句结束
Dim source As Workbook
Set source = Application.Workbooks.Open(WScript.Arguments.Item(0), ReadOnly:=True)
For Each sheet In source.Sheets
.SaveAs Filename:= WScript.Arguments.Item(1) & Source.Sheets.Name, FileFormat:=xlCSV
Next sheet
wb.Close