Vbscript 打开Excel文件时获取错误800a03ec

Vbscript 打开Excel文件时获取错误800a03ec,vbscript,Vbscript,我编写了以下代码将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

我编写了以下代码将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
如果WScript.Arguments.Count<2,则
WScript.Echo“错误!请指定源路径和目标。用法:XlsToCsv SourcePath.xls destination.csv”
Wscript.Quit
如果结束
暗色oExcel
设置oExcel=CreateObject(“Excel.Application”)
Dim oBook
设置oBook=oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1),6
好的,关上
oExcel,退出
当我为XLSX文件提供服务器路径时,它工作正常。但是,当我给出本地机器路径时,它给出了以下错误:

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


如果你仍然得到这个错误,我会对你的两个参数做一个简单的回显,以确保他们做的正是他们应该做的

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

另外,如果您正在使用cscript.exe运行它,默认情况下,它将在c:\windows\system32\directory中查找文件。如果有人发现类似问题,则错误代码似乎是Excel的一般错误,这意味着它无法打开该文件


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

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

提交问题或答案之前,请先查看预览。您将“服务器路径”和“本地计算机路径”称为什么?请向我们显示您的命令行。我与MS Office Professional Plus 2010有完全相同的问题,以及如何修改此默认位置?另外,当我将文件复制到这个位置时,我得到了完全相同的错误:DThanks,在我的例子中,它是文件名中的无效字符。