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

我必须将其中有多个工作表的xls工作簿转换为CSV格式。我使用的编程语言是VBScript，到目前为止，下面的代码给出了'无法访问只读文档'的错误。只读错误：将xls工作簿的所有工作表转换为单独的CSV文件

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"

来源

2017-07-07 T.Peisker

我试着找到类似的问题在stackoverflow，但他们都slighlty不同，并不能解决这个问题。谢谢你的帮助！ –

附加信息：工作簿为144MB，不为只读。 –

你从哪里得到错误？哪条线？ –

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

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

来源

2017-07-07 13:18:14 thx1138v2

这一个工程，谢谢！ –

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

回答

相关问题