将已打开的XLS转换为CSV

Question

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

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已经打开的文件＆＃34; test.xls＆＃34;在我的电脑上，不同（由我编辑）与保存的版本。这可能吗？

Answer 1

是的，您只需连接现有的Excel实例并将工作簿对象变量设置为等同于已打开的工作簿：

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