Excel VBA和文件夹-1.5遍历文件夹并打开

前景提要

再上一篇的时候,我们知道如何通过vba打开指定的excel文件了,但是在实际的工作中,我们发现情况并没有我们想象的那么简单,比方说要做公司日报汇总了,恰好今年行业市场不错,业绩也挺好,公司也是招募了不少的人手,人多好办事嘛,但是呢,需要您汇总报表数据的时候,你会发现,一个文件夹有好多文件,10+,还好,但是你一个部分起码有20+,加上其他分公司的,起码100+,让你一个个的打开文件,然后复制粘贴。。。。。想想都恐怖啊,换成我,估计直接跑到公司顶楼跳下去了,不过别慌,我们不是有VBA嘛,那么VBA可以实现这样的效果嘛?

既然我这样说了,那肯定是可以的啦(废话),现在哪里都说“科学技术是第一生产力”,一点都没错,虽然VBA算不上什么高大上的科学技术,只是一个非常简单的脚本语言,但是至少人家能够解决我们人力需要花费很长时间才能解决的问题嘛,废话有点多了,so,开工

思路

之前我们说过,VBA实现的逻辑,和我们实际手工操作是一样的,在本例中,我们想去指定的文件夹,然后打开,然后一个一个的打开excel文件,复制粘贴,然后关闭文件,再打开下一个。。。。。好了,再说下去我都觉得有点啰嗦了,上代码

上代码

这里假设我们的目标文件在D盘的新建文件夹下

Sub test()

Dim FileName$

FileName = "D:\新建文件夹"

f = Dir(FileName & "\")

Do While f <> 0

    Workbooks.Open FileName & "\" & f

    f = Dir()

    Workbooks.Close

Loop

End Sub

代码解析

首先我们指明文件夹的位置,FileName代表的就是文件夹的位置,然后我们这里使用了dir函数,熟悉前面的内容的童鞋,应该还记得我们之前在创建文件夹的时候,使用了mkdir函数,这两个函数非常的相似,mkdir是创建文件夹的,而dir是遍历文件夹的,既然知道了dir的作用,那么第4行就好理解了,

f = Dir(FileName & "\")

就是遍历我们指定的文件夹的意思

1.jpg

然后我们接着往下看,这里我们使用了一个do loop循环语句,这里的作用就是dir在遍历的时候,如果找不到文件之后,他会返回一个空值,这里我们只需要判断f是否等于空就知道循环是否结束了,如果循环结束了,那么就可以跳出循环了,

这里还有一个语法知识点,在do循环中遍历的时候,f = Dir()这里是不需要再加上具体的参数的,这点要留意,否则他永远都是循环打开第一个工作表。陷入死循环。

Do While f <> 0

Workbooks.Open FileName & "\" & f

f = Dir()

Workbooks.Close

这里我们按下F8进入调试功能看看f是多少


2.jpg

这里我们可以看到f已经有结果了,成功的定位到了第一个文件,但是我们注意到,他只是一个文件夹的名字,要打开一个文件,我们上一次说了,需要完整的路径,所以这里我们需要重新构造一个完整路径,即:FileName & "" & f,如果还是不清楚,我们在看看结果

这样才算是完整路径,有了这个完整路径之后,我们就可以执行打开的操作了,打开操作上次已经分享了,这次我们顺带说下关闭的 操作,就是Workbooks.Close

完整代码+注释

Sub test()

Dim FileName$

FileName = "D:\新建文件夹" '指定文件夹的位置

f = Dir(FileName & "\") '循环开始

Do While f <> 0 '判断f的值,如果不是空,证明循环还没有结束

    Workbooks.Open FileName & "\" & f '构造完整的路径并执行打开操作,下面你可以继续写其他的功能

    f = Dir() '继续找下一个文件

    Workbooks.Close '关闭已经打开的文件

Loop

End Sub

虽然现在社会上并没有专门针对VBA职位的需求,但是VBA是能够提高我们日常生产,办公效率的语言,能够节省我们很多的时间,想要准时下班,回家看球赛,陪伴家人,抓紧时间和我一起学些VBA吧。

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 214,504评论 6 496
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 91,434评论 3 389
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 160,089评论 0 349
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 57,378评论 1 288
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 66,472评论 6 386
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 50,506评论 1 292
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 39,519评论 3 413
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 38,292评论 0 270
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 44,738评论 1 307
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,022评论 2 329
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,194评论 1 342
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 34,873评论 5 338
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,536评论 3 322
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,162评论 0 21
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,413评论 1 268
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 47,075评论 2 365
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,080评论 2 352

推荐阅读更多精彩内容

  • ¥开启¥ 【iAPP实现进入界面执行逐一显】 〖2017-08-25 15:22:14〗 《//首先开一个线程,因...
    小菜c阅读 6,383评论 0 17
  • 个人学习批处理的初衷来源于实际工作;在某个迭代版本有个BS(安卓手游模拟器)大需求,从而在测试过程中就重复涉及到...
    Luckykailiu阅读 4,712评论 0 11
  • 1.创建文件夹 Dir.new %%1 Dir::mkdir #不指定目录全名称时,缺省为工作目录 Dir::ch...
    素还真人阅读 473评论 0 0
  • 1.1 VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得...
    浮浮尘尘阅读 21,735评论 6 49
  • 面膜~传播力,爱美的你会爱上他 ~互动性,不远万里贴一贴 汽车~鼓动性,你和她的距离,其实就是车内车外 ...
    84李娟阅读 139评论 0 0