Excel VBA 代码：导入 TXT 文件数据到工作表

以下是将指定路径的 TXT 文件中的数据保存到 Excel 的 Sheet1 中的 VBA 代码：

Sub ImportData()
    Dim filePath As String
    Dim fileContent As String
    Dim fileLines As Variant
    Dim i As Long
    
    '指定文件路径
    filePath = 'C:\Users\Admin\Desktop\data.txt'
    
    '打开文件并读取内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), #1)
    Close #1
    
    '将文件内容按行分割成数组
    fileLines = Split(fileContent, vbCrLf)
    
    '在 Sheet1 中逐行写入数据
    For i = 0 To UBound(fileLines)
        Sheets('Sheet1').Cells(i + 1, 1).Value = fileLines(i)
    Next i
End Sub

请将代码中的文件路径替换为你要导入的 TXT 文件的路径，并将 'Sheet1' 替换为你要写入数据的工作表名称。

使用方法：

1. 打开 Excel 文件。
2. 按 Alt + F11 打开 VBA 编辑器。
3. 在 VBA 编辑器中，插入一个新的模块。
4. 将上面的代码复制粘贴到模块中。
5. 修改代码中的文件路径和工作表名称。
6. 点击运行按钮或按 F5 运行代码。

注意：

• 代码默认将数据写入到 Sheet1 的 A 列。
• TXT 文件中的数据应以换行符分隔。
• 如果 TXT 文件中包含引号，则需要在代码中进行特殊处理。