绝对不要将所有数据都拉到 Excel 中,那样会使它崩溃。
通常,当我需要 Excel (VBA) 工作簿从数据库中检索一些数据时,我只需让 Excel 使用适当的连接字符串连接到数据库,将 SQL 查询字符串传递给数据库,然后检索返回的记录。下面是一些从 MS Access 数据库中检索一些信息的示例 VBA 代码。
txtQueryString = "SELECT * "
& "FROM myDataTable " _
& "WHERE fld1 = '" & myCriteria & "'"
txtConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & dbPathString & ";" _
& "Persist Security Info=False"
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open txtQueryString, txtConnectString, adOpenKeyset, adLockReadOnly, adCmdText
myData1 = rst.Fields("fld1").Value
myData2 = rst.Fields("fld2").Value
.
.
.
rst.Close
Set rst = Nothing
SQL Server 的连接字符串会有所不同。我使用这个网站来满足我所有的连接字符串需求。