代码写不来,何苦为难自己呢?毕竟学个代码花的时间成本太高,学完了可能连练手的机会都没有最后导致全忘,别问我怎么知道的!还不如了解点原理,能看懂点关键信息,能根据自己的要求稍微做一些更改,能用,能提高效率,何乐而不为呢?其实,你不知道的是:我一直是这么干的,而且还有一帮非常厉害的幕后高手在支持我。
今天继续给大家分享一个批量操作的代码吧。
这两天在整理之前零散发布过的技巧知识点,上线后再通知大家吧。课程永久免费,无限时学习,而且每个视频都配套了素材可以进行同步练习,不定期还会更新。
在整理素材的时候,我的Excel VB需求就来了:因为为了给自己做个宣传,不得已需要将自己的公众号和个人的微信二维码都公布在素材的最后一个Sheet中,但是这里有34堂课,意味着有34个Excel文件,也就是说我要打开34个工作簿,每个工作簿单独插入一下,如果是340个文件,这么插下去,一天啥都别干了。
直接百度找到一段,关键词就直接搜索:批量在工作簿中插入工作表。第一个就找到了。
进入之后,看过之后,完全符合我的需求,找到代码,复制到Excel之中。
接下来,就是改代码的时候了:
这几句不用管,你就当成是固定模式,反正有可能你也看不懂。接下来,我们看到代码中的绿色注释部分,这些绿色文字是不会参与到代码的运行之中的,它就是一个解释。
这一句里面的“五座神山”是文件夹的名称,这里我们肯定要改,比如我要批量添加工作表的工作簿都放在一个文件夹下,这里为了方便演示,我“新建文件夹”就放在桌面上,我写好代码的这个Excel文件也放在桌面上,效果是这样的:
所以上述的代码会改成:
意思就是获取这个新建文件夹下的所有文件名称,这里需要强调的是有代码的那个Excel文件必须与这个“新建文件夹”在一个层级中。
接下来的关键是这里:
这段代码很显然我们还是要把“五座神山”改为“新建文件夹”,如下:
到这里,基本就改完了,我们来试一下,在新建文件夹里面随便放两个后缀名是的xlsx的文件吧。
我们将有代码的Excel单元格插入内容,将工作表标签也重新进行一下命名,打开更新后的代码,直接运行:
屏幕稍微闪了一下,就完成了插入。打开看看效果,两张表都已经完成了相同工作表的添加,而且都是插在了最前面,但是一般我们都是要放在所有工作表的最后,所以这里就又要进行改动了。
这里就需要有一丢丢的知识:
比如我们需要对工作簿中的工作表进行计数判断,然后计算机才能告诉你什么是最后,这里因为涉及到简单的语句,就不啰嗦了,直接来就是:
最后我们把之前的工作表恢复成原始状态,重新运行一下再看看效果。
这样,是不是就变成自己想要的了?如果你经常用到这些的话呢,你还可以根据我之前讲解过的,将其放在你的加载项中,后期可以随时进行调用,不用担心要用的时候找不到代码。
最后,还是希望大家可以多借用有效的工具,提高工作效率吧。
网友评论