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

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

这个问题涉及到宏的使用和数据处理。宏是一种自动化任务的方式，可以通过编程来实现一系列操作。在这个问题中，我们需要编写一个宏来将txt文件中的数据复制/粘贴到新工作簿中。

首先，我们需要创建一个新的工作簿来存储粘贴后的数据。可以通过以下步骤来创建新工作簿：

打开Excel应用程序。
点击"文件"选项卡，然后选择"新建"。
在新建窗口中，选择"空白工作簿"，然后点击"创建"。

接下来，我们需要编写宏来实现数据的复制/粘贴操作。可以按照以下步骤来编写宏：

在Excel中，按下"Alt+F11"打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，选择"插入"选项卡，然后选择"模块"。
在新建的模块中，编写以下VBA代码：

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