把 Excel 当作 Jet Engine 的外部数据库，用 SQL 语句从 Access 或 SQL 数据库直接导入记录集。

Question

如题
吧excel当作 Jet Engine 的外部数据库  相关代码怎么写呢？
能否在没安装excel的机器上运行

Answer 1

Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
Dim str As String 
Dim cn1 As New ADODB.Connection 
Dim cmd As New ADODB.Command 
Dim rs1 As New ADODB.Recordset 
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=EXCEL文件名.xls;Extended Properties='Excel 8.0;HDR=Yes'" 
cn.Open 
rs.Open "select * from [EXCEL工作表名$]", cn, adOpenKeyset, adLockOptimistic 
……
在没安装excel的机器上运行没有问题！