Re: [VBA ] 如何貼上recordset

[fumizuki (矇面加菲獅)]

※ 引述《tenway (等待是必要的)》之銘言：
: 請教大大們
: 我利用SQL從資料庫select 出我要的資料後
: 如何一次就貼上excel
: 而不是用迴圈一個一個從儲存格SHOW出來 ??
利用二維陣列 (列, 欄)
'範例(含標題列)
Dim rs As ADODB.Recordset
Dim a() As Variant, r As Integer, c As Integer, rng As String
Set rs = New ADODB.Recordset
rs.Open "select * from Table1", cn, adOpenStatic, adLockPessimistic, 1
r = -1
ReDim a(rs.RecordCount, rs.Fields.Count)
r = r + 1
For c = 0 To rs.Fields.Count - 1
    a(r, c) = rs.Fields(c).Name
Next
Do While Not rs.EOF
    r = r + 1
    For c = 0 To rs.Fields.Count - 1
        a(r, c) = rs(c).Value
    Next
    rs.MoveNext
Loop
rng = "A1:" & Chr(66 + rs.Fields.Count - 1) & r
Range(rng) = a

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 180.176.149.188