【求助】大佬们，VBA如何循环遍历指定目录下的Excel文件并拼接字符串

qxr130628 · 发表于 2017-9-15 15:31

遍历指定目录下及子目录下的所有Excel文件指定目录下新建一个Excel A2单元格值是“一”， A3单元格值是“二” ，
从A4开始每遍历到一个excel文件就在A列加一行值是“三”

B列生成序号  若A列是“一”则生成的序号格式为：“1”+“YYYYMMDDHHMMSS”+“nnnn”
                  若A列是“二”则生成的序号格式为：“2”+“YYYYMMDDHHMMSS”+“nnnn”
                  若A列是“三”则生成的序号格式为：“3”+“YYYYMMDDHHMMSS”+“nnnn”
其中"nnnn"代表四位流水码
将遍历文件夹的Excel文件的E5单元格的值写到新建Excel文件的D列。
大佬们，萌新再此多谢了。。。。

qxr130628 · 发表于 2017-9-15 15:49

大佬们帮帮忙，不要沉啊

qxr130628 · 发表于 2017-9-15 16:22

萌新，跪求大佬帮忙啊表沉表沉。。。

microyip · 发表于 2017-9-15 16:22

在论坛里找一下历遍的代码，然后修改即可

qxr130628 · 发表于 2017-9-15 16:44

microyip 发表于 2017-9-15 16:22
在论坛里找一下历遍的代码，然后修改即可

VBA 对我来说真是太新了。。。

microyip · 发表于 2017-9-15 16:47

qxr130628 发表于 2017-9-15 16:44
VBA 对我来说真是太新了。。。

新也不能代表可以做伸手党的呀，可以通过学习得到相关知识啊

蓝桥玄霜 · 发表于 2017-9-15 17:16

qxr130628 · 发表于 2017-9-18 13:45

蓝桥玄霜发表于 2017-9-15 17:16

大佬，若是要遍历的文件有好多sheet页，
For i = 2 To UBound(Brr, 2) 这句话要怎么改呢总是提示数组下标越界

看了你的代码真的学到了好多。。谢谢。。。

蓝桥玄霜 · 发表于 2017-9-19 09:36

qxr130628 发表于 2017-9-18 13:45
大佬，若是要遍历的文件有好多sheet页，
For i = 2 To UBound(Brr, 2) 这句话要怎么改呢总是提示数 ...

建议搜索多工作簿多工作表提取数据的帖子，有很多。

qxr130628 · 发表于 2017-9-20 09:20

蓝桥玄霜发表于 2017-9-19 09:36
建议搜索多工作簿多工作表提取数据的帖子，有很多。

老师，为什么我循环遍历2003版本的Excel文件这句话For i = 2 To UBound(Brr, 2) 就数组越界呢

		自动登录	找回密码
密码			免费注册

[求助] 【求助】大佬们，VBA如何循环遍历指定目录下的Excel文件并拼接字符串