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

lhj323323

wanghan519 发表于 2024-2-13 10:12
其实command里去掉那个--no-filename参数就行，只是如果目录里有中文需要转一下编码

两种【去掉】，运行后，都要报错。

lhj323323

lxdexcel 发表于 2024-2-13 10:57
txt文件与工作表应该在同一路径

是的，老师
我一直是这么操作的
两者都在同一路径。

wanghan519

lhj323323 发表于 2024-2-13 12:13
两种【去掉】，运行后，都要报错。

别删那么多，空格也不要动，只删除--no-filename就行，我在外面，回头试试

lhj323323

lxdexcel 发表于 2024-2-13 11:06
txt文件与工作表应在同一路径

仍报错
原因是否是：
同路径的txt的个数，由40个，增加到4415个？

lhj323323

wanghan519 发表于 2024-2-13 12:24
别删那么多，空格也不要动，只删除--no-filename就行，我在外面，回头试试

好，麻烦您了。        

wanghan519

lhj323323 发表于 2024-2-13 12:29
好，麻烦您了。

调用cmd的方式多少有点怪
只是速度令人满意

lhj323323

wanghan519 发表于 2024-2-13 13:22
调用cmd的方式多少有点怪
只是速度令人满意

今天，我硬是和这个批处理，较真了，用键盘敲入您提供的代码，无数次。
每次都提示下标越界
而运行您提供的模板，又均是正确的。

真是奇了怪哉！
先谢谢老师了。
晚上再来敲代码

lxdexcel

lhj323323 发表于 2024-2-13 12:29
仍报错
原因是否是：
同路径的txt的个数，由40个，增加到4415个？

ReDim vResult(1 To 200, 1 To 4)  改为 ReDim vResult(1 To 5000, 1 To 4)

vResult 的行数要大于要提取的数据行数

lhj323323

lxdexcel 发表于 2024-2-13 18:41
ReDim vResult(1 To 200, 1 To 4)  改为 ReDim vResult(1 To 5000, 1 To 4)

vResult 的行数要大于要提 ...

咋这么快！！！
耗时0.078秒。
没说的，先谢谢老师了！

prome3

lxdexcel 发表于 2024-2-13 11:06
txt文件与工作表应在同一路径

这个着实很快！刚刚我试了一下，4042 个文件，5.30 GB 总大小，只需要 0.5 秒！而且结果都是正确的。相比之下我的代码需要 2.2 秒。

可否解释一下代码的思路原理？