如何用VB代码实现一次导入多个TXT文件到EXCEL中？求代码...

请将VB生成的EXE文件和txt文件放在同一个文件夹内，然后运行代码，最终所有的数据将汇总到同样目录下的“汇总工作簿”中。

代码如下：

Private Sub Command1_Click()
    Dim xlapp As Object
    Dim aimwb As Object, wb As Object
    Set xlapp = CreateObject("Excel.Application")
    Set aimwb = xlapp.workbooks.Add
    aimwb.saveas App.Path & "\汇总工作簿.xls"
    
    
    Dim strName As String
    strName = Dir(App.Path & "\*.txt")
    
    Do While strName <> ""
        Set wb = xlapp.workbooks.Open(App.Path & "\" & strName)
        wb.sheets(1).usedrange.Copy aimwb.sheets(1).cells(aimwb.sheets(1).usedrange.rows.Count + 1, "A")
        strName = Dir
        wb.Close False
    Loop
    
    aimwb.Close True
    xlapp.quit
End Sub