将已打开的 XLS 转换为 CSV答案

【问题标题】：Converting already opened XLS to CSV将已打开的 XLS 转换为 CSV
【发布时间】：2017-10-14 07:36:57
【问题描述】：

我有 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 csv vbscript

【解决方案1】：

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

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

【讨论】：

感谢您这么快的回复！完美运行！