
CODE: [Copy to clipboard][ 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 [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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |