如何使用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

Answer 2

如果没有安装 Excel，我无法看到如何更改 Excel 文档。

但是，如果您使用的是 Excel 2007 电子表格 (xslx)，那么您应该能够使用 .NET Framework 的 OpenXML 功能来更新内容，而无需实际安装 Excel。

请查看此处，了解有关 Office OpenXML 的更多信息。