我需要在未安装 Microsoft Office 的 PC 上使用 VBScript 向电子表格中添加一行。
我试过 [ Set objExcel = CreateObject("Excel.Application")
]
由于 PC 上不存在 Excel,我无法创建此对象。
有没有办法在没有 Excel 的情况下修改电子表格?
最佳答案
要使用下面的代码,请在与 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
关于excel - 如何使用 VBScript 修改没有 Excel 的 Excel 电子表格?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/253394/