打開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工作簿/工作表的頁面格式時，會發生這種情況。