前景提要(文末提供源码下载)
昨天我们分享了通过VBA将单个txt文件的数据导入Excel的操作。不过有小伙伴指出了我的不足,Excel2010版本之后,就已经具备了单个txt文件导入的功能
![24c5177a0cc6b04b8d75742e40bb8113.png](https://img-blog.csdnimg.cn/img_convert/24c5177a0cc6b04b8d75742e40bb8113.png)
不过既然能够导入单个txt,那么是否可以实现多个txt文件一起导入呢?一次只能导入一个txt文档操作起来确实不太方便。
场景简介
我想了下,大致日常工作中需要批量导入txt的场景一般都是数据汇总的时候,这个时候txt文档也已经放在了同一个文件夹了,那么我们遍历某个文件夹内的所有txt文件,在写入就可以了
![a3be1db40b1ba21ab90b9db8fbeadabc.png](https://img-blog.csdnimg.cn/img_convert/a3be1db40b1ba21ab90b9db8fbeadabc.png)
遍历用之前学习过的dir函数,再套上昨天我们学习的单个文档写入的方法,似乎并不难
代码区
Sub test()With Application.FileDialog(msoFi