怎么用VBA把多张EXCEL固定表格的数据读取到一张EXCEL汇总表中？

xiexiaogang1224

代码保存时直接出错了，这个是什么原因啊？

iwangyi

图片也这样猥琐，让看官们怎么看得见。

lsc900707

建议楼主上传附件。

xiexiaogang1224

iwangyi 发表于 2018-9-14 17:11
图片也这样猥琐，让看官们怎么看得见。

。。。不能点开看么，我看我点开是看得见的就这样传了

LMY123

试试加上\
或者
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

opiona

http://club.excelhome.net/thread-1409141-1-1.html