怎么用ADO打开EXCEL文件，谢谢

Question

Conn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _ 
   　　　　　　　　　 "DriverId=790;" & _ 
   　　　　　　　　　 "Dbq=c:\somepath\mySpreadsheet.xls;" & _ 
   　　　　　　　　　 "DefaultDir=c:\somepath;"

Answer 1

楼上是使用ODBC.
用Jet引擎：
Dim oConn As New ADODB.Connection
With oConn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties").Value = "Excel 8.0"
    .Open "C:\Book1.xls"
'......
End With

Answer 2

使用ADO打开方法为：
Dim adoConn As New ADODB.ConnectionstrFileName="C:\Book1.xls"strTemp = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Excel Files;Initial Catalog="
strTemp = strTemp & strFileName
Set adoConn = Nothing
adoConn.Open strTemp

Answer 3

怎么用Recordset 打开呢？谢谢

Answer 4

用 adoRS.open "select * from book1",adoConn不灵

Answer 5

adoRS.open "select * from [$sheet11",adoConn
注意，excel中的sheet相当于access中的表。

Answer 6

 对于EXCEL文件，一个文件，就是一个数据库，一个Sheet就是一个表。
 这里使用Excel ODBC驱动程序来打开EXCEL文件，不过，要注意Sheet表的名称标识。    sDriver = "Driver={Microsoft Excel Driver (*.xls)};"
    sDBPath = "DBQ=" & App.Path & "\DB.XLS"
    sSheet = "Sheet1"
    
    Set adoConn = New ADODB.Connection
    Set adoRst = New ADODB.Recordset
    
    adoConn.Open sDriver & sDBPath
    adoRst.Open "Select * From [" & sSheet & "$]", adoConn

Answer 7

http://www.connectionstrings.com/

Answer 8

TO:koa3000(koa)
怎么通过文件名获得每个sheet表呢