打开Excel文件时出现错误800a03ec

Question

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

Answer 1

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

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

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

Answer 2

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

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

Answer 3

在我的例子中，相应的消息是“无法设置PageSetup类的PaperSize属性”。 当标准打印机不具备Excel工作簿/工作表的页面格式时，会发生这种情况。