标题: [WSH]不安装Office也浏览Excel文件 [打印本页]
作者: electronixtar 时间: 2006-8-27 15:38 标题: [WSH]不安装Office也浏览Excel文件
呵呵，在MS的新闻组上看到的，虽然我们平时学习ADO时都知道有怎么个方法，但是关键时候要想起来还是很困难的，让你不用Excel.Application你能想到ADO吗？
示例代码
Dim oADO, oRS, sSQL, sConn
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Ray\SomeExcelFile.xls;Extended Properties=""Excel
8.0;HDR=Yes;IMEX=1"""
sSQL = "SELECT this, that FROM [Sheet2$]"
Set oADO = CreateObject("ADODB.Connection")
oADO.Open sConn
Set oRS = oADO.Execute(sSQL)
If Not oRS.EOF Then WScript.Echo oRS.GetString(2,,",",vbCRLF,"")
oRS.Close : Set oRS = Nothing
oADO.Close : Set oADO = Nothing
[ Last edited by electronixtar on 2006-8-27 at 15:41 ]sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Ray\SomeExcelFile.xls;Extended Properties=""Excel
8.0;HDR=Yes;IMEX=1"""
sSQL = "SELECT this, that FROM [Sheet2$]"
Set oADO = CreateObject("ADODB.Connection")
oADO.Open sConn
Set oRS = oADO.Execute(sSQL)
If Not oRS.EOF Then WScript.Echo oRS.GetString(2,,",",vbCRLF,"")
oRS.Close : Set oRS = Nothing
oADO.Close : Set oADO = Nothing
作者: Kinglion 时间: 2006-8-29 00:18
呵呵。实际上MSDN上有很多类似的代码供大家学习呢。
作者: holyman 时间: 2006-10-25 00:44
可惜没有什么解决实际问题的应用
作者: electronixtar 时间: 2006-10-25 04:40
汗～～还不能解决问题么？几个字节的脚本就能免去几百兆程序的安装呢。
作者: zts59 时间: 2006-10-26 03:29
有查看EXCEL的专用程序，没有几百兆，十兆左右
作者: electronixtar 时间: 2006-10-26 03:36
我这个只有几k呢，稍微修改就能修改Excel内容了