使用VBScript将Excel工作表的范围(部分)导出为CSV

Question

有没有办法用VBScript将每个Excel工作表(在有多个工作表的工作表中(中的一系列单元格导出到CSV？我不需要跳过空白或重新格式化。

我尝试了以下方法。你可以把它复制粘贴到记事本上，然后保存为test.vbs:

Dim oExcel
Dim oBook
Dim oWS

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("c:testtest.xlsx")

For Each oWS In oBook.Sheets  
oWS.Range("A9:B32").copy
oWS.clear
oWS.Range("A9:B32").paste
oWS.Copy  
oExcel.ActiveWorkbook.SaveAs oBook.Path & "" & oBook.name & "_" & oWS.Name & ".csv",6
oExcel.ActiveWorkbook.Close False  
Next 
oBook.Close False
oExcel.Quit
Set oExcel = Nothing

我试图复制单元格区域，清除工作表，然后再次粘贴到工作表中，并将其保存为CSV。上面写着"；错误：对象不支持此属性或方法："oWS.clear">

提前感谢

Answer 1

感谢您的帮助。这是有效的，并给出了我正在寻找/要求的

For Each oWS In oBook.Sheets  
Dim temp 
temp = oWS.Range("A5:BY32").Value
oWS.UsedRange.Clear
oWS.Range("A1:BY29").Value = temp
oWS.Copy  
oExcel.ActiveWorkbook.SaveAs oBook.Path & "" & oBook.name & "_" & oWS.Name & ".csv", outputFormat  
oExcel.ActiveWorkbook.Close False  
Next 

该范围实际上直到列"0"；BY"；。