VBA高效导入TXT数据到Excel：逐行逐列解析

需要将TXT文件中的数据导入Excel，并确保每个数据都准确地填入对应的单元格？VBA代码可以帮助你轻松实现！本文提供详细的代码示例和步骤说明，让你快速掌握这一实用技巧。

VBA代码示例

以下VBA代码可以将TXT文件中的数据导入Excel，并将每个数据填入对应的单元格：vbaSub ImportDataFromTXT() Dim filePath As String Dim fileContent() As String Dim dataArray() As String Dim ws As Worksheet Dim rowCount As Integer Dim colCount As Integer Dim i As Integer, j As Integer ' 选择要导入的TXT文件 filePath = Application.GetOpenFilename('Text Files (*.txt), *.txt') ' 检查是否选择了文件 If filePath <> 'False' Then ' 读取TXT文件内容 Open filePath For Input As #1 fileContent = Split(Input$(LOF(1), #1), vbCrLf) Close #1 ' 获取数据行数和列数 rowCount = UBound(fileContent) + 1 colCount = UBound(Split(fileContent(0), vbTab)) + 1 ' 创建新工作表并导入数据 Set ws = ThisWorkbook.Worksheets.Add With ws ' 调整工作表范围以适应数据大小 .Range('A1').Resize(rowCount, colCount).Value = '' ' 导入数据 For i = 0 To rowCount - 1 dataArray = Split(fileContent(i), vbTab) For j = 0 To colCount - 1 .Cells(i + 1, j + 1).Value = dataArray(j) Next j Next i End With ' 自动调整列宽 ws.Columns.AutoFit End IfEnd Sub

代码解析

选择文件: 代码首先使用 Application.GetOpenFilename 方法让用户选择要导入的TXT文件。2. 读取内容: 打开选定的TXT文件，读取其内容，并使用 Split 函数将内容按行分割成数组 fileContent。3. 确定行列: 通过 UBound 函数获取数据的行数和列数，为数据导入做准备。4. 创建工作表: 创建一个新的工作表 ws，用于存放导入的数据。5. 逐行逐列导入: 使用嵌套循环遍历 fileContent 数组，将每一行数据再次使用 Split 函数按分隔符（例如制表符）分割成单个数据，并将其填入对应单元格。6. 自动调整列宽: 最后，使用 ws.Columns.AutoFit 自动调整列宽，以便更好地显示数据。

使用方法

打开Excel，按下 Alt + F11 打开 VBA 编辑器。2. 在 VBA 编辑器中，点击 '插入' > '模块'，创建一个新的模块。3. 将上述代码粘贴到新建的模块中。4. 关闭 VBA 编辑器，回到 Excel 工作表界面。5. 点击 '开发工具' > '宏'，运行名为 'ImportDataFromTXT' 的宏即可。

通过以上步骤，你就可以轻松地使用VBA将TXT文件中的数据导入Excel，并确保每个数据都准确地填入对应的单元格。