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

Sub CopyPasteData()
    Dim filePath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 设置txt文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 打开txt文件
    Open filePath For Input As #1
    
    ' 创建新工作簿
    Set wb = Workbooks.Add
    Set ws = wb.Sheets(1)
    
    ' 逐行读取txt文件并粘贴到新工作簿中
    Dim row As Integer
    row = 1
    Do Until EOF(1)
        Line Input #1, TextLine
        ws.Cells(row, 1).Value = TextLine
        row = row + 1
    Loop
    
    ' 关闭txt文件
    Close #1
    
    ' 保存新工作簿
    wb.SaveAs "C:\path\to\your\new\workbook.xlsx"
    
    ' 关闭新工作簿
    wb.Close
    
    ' 提示完成
    MsgBox "数据已成功复制/粘贴到新工作簿中。"
End Sub