将已打开的XLS转换为CSV

我有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与我的电脑上已经打开的文件“test.xls”是不同的（我编辑）与保存的版本。 那可能吗？

Answer 1

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

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