2

我编写了以下代码将 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

4

3 回答 3

5

如果有类似问题的任何人发现此错误代码似乎是一般的 Excel 错误，这意味着它无法打开文件。

就我而言，我尝试手动打开同一个文件，发现 Excel 想要修复损坏的文件。我被允许用不正确的验证保存它，但它不会以编程方式打开。手动打开它意味着它可以向我显示一个对话框，询问我是否要修复它。

于 2013-09-19T14:58:59.643 回答
4

如果您仍然收到此错误，我将对您的两个论点做一个简单的回应，以确保他们正在做他们应该做的事情

wscript.echo "Arg(0): " & WScript.Arguments.Item(0) & " Arg(1): " & WScript.Arguments.Item(1)

此外，如果您使用 cscript.exe 运行它，默认情况下它将在 c:\windows\system32\ 目录中查找文件

于 2013-05-06T12:55:49.267 回答
0

在我的情况下，相应的消息是“无法设置 PageSetup 类的 PaperSize 属性”。当标准打印机不支持 Excel 工作簿/工作表的页面格式时，就会出现这种情况。

于 2017-07-27T15:11:54.623 回答