Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim x, l As Long
Dim sql As String
x = 2
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & wkname & ";" & _
"Extended Properties=Excel 8.0;"
.Open
End With
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
If tablename1.Text <> "" Then
rs.Open "select * from " & "[" & tablename1.Text & "$]", cn, 1, 3
本文介绍了一段使用VBA从Excel中读取指定表格数据的代码实现过程。通过设置数据库提供者、连接字符串等参数,打开与Excel文件的数据连接,并利用Recordset对象选取特定工作表中的所有记录。
2355

被折叠的 条评论
为什么被折叠?



