发这板块才对：纠结于一个问题，SQL 转数组就这么复杂吗，非要往返两次

andanok

Sub 更新链接()     Dim iRow     Dim con As New ADODB.Connection     Dim rs As New ADODB.Recordset     Dim WshShell, BtnCode     Dim SQL As String             con.Open "Provider=SQLOLEDB;Data Source=(local); User ID=sa;Password =123;Database=test;" '打开本地服务器      iRow = [E:E].Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.Row            Dim Dic As Object, i%, j%     Set Dic = CreateObject("Scripting.Dictionary")         SQL = "Select SKU,ProductId from Products" '查询     Arr = Application.Transpose(con.Execute(SQL).GetRows)         Range("C2:D" & iRow) = Arr     Arr = Range("C2:D" & iRow)     For i = 1 To UBound(Arr)         Dic(Arr(i, 1)) = Arr(i, 2)     Next         brr = Range("E2:E" & iRow)     For j = 1 To UBound(brr)         brr(j, 1) = Dic(brr(j, 1))     Next         Range("Z2:Z" & iRow) = brr             con.Close     Set con = Nothing End Sub 其实只要VLOOKUP效果，数据量大的远程更新到EXCEL Z2=VLOOKUP(E2,【SQL中表Products的SKU,ProductId】,0) Z3=VLOOKUP(E3,…… …… 现在只现实SQL到C、D列，再进行字典找对应的，能否不用过度的C、D列，更简单点呢，毕竟数据量大，多一步就会影响速度了，谢谢各位了

Renco

你是常用EXCEL的人吧，看你很喜欢用数组啊
要让SQL返回查询的结果呢，看你的情况可大致使用两类方法
1.一条条传递条件，然后一条条返回结果：这类方法呢也就是组成一条有where的筛选SQL语句，让SQL返回相关结果或记录
2.批量上传条件记录。返回结果记录集：这类方法呢，就是批量上传条件，当然可在SQL服务器上创建临时表，放上相关条件，上传条件完成后，再逐条形成查询结果，并写在这个临时表里，查询完后。批量返回客端

不过象你要象VLOOKUP的话，用第一种，如果是一个列表下来都VLOOKUP的话，两种都可采用

andanok

Renco 发表于 2013-9-13 20:57
你是常用EXCEL的人吧，看你很喜欢用数组啊
要让SQL返回查询的结果呢，看你的情况可大致使用两类方法
1.一 ...

谢谢，我用SQL+字典+数组，这样连接服务器最少，更快更不容易出错，数据返回再编辑就稳当多了

Renco

更快？？把所有数据返回来，会快啊?!
你的快是怎么定义的啊？！