使用VBA实现文本文件数据自动化解析并导入Excel

在数据处理和分析的日常工作中，经常需要从各种来源（如文本文件）中收集并整理数据。这些文本文件可能包含复杂的结构，如特定的标记或分隔符，用于区分不同的数据字段。手动将这些数据转移到Excel中进行进一步分析不仅耗时而且容易出错。因此，自动化这一过程成为提高工作效率和数据准确性的关键。

本文介绍了一种使用VBA（Visual Basic for Applications）脚本自动从文本文件中读取数据，并根据预定义的标签将其解析并导入到Excel工作表中的方法。通过编写一个名为Demo的VBA函数，我们能够实现以下功能：

‌定义文本文件路径‌：指定包含待处理数据的文本文件的具体位置。

‌读取并预处理文件内容‌：使用GetContent函数读取整个文本文件的内容，并将其中的回车换行符统一为换行符，以便于后续处理。

‌处理特殊行‌：对于以特定字符（如"->"）开头的行，也将其写入到之前确定的列中，以支持更灵活的数据格式。

‌写入Excel‌：将解析后的数据按照指定的列号写入到当前活动工作表（或指定工作表）中，确保数据的准确放置。

代码片段如下：

Sub Demo() ' 定义文本文件路径 Const TXT_PATH As String = "C:\Users\Desktop\Demo.txt" ' 声明变量 Dim data As String, arr, arrCols, i As Long, s As String, col As Long Dim ws As Worksheet, n As Long, v, sPrev As String ' 读取整个文件内容 data = GetContent(TXT_PATH) ' 读取文件内容 data = Replace(data, vbCrLf, vbLf) ' 将回车换行符统一为换行符 arr = Split(data, vbLf) ' 将文件内容按换行符分割成数组 ' 定义标签和对应列号的数组 arrCols = Array("|CREATED|", 1, "|CLOSED|", 2, "|UPDATED|", 3) ' 设置当前活动工作表为操作对象，也可以指定具体的工作表 Set ws = ActiveSheet ' or some specific sheet ' 遍历文件中的每一行 For i = 0 To UBound(arr) ' 循环遍历数组中的每一行 s = arr(i) ' 当前行内容 ' 遍历arrCols数组，检查是否有预定义的标签匹配 For n = LBound(arrCols) To UBound(arrCols) Step 2 v = arrCols(n) ' 当前标签 If Left(s, Len(v)) = v Then ' 如果当前行以特定标签开头 col = arrCols(n + 1) ' 获取对应的列号 If i > 0 Then ' 如果不是第一行，则检查上一行是否为日期 sPrev = arr(i - 1) ' 获取上一行内容 If sPrev Like "####-##-## *" Then ' 检查是否以日期开头 ' 将日期写入对应列 ws.Cells(Rows.Count, col).End(xlUp).Offset(1).Value = sPrev End If End If ' 将当前行写入对应列 ws.Cells(Rows.Count, col).End(xlUp).Offset(1).Value = s GoTo skip ' 跳过当前行的后续处理 End If Next n ' 如果当前行以"->"开头，且之前已确定列号，则也写入该列 If Left(s, 2) = "->" Then If col > 0 Then ws.Cells(Rows.Count, col).End(xlUp).Offset(1).Value = s End If End Ifskip: Next iEnd Sub' 读取文件内容的函数Function GetContent(f As String) As String ' 使用Scripting.FileSystemObject对象读取文件内容 GetContent = CreateObject("scripting.filesystemobject"). _ OpenTextFile(f, 1).ReadAll()End Function