Excel 将已打开的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”在我的计算机上，这是不同的（由我编辑）和保存的版本。可能吗？

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

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

---

谢谢你这么快的回复！很好用！