提取多个TXT的指定内容放在EXCEL里

sampsonpon

提取多个TXT的指定内容放在EXCEL里，为什么会出现400错误？

ykcbf1100

批量文本文件读入。

ykcbf1100

参与一下。。。。

1. Sub ykcbf()         '//2024.4.10
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     p = ThisWorkbook.Path & ""
   
6.     ReDim brr(1 To 1000000, 1 To 15)
   
7.     On Error Resume Next
   
8.     For Each f In fso.GetFolder(p).Files
   
9.         If LCase(f.Name) Like "*.txt" Then
   
10.             fn = fso.GetBaseName(f)
    
11.             Set wb = Workbooks.Open(f, 0)
    
12.             With wb.Sheets(1)
    
13.                 zrr = .UsedRange
    
14.                 wb.Close
    
15.             End With
    
16.             For i = 5 To UBound(zrr)
    
17.                 st = WorksheetFunction.Trim(zrr(i, 1))
    
18.                 If InStr(zrr(i, 1), "|--") = 0 Then
    
19.                     b = Split(zrr(i, 1), "|")
    
20.                     If b(2) <> Empty And InStr(b(4), "TO Number") = 0 Then
    
21.                         m = m + 1
    
22.                         For x = 1 To 15
    
23.                             brr(m, x) = Trim(b(x))
    
24.                         Next
    
25.                     End If
    
26.                 End If
    
27.             Next
    
28.         End If
    
29.     Next f
    
30.     With sh
    
31.         .UsedRange.Offset(1).Clear
    
32.         .Columns("a:o").NumberFormatLocal = "@"
    
33.         .[a2].Resize(m, 15) = brr
    
34.         .[a2].Resize(m, 15).Borders.LineStyle = 1
    
35.         .[a2].Resize(m, 15).Sort .[o2], 2
    
36.     End With
    
37.     Application.ScreenUpdating = True
    
38.     MsgBox "OK！"
    
39. End Sub
    
40. 
    

复制代码

lunarK

1变量p存储当前工作簿的路径，但似乎没有实际使用（除了初始化）。
2zrr变量用于存储从文本文件工作表的已使用范围中获取的数据，但它似乎没有在代码中实际使用（除了初始化）。
3代码假设文本文件中的数据格式是特定的，并且每个文件的第一张表包含需要处理的数据。如果这些假设不成立，代码可能不会正常工作。

ooluckydog

把全部字段提取出来了，提取指定信息还要再做后处理

sampsonpon

ooluckydog 发表于 2024-4-10 20:43
把全部字段提取出来了，提取指定信息还要再做后处理

WHAT?您的附件放错了吧？

ooluckydog

sampsonpon 发表于 2024-4-11 16:05
WHAT?您的附件放错了吧？

抱歉，失误

ooluckydog

数据删掉了，文件太大

sampsonpon

ykcbf1100 发表于 2024-4-10 15:13
批量文本文件读入。

老师，能否再帮忙润一下以下四点要求。感谢！

cai2532

这个读取文本文件厉害，学习了。