VBA打开两个工作表，每个工作表导入不同的数据

Question

嗨即时通讯新的VBA excel，我想导入数据这部分我可以做得很好，但在同一个子我想在同一工作簿和工作表中打开一个新的工作表我想保留的文件名我从中导入的数据。

Sub GetData()

        Dim path As Variant
        Dim excelfile As Variant
        Dim data_file(1 To 100) As String


        path = "C:\dummmy\"`

        main_file = ActiveWorkbook.Name

        excelfile = Dir(path & "*.xls")

        Do While excelfile <> ""

        data_file(k + 1) = excelfile

         With ThisWorkbook
            .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Test"
            ActiveSheet.Paste = datafile(k+1)
        End With' 

其他代码我遇到的问题只是将文件的地址放在另一个工作表中