我编写了以下代码将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 来源:
发布于 2013-09-19 14:58:59
如果有类似问题的人发现这一点,错误代码似乎是一个通用Excel错误,这意味着它无法打开该文件。
在我的示例中,我尝试手动打开同一个文件,发现Excel希望修复损坏的文件。我被允许用不正确的验证保存它,但它不会以编程方式打开。手动打开它意味着它可以显示给我一个对话框,询问我是否想修复它。
发布于 2013-05-06 12:55:49
如果您仍然收到此错误,我将对您的两个参数做一个简单的回音,以确保它们正在做的正是他们应该做的事情。
wscript.echo "Arg(0): " & WScript.Arguments.Item(0) & " Arg(1): " & WScript.Arguments.Item(1)
另外,如果您使用cscript.exe运行它,默认情况下它将查找c:\windows\system32 32\目录中的文件
发布于 2017-07-27 15:11:54
在我的例子中,对应的消息是“无法设置PaperSize类的PageSetup属性”。当标准打印机无法使用Excel工作簿/工作表的页格式时发生这种情况。
https://stackoverflow.com/questions/16394165
复制相似问题