内存不足工作簿.open（Excel到CSV）

我正在运行下面的脚本将.xls文件转换为.csv，并得到错误。我如何解决这个问题

内存不足工作簿。请打开

如果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，退出
Echo“完成”

xls文件有多大？以？Kbs为单位，只有1500行

 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.Echo "Done"