将数据从txt文件复制/粘贴到新工作簿的宏正在粘贴到个人工作簿中

Question

标题或多或少概括了它。我试图使一个简单的宏打开，然后复制/粘贴数据从txt文件到一个新打开的工作簿。我有什么工作，但它粘贴到个人工作簿，在打开一个新的“book1”之前。我可以让它粘贴到Book1，但我只想让它粘贴到打开的第一个工作簿中，以防以后我想在同一个文件中添加更多数据。我对此相当陌生，所以任何帮助都将不胜感激！！

Public Sub ImportFile()
    Dim TextFile As Workbook
    Dim OpenFiles() As Variant
    Dim x As Integer
    
    OpenFiles = Application.GetOpenFilename(Title:="Select File(s) to Import", MultiSelect:=True)
    
    For x = 1 To Application.CountA(OpenFiles)
    
    Set TextFile = Workbooks.Open(OpenFiles(x))
    
    TextFile.Sheets(1).Range("A1").CurrentRegion.Copy
    Workbooks(1).Activate
    Workbooks(1).Worksheets.Add
    ActiveSheet.Paste
    
    TextFile.Close
    
    Next x
End Sub

Answer 1

它将创建一个新的工作簿。它将创建名为“new1,New2”等的附加工作表，希望它能帮助您的需求

Public Sub ImportFile()
    Dim TextFile As Workbook
    Dim OpenFiles() As Variant
    Dim x As Integer
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = Workbooks.Add
    
     OpenFiles = Application.GetOpenFilename(Title:="Select File(s) to Import", MultiSelect:=True)
    
    For x = 1 To Application.CountA(OpenFiles)
    
    i = 1
    
    Set ws = wb.Sheets.Add
 
    Set TextFile = Workbooks.Open(OpenFiles(x))
    
    TextFile.Sheets(1).Range("A1").CurrentRegion.Copy
    
    ws.Paste
    
    Application.CutCopyMode = False
    Application.CutCopyMode = True
    
    ws.Name = "New" & i
    i = i + 1
    TextFile.Close       
    
    Next x
End Sub