読み取り専用エラー：xlsブックのすべてのシートを別々のCSVファイルに変換します。

Question

複数のシートを含む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" 

Answer 1

strPathはコードに設定されません。あなたのコメントは、xlsはブックへのパスだと言います。ブックを開くには完全なファイル指定が必要です。

ワークシートはExcel.Applicationのクラスです。使用