呵呵，在MS的新闻组上看到的，虽然我们平时学习ADO时都知道有怎么个方法，但是关键时候要想起来还是很困难的，让你不用Excel.Application你能想到ADO吗？
示例代码
[ Last edited by electronixtar on 2006-8-27 at 15:41 ]
示例代码
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 ]
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| redtek | +2 | 2006-10-25 01:52 |
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
