小编Arc*_*ana的帖子

我编写了以下代码将 XLSX 文件转换为 CSV 格式：

If WScript.Arguments.Count < 2 Then
    WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
    Wscript.Quit
End If

Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit

当我为 XLSX 文件提供服务器路径时，它工作正常。但是，当我提供本地计算机路径时，它给出以下错误：

找不到文件。检查文件名的拼写，并验证文件位置是否正确。如果您尝试从最近使用的文件列表中打开该文件，请确保该文件未被重命名、移动或删除
代码：800A03EC
来源：Microsoft Office Excel