求助关于ado跨文件取数（两个不同区域）问题！！

lj1226189

sql = "select * from [表2医院月报表$a4:f10]"           
        rs.Open sql, cnn
如何将rs值赋值给数组！！

lj1226189

求高手相助

iwangyi

Arr=RS.getRoWS

iwangyi

如果指定字段
Arr=Rs.getRoWs(字段名)

lj1226189

谢谢楼上!需要转置吗!

lj1226189

用了！！

Arr=RS.getRoWS
Sheet2.Range("a" & t).Offset(5, 5) = arr

但好象只显示了一个7月 ！！ 其它全是空

iwangyi

lj1226189 发表于 2018-9-17 07:15
谢谢楼上!需要转置吗!

用数组转置，直接转置RS.getRoWs确保数据中无空值，否则出错。

lj1226189

iwangyi 发表于 2018-9-17 08:59
用数组转置，直接转置RS.getRoWs确保数据中无空值，否则出错。

有空值的！！有办法吗！！

LMY123

lj1226189 发表于 2018-9-17 09:00
有空值的！！有办法吗！！

Sub 合并多薄首表不连续单元格()
    Dim Fso As Object, File As Object, cnn As Object, rs As Object, SQL$, m&, arr()
    Set Fso = CreateObject("Scripting.FileSystemObject")
    ReDim arr(1 To Fso.GetFolder(ThisWorkbook.Path).Files.Count, 1 To 13)
    For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
        If File.Name Like "*.xlsx" Then
            m = m + 1
            Set cnn = CreateObject("ADODB.Connection")
            cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & File
            arr(m, 1) = Split(File.Name, ".")(0)
            Set rs = cnn.Execute("SELECT * FROM [$G9:G9]")
            arr(m, 2) = rs.Fields(0)
'            Set rs = cnn.Execute("SELECT LAST(F2) FROM [Sheet1$A1:B100] ")
'            arr(m, 3) = rs.Fields(0)
'            Set rs = cnn.Execute("SELECT F2 FROM [Sheet1$A1:B100] WHERE F1 LIKE '%" & Split(Cells(1, 4), "/")(2) & "'")
'            arr(m, 4) = rs.Fields(0)
        End If
    Next
    ActiveSheet.UsedRange.Offset(1).ClearContents
    If m > 0 Then [a2].Resize(m, 13) = arr
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    Set Fso = Nothing
End Sub
'http://club.excelhome.net/forum.php?mod=viewthread&tid=1221645