excel - 如何使用 VBScript 修改没有 Excel 的 Excel 电子表格？

Question

我需要在未安装 Microsoft Office 的 PC 上使用 VBScript 向电子表格中添加一行。

我试过 [ Set objExcel = CreateObject("Excel.Application") ]

由于 PC 上不存在 Excel，我无法创建此对象。

有没有办法在没有 Excel 的情况下修改电子表格？

Answer 1

要使用下面的代码，请在与 vbscript 文件相同的文件夹中创建一个名为“Test.xls”的 Excel 工作簿。

在 Test.xls 中，在单元格 A1 到 B4 中输入以下数据:

First   Last
Joe     Smith
Mary    Jones
Sam     Nelson

将下面的 vbscript 代码粘贴到 .vbs 文件中:

Const adOpenStatic = 3
Const adLockOptimistic = 3

filename = "Test.xls"
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filename & _
        ";Extended Properties=Excel 8.0"

query = "Select * from [Sheet1$A1:B65535]"
Set rs = CreateObject("ADODB.Recordset")
rs.Open query, cn, adOpenStatic, adLockOptimistic

rs.AddNew
rs("First") = "George"
rs("Last") = "Washington"
rs.Update

rs.MoveFirst
Do Until rs.EOF
  WScript.Echo rs.Fields("First") & " " & rs.Fields("Last")
  rs.MoveNext
Loop

在命令提示符处，键入:

CSCRIPT Yourfile.vbs

它将在电子表格中添加一个名称，然后写出所有名称。

Joe Smith
Mary Jones
Sam Nelson
George Washington