已经打开XLS转换成CSV

Question

我有打开XLS文件，并将其导出为CSV VBScript代码，见下图：

Dim oExcel 
Set oExcel = CreateObject("Excel.Application") 
Dim oBook 
Set oBook = oExcel.Workbooks.Open("test.xls") 
oBook.SaveAs "test.csv", 6 
oBook.Close False 
oExcel.Quit 

它工作正常，但我需要做的是相同的 - 转换XLS为CSV与已打开文件“test.xls”在我的电脑上是不同的（由我编辑）与保存的版本。那可能吗？

Answer 1

是的，你只需要Excel的现有实例，并设置工作簿对象变量连接等于已经打开的工作簿，而不是：

Set oExcel = GetObject(, "Excel.Application") 
Set oBook = oExcel.Workbooks("test.xls")