Read-Only error: Convert all sheets of an xls workbook into separate CSV files

Question

我必须将包含多个工作表的 xls 工作簿转换为 CSV 格式。我使用的编程语言是 VBScript，到目前为止，下面的代码给出了 'cannot access read-only document' 错误。

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"

Answer 1

strPath 从未在您的代码中设置。您的评论说 xls 是工作簿的路径。打开工作簿需要完整的文件说明。

工作表是 Excel.Application 中的 class。使用

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

Read-Only error: Convert all sheets of an xls workbook into separate CSV files

Read-Only error: Convert all sheets of an xls workbook into separate CSV files

csv

vbscript

excel

xls