实现导入TXT文档到指定的工作表

Sub 一键处理()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    If Cells(3, 2) = "" Then MsgBox "分析路径不能为空！": Exit Sub
    If Dir(Cells(3, 2) & "\") = "" Then MsgBox "分析路径不存在！": Exit Sub
    t = Timer
    Sheets("数据源").Range("a2:F100000").ClearContents
    Sheets("项目误差").Range("a2:I100000").ClearContents
    Sheets("批次误差").Range("a2:F100000").ClearContents
    Sheets("错误信息").Range("a2:a100000").ClearContents
    If Sheets("数据源").FilterMode Then sht.ShowAllData
    If Sheets("项目误差").FilterMode Then sht.ShowAllData
    If Sheets("批次误差").FilterMode Then sht.ShowAllData
    If Sheets("错误信息").FilterMode Then sht.ShowAllData
    Set d1 = CreateObject("scripting.dictionary")