请教下 关于从多个excel文件里取数据的方法

iwangyi

Sub C()
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.XL*")
Do While f <> ""
If f <> ThisWorkbook.Name Then
Set cnn = CreateObject("ADODB.Connection")
            cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & p & f
            Sql = "select [部门/人员],应发合计 from [ab$a2:h]"
            arr = cnn.Execute(Sql).getrows
            m = m + 1
            Cells(1, m + 1) = f
            For Each Rng In Range("a2:a" & [a65536].End(3).Row)
            For i = 0 To UBound(arr, 2)
            If Rng = arr(0, i) Then Cells(Rng.Row, m + 1) = arr(1, i)
            Next: Next
End If
f = Dir()
Loop
End Sub

iwangyi

附件**************

yeqitang

to_i_can 发表于 2020-11-19 11:10
数据里，新建查询，从文件，从文件夹里导入。

怎么excel选项和你显示差别那么大哦，我的没有新建这个项目

to_i_can

yeqitang 发表于 2020-11-20 20:58
怎么excel选项和你显示差别那么大哦，我的没有新建这个项目

你要下载新版的excel，2016版以上。