高手帮助二个文件合并在一起

Qs18

Sub qs() '2024/6/28
    With Sheet1
        Dim Cn As Object, StrSQL$
        arr = [{"货币型基金20240603.xlsx","货币型基金20240603";"开放式基金20240603.xlsx","开放式基金20240603"}]
        For i = 1 To 2
            Set Cn = CreateObject("Adodb.Connection")
            Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\" & arr(i, 1)
            StrSQL = "Select * From [" & arr(i, 2) & "$] order by 代码"
            k = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            Range("A" & k).CopyFromRecordset Cn.Execute(StrSQL)
            Set Cn = Nothing
        Next
        MsgBox "ok"
        
    End With
End Sub

Qs18

试一下.................

Qs18

试一下..............

xiaodong112233

Qs18 发表于 2024-6-28 21:19
试一下..............

这个不能用
可能软件不兼容。

Qs18

xiaodong112233 发表于 2024-6-28 22:02
这个不能用
可能软件不兼容。

哦！您用的是WPS,好像是不能用