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

sampsonpon

ykcbf1100 发表于 2024-4-16 15:04
应该可以了。。。

老师，这个不用管了。还是昨天您给我的最后一版好用，然后我加了.Columns(7).NumberFormatLocal = "@"这句就全部解决了。
只是最后还是想要一句：就是将光标最后落在B列的最后一行单元格中，如下代码可行？
Sheet1.Range("B" & Cells(Rows.Count, 2).End(xlUp).Row).Select

ykcbf1100

sampsonpon 发表于 2024-4-16 15:41
转换结果已经没有问题，但首次刷新还会留一行尾巴，再次刷新才会彻底没有尾巴。
再次感谢老师！感谢论坛 ...

你的尾巴指是啥？

sampsonpon

ykcbf1100 发表于 2024-4-15 07:41
dd.mm.yyyy，这个格式你不说我怎么知道呢。

改好了。。。

老师，这里的9是不是应该是12啊？

ykcbf1100

sampsonpon 发表于 2024-4-17 09:51
老师，这里的9是不是应该是12啊？

对的，你自己改一下吧。

sampsonpon

ykcbf1100 发表于 2024-4-17 09:54
对的，你自己改一下吧。

附件里这个是按照您给我的代码仿照改来的，但还是遇到了一些问题：

1、为什么还会有我筛选出的这些内容？哪里搞错了？
2、您如果再刷一次的话，所有内容就会被清除掉了成了空白？哪儿的问题？
附加一个问题：我在测试时，如何简便知道所转换过来的数据条数是正确的？

ykcbf1100

sampsonpon 发表于 2024-4-17 14:25
附件里这个是按照您给我的代码仿照改来的，但还是遇到了一些问题：

1、为什么还会有我筛选出的这些内 ...

我的代码不要随便改，那些代码已经修正过多次，已经没啥问题了。我这里不存在刷新成空白的问题，一直正常。你现在的代码一运行，全成空白，没法用。最后一个问题，无法简便知道转换过来的数据条数，因为原数据中有些是不需要的，有些是空白的，无法统计。

sampsonpon

ykcbf1100 发表于 2024-4-17 14:39
我的代码不要随便改，那些代码已经修正过多次，已经没啥问题了。我这里不存在刷新成空白的问题，一直正常 ...

附件内容不是一样的但都大同小异，所以我才会拿您的现成代码稍作修改即用的，因为不是很懂所以还是搞不定

ykcbf1100

sampsonpon 发表于 2024-4-17 16:26
附件内容不是一样的但都大同小异，所以我才会拿您的现成代码稍作修改即用的，因为不是很懂所以还是搞不定

有些语句是不能随意改的。你不要随意加入你自己的东西。你只要修改列号就行了。
我的代码能出数据的，你的就不行，说明你改了关键的代码。