【求助】VAB汇总弹出“数据链接属性”对话框，无法汇总

DICKY028

大神求助VAB汇总弹出“数据链接属性”对话框，无法汇总
之前可以正常使用，今天突然不行了，弹出对话框“数据链接属性”


或者帮忙看看VBA程序可以优化的地方

大概的思路是文件夹中的表格分别有两张sheet，分别汇总后，再将两个sheet拆分成两个表格，表格命名格式以文件夹名+sheet名

3190496160

Sub 批量汇总()
    Application.ScreenUpdating = False
    Set fso = CreateObject("scripting.filesystemobject")
    Set wb = ThisWorkbook
    f = Dir(ThisWorkbook.Path & "\*.xls*")
    Do While f <> ""
        If InStr(f, "汇总.xlsm") = 0 Then
           With Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
                For Each sh In .Sheets
                    sh.UsedRange.Offset(1).Copy wb.Sheets(sh.Name).Cells(Rows.Count, 1).End(3).Offset(1)
                Next sh
                .Close False
           End With
        End If
    f = Dir
    Loop
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
     sht.Copy
     ActiveWorkbook.SaveAs ipath & sht.Name & ".xlsx"
     ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160