Excel 只读错误：将xls工作簿的所有工作表转换为单独的CSV文件

我必须将包含多张工作表的xls工作簿转换为CSV格式。 我使用的编程语言是VBScript，到目前为止，下面的代码给出了一个“无法访问只读文档”错误

Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
'xls is the path to the xls file
WScript.Echo xls
Set oBook = oExcel.Workbooks.Open(xls)

Dim Worksheet
For Each Worksheet in oBook.Sheets
    If oExcel.Application.WorksheetFunction.CountA(Worksheet.Cells) <> 0 Then
        Worksheet.SaveAs strPath & "\" & Worksheet.Name & ".csv", 6
    End If
Next

oBook.Close False
oExcel.Quit
WScript.Echo "Done"

Dim oExcel
设置oExcel=CreateObject（“Excel.Application”）
Dim oBook
'xls是指向xls文件的路径
Echo xls
设置oBook=oExcel.Workbooks.Open（xls）
Dim工作表
对于oBook.Sheets中的每个工作表
如果oExcel.Application.WorksheetFunction.CountA（工作表.Cells）为0，则
Worksheet.SaveAs strPath&“\”和Worksheet.Name&“.csv”，6
如果结束
下一个
好的，关上
oExcel，退出
Echo“完成”

您的代码中从未设置strPath。您的评论说xls是工作簿的路径。它必须是完整的文件规范才能打开工作簿

工作表是Excel.Application中的一个类。使用

Dim oWorksheet 
For Each oWorksheet in oBook.Sheets
    If oExcel.Application.WorksheetFunction.CountA(oWorksheet.Cells) <> 0 Then
        oWorksheet.SaveAs oBook.Path & "\" & oWorksheet.Name & ".csv", 6
    End If
Next

尺寸工作表
对于oBook.Sheets中的每个工作表
如果oExcel.Application.WorksheetFunction.CountA（oWorksheet.Cells）为0，则
oWorksheet.SaveAs oBook.Path&“\”&oWorksheet.Name&“.csv”，6
如果结束
下一个

我曾试图在stackoverflow上找到类似的问题，但它们完全不同，无法解决此问题。谢谢你的帮助！附加信息：工作簿为144MB，不是只读的。您从哪里得到错误？？哪一行？错误发生在第11行