Board logo

标题: [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 " 

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 ]
作者: 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内容了