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

prome3

好生奇怪，为什么第一次运行的时间那么长，后续的重复运行都快很多。

lhj323323

prome3 发表于 2024-2-11 15:43
好生奇怪，为什么第一次运行的时间那么长，后续的重复运行都快很多。

谢谢老师回复

运行后，提示出错，如下图

prome3

lhj323323 发表于 2024-2-11 19:12
谢谢老师回复

运行后，提示出错，如下图

把 On Error GoTo EH 语句注释掉，看是哪一行报的错。调试看看是什么原因。

lhj323323

prome3 发表于 2024-2-11 20:00
把 On Error GoTo EH 语句注释掉，看是哪一行报的错。调试看看是什么原因。

让老师费心了

请看下图
提示下标越界

prome3

lhj323323 发表于 2024-2-12 07:41
让老师费心了

请看下图

出现这个的原因是，Open 语句中的文件名在当前工作路径下不存在，所以该语句会新建一个同名的文件，然后打开文件执行下面的操作。而这个新建的文件的大小是 0 ，所以 file_size 也就是 0 ，导致 file_bytes 数组的定义范围变成 0 到 -1 ，这显然是不对的。

再往上的进一步原因是，ChDir 函数不会更改活动驱动器（C盘、D盘、E盘……），具体内容可以查看官方文档，我在这里就不赘述了。解决方法是在 ChDir 语句前面再加一个 ChDrive 函数以更改活动驱动器。

然后还有一点需要注意的是，如果代码是复制粘贴进一个未保存的 Excel 文档中运行，ThisWorkbook.Path 会返回一个空字符串，这显然会造成问题，所以在附件 V3 的代码中我改为手动选择文件夹。当然这是发给别人用的情况下需要这么做，自己能控制的环境下，必然是先保存 Excel 文档再运行代码的，这样也就不用手动选择文件夹了。

再一点是，ChDir、Dir 这些函数都太古老了，处理包含 Unicode 字符的文件名和路径名可能会有问题。推荐使用 FileSystemObject 对象来处理。现在是为了方便，暂用这些函数（实际工作中最好别用）。因为这帖子的重点不在这里，而在提速。

我很想知道我这代码在你的机器上运行速度咋样。我的方法和别人不同的地方主要在于，我是通过制表符 ( vbTab ) 来计算偏移量的，而别人都是通过换行 ( vbCrLf ) 来计算偏移量的。据我观察，只有数据行包含制表符，标题行和文件末尾的空行都没有，所以用制表符更可靠一点。然后是，别人都是对整个文件进行 StrConv ，而我只对要的那一行数据进行 StrConv ，这样会稍快一点（但不多，因为单个文本文件只有 1 MB 左右，并不大）。

最后，楼上很多人的代码中，包括你的，都是 Split( ... , vbLf) ，即只通过换行符这单个字符进行文本分割，这样导入 Excel 的数据会包含剩下的 vbCr 字符，也就是得到的数据是“脏的”，还需要用 Excel 的 CLEAN 函数进行清洗。正确的做法应该是 Split( ... , vbCrLf) 。

我的配置：
i7-1185G7，Windows 10 64位，MS Office 2019 64位

lhj323323

prome3 发表于 2024-2-12 10:48
出现这个的原因是，Open 语句中的文件名在当前工作路径下不存在，所以该语句会新建一个同名的文件，然 ...

老师:

太惊艳了，只用了6.13秒!!!

但有两个小问题，看看能否修改
一是打开的对话框，能否改为【模板同路径】
或者【不打开】=对话框，直接就是默认同路径
二是如下图

lhj323323

prome3 发表于 2024-2-12 10:48
出现这个的原因是，Open 语句中的文件名在当前工作路径下不存在，所以该语句会新建一个同名的文件，然 ...

老师请看图

lhj323323

prome3 发表于 2024-2-12 10:48
出现这个的原因是，Open 语句中的文件名在当前工作路径下不存在，所以该语句会新建一个同名的文件，然 ...

我把保存excel，也写入到语句里，
运行时，仍提示【拒绝的权限】

1. ActiveWorkbook.Save
   
2. file_path = Dir(ThisWorkbook.Path & "" & "*.txt")

复制代码

lhj323323

prome3 发表于 2024-2-12 10:48
出现这个的原因是，Open 语句中的文件名在当前工作路径下不存在，所以该语句会新建一个同名的文件，然 ...

提取全部4415支，耗时18秒！！

perfect131

open读取大文件 几十M的文件（几十万、几百万行的txt）时比较慢

还是用 fso的OpenTextFile才是最快的方案
我处理过 6.5G 4000多个txt也就1分半 客户那儿30多秒
所以电脑配置也很重要 读取代码也重要