提速，提取4000多个txt，耗时56.39秒，谢谢prome3、wanghan519、lxdexcel等诸位老师！

lxdexcel

1. Sub test3()
   
2.     Dim n As Byte
   
3.     Dim vResult$(), strFileName$, str$, st$, br$()
   
4.     Dim nums&, y&, x&, r&, k&
   
5.    
   
6.    
   
7.     nums = 242 * 80
   
8. 
   
9.     ReDim vResult(1 To 200, 1 To 4)
   
10.    
    
11.     strFileName = Dir(ThisWorkbook.Path & "" & "*.txt")
    
12.     r = 1
    
13.     Do Until strFileName = ""
    
14.         n = FreeFile
    
15.         Open ThisWorkbook.Path & "" & strFileName For Input As #n
    
16.         ' Debug.Print strFileName; LOF(n) vbCrLf
    
17.          
    
18.         If LOF(n) > nums Then
    
19.            Seek #n, LOF(n) - nums + 1
    
20.            str = StrConv(InputB(nums, #n), vbUnicode)
    
21.         Else
    
22.             str = StrConv(InputB(LOF(n), #n), vbUnicode)
    
23.         End If
    
24.                  
    
25.         Close #n
    
26.                
    
27.         vResult(r, UBound(vResult, 2)) = Mid(strFileName, 4, 6)
    
28.         k = InStrRev(str, vbCrLf, Len(str) - 100)
    
29.         st = Mid(str, k + 2, 10)
    
30.         x = InStr(str, st)
    
31.         y = InStr(x + 20, str, vbCrLf)
    
32.                              
    
33.         br = Split(Mid(str, x, y - x), vbTab)
    
34.         vResult(r, 1) = br(LBound(br))
    
35.         vResult(r, 2) = br(LBound(br) + 6)
    
36.         vResult(r, 3) = br(LBound(br) + 7)
    
37.         
    
38.         r = r + 1
    
39.         strFileName = Dir
    
40.         
    
41.       Loop
    
42.       
    
43.         Sheets("Sheet1").[a2].Resize(r, UBound(vResult, 2)) = vResult
    
44.    
    
45. End Sub

复制代码

文件打开文件的优化不太容易，根据数据特点，把读取整个文件改为读取最后一块数据，由于要处理的数据量变小，所以速度还是有所提升

lhj323323

lxdexcel 发表于 2024-2-12 17:18
文件打开文件的优化不太容易，根据数据特点，把读取整个文件改为读取最后一块数据，由于要处理的数据量 ...

老师：

谢谢回复！
61楼的源码，运行后，没有生成任何数据。

wanghan519

打包了一下，可以把这两个文件放到txt所在文件夹里试试，txt路径里最好不要有空格

lhj323323

prome3 发表于 2024-2-12 14:41
这个没提示拒绝权限吗？你是怎么解决拒绝权限的问题的。

还有就是为什么上面说 6.13 秒，这里又是 18. ...

老师：

请问下图的【单元格左上角】的绿三角，是什么原因造成的？

lhj323323

wanghan519 发表于 2024-2-13 08:11
打包了一下，可以把这两个文件放到txt所在文件夹里试试，txt路径里最好不要有空格

谢谢老师回复！

请看下图

lhj323323

wanghan519 发表于 2024-2-13 08:11
打包了一下，可以把这两个文件放到txt所在文件夹里试试，txt路径里最好不要有空格

是不是output里没有文件名，就无法提取它吗？
刚才看了下，好像通篇看不到一个文件名。

wanghan519

lhj323323 发表于 2024-2-13 10:04
是不是output里没有文件名，就无法提取它吗？
刚才看了下，好像通篇看不到一个文件名。

其实command里去掉那个--no-filename参数就行，只是如果目录里有中文需要转一下编码

lxdexcel

lhj323323 发表于 2024-2-13 07:13
老师：

谢谢回复！

txt文件与工作表应该在同一路径

lxdexcel

lhj323323 发表于 2024-2-13 07:13
老师：

谢谢回复！

txt文件与工作表应在同一路径

prome3

lhj323323 发表于 2024-2-13 09:53
老师：

请问下图的【单元格左上角】的绿三角，是什么原因造成的？

当把字符串数组赋值给工作表区域时，单元格的值的数据类型是文本，而非数字。这种做法通常用来强制保留文本的原有格式。

如果是变体 (Variant) 类型的数组赋值给单元格，Excel 会做自动转换，比如把文本文件中的“0931”转换成数字 931 存到单元格里面，就像上面 65 楼那样；还有会把诸如“2023/12/29”这样的日期字符串转换成数字 45289 再存到单元格里面，然后自动把单元格的数字格式设置为“日期”。这种情况下，单元格的值的数据类型都是数字，而非文本。

至于是保留文本类型还是数字类型，需要根据具体情况而定。比如序号 01,02,03…99 这种，就该保留为文本类型；销售额这些，该保留为数字格类型。

在 VBA 中，可以使用具体类型的数组（而非变体数组）来强制保留数据类型，防止Excel 做（某些情况下不恰当的）隐式转换。比如我的这段代码中，只用了一个字符串数组 result 来保留最终结果，可以改为两个数组，比如 result_datetime 和 result_numbers，前者存储前两列日期时间字符串（数组元素数据类型是 String ），后者存储后面那六列的数字（数组元素数据类型是 Double ）。