VBA 更新ThisWorkbook模块的内容

最新推荐文章于 2024-05-08 20:21:09 发布

百事悠弦

最新推荐文章于 2024-05-08 20:21:09 发布

阅读量5.8k

点赞数

分类专栏：懒人脚本文章标签： VBA ThisWorkbook 删除批量修改更新

本文链接：https://blog.csdn.net/zutsoft/article/details/48339415

版权

本文介绍了如何批量更新多个Excel工作簿中ThisWorkbook模块的VBA代码。作者lianghc分享了删除原有脚本并插入新脚本的步骤，包括启用对Visual Basic项目的信任访问，以实现自动化更新。

摘要由CSDN通过智能技术生成

作者：lianghc

最近需要更新一些老旧的excel里面的vba脚本，即：将同一段VBA代码，分别复制到N个不同的excel工作簿内的ThisWorkbook模块中，思路时先删除里面的脚本，然后再插入新的脚本。

更新ThisWorkbook模块的内容

Sub updateWbkCode()
Dim dirtemp As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

newcode =

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

百事悠弦

关注关注

0
点赞
踩
10

收藏

觉得还不错? 一键收藏
打赏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

VBA依次打开当前文件夹中所有的工作簿并且向里面写入内容

XENIA1992的博客

03-26

3057

'依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存 Sub OpenAndSave() Dim myPath$, myFile$, AK As Workbook Dim sh As Worksheet Dim i As Integer i = 2 Dim fname As String Application.ScreenUpd.

vba 2007 ActiveWorkbook.SaveAs problem

贾亮的专栏

08-28

2424

vba 2007 ActiveWorkbook.SaveAs problem 在使用vba保存生成的excel文件后，然后在打开总是提示格式不对，不管提示，进入后格式时对的，数据也可以显示。最后google之，原来在2003之后使用ActiveWorkbook.SaveAs时必须指定文件类型。 51 = xlOpenXMLWorkbook (without macro's in 2007,

参与评论您还未登录，请先登录后发表或查看评论

隐藏的模块中编译错误：ThisWorkbook.

最新发布

06-03

本文将深入探讨如何利用VBA来根据工作表的内容行名拆分表格，从而提高工作效率。首先，我们需要理解VBA的基本结构。在WPS中，你可以通过插入宏模块来开始编写VBA代码。一个宏模块通常包含Sub过程（子程序），这些...

vba 定义类_类模块的定义及设计

weixin_39644614的博客

11-21

1380

（接上讲）3.类模块类模块是面向对象编程的基础，可以在类模块中编写代码，为并着手建设，为建立新对象做基础准备。这些新对象可以包含自定义的属性和方法。实际上，窗体正是这样一种类模块，在其上可安放控件。再次重复一遍，窗体正是这样一种类模块。用类模块创建对象，这些对象可被应用程序内的过程调用。标准模块只包含代码，而类模块包含代码又包含数据，可视为没有物理表示的控件。什么是没有物理表示呢？看过我之前章节...

Excel VBA Project密码移除代码

11-18

在Excel中，VBA（Visual Basic for Applications）是一种强大的编程工具，允许用户自定义工作簿、工作表和宏的行为。然而，有时我们可能会遇到带有密码保护的VBA项目，这可能阻碍了对代码的查看或编辑。本篇文章将...

VBA|每次打开excel自动更新vba代码中的模块

恰排骨芸豆包嘛的博客

07-02

2962

vba嵌入的特殊功能模块有时会做更改，为了节省时间，可以在thisworkbook中添加如下代码，实现每次打开excel文件，自动导入最新版本的模块。 Private Sub Workbook_Open() Dim s As String Dim arr Dim brr Dim i As Integer On Error Resume Next ...

【VBA】学习笔记一

可爱公仔的博客

09-20

820

任何对象都有属性，可以通过对象.下拉寻找手指图标的属性（注意绿色图标是方法）方法是对象所能执行的动作，是个动词。可以通过对象.下拉寻找绿色图标的方法。'第n个工作表，按工作表的顺序，按照excel下栏的顺序。如手机是对象，手机的颜色、品牌、尺寸等是手机的属性。'第n个工作表，按系统工作表名，vba编码界面的。如手机是对象，玩游戏、拍照、打电话等是手机的方法。'范围可以一个单元格、一行、一列、一个区域。'活动工作表，当年操作编辑的工作表。常用对象有工作簿、工作表、单元格。对象名在前，属性名在后。

excel导入string时间字段_流水账3 自动更新excel文档中的VBA模块

weixin_32641435的博客

12-28

255

1、之前写了一些公用模块（比如查询，配置，导表）。图为一个对index+match函数的简单封装2、然后我肯定需要在多个工作簿中使用它们。为此我建立了一个公用的宏表模板（xltm）并且插入了我希望在每个新的工作簿中出现的模块。这样每次我在新建设计表的时候就可以让它们自带写好的模块。3、后来我对公用模块进行了多次功能迭代，比如增加了新的功能，改进了旧功能的容错性。问题出现了，我有太多的地方用到...

VBA与EXCEL中的名称

weixin_44462444的博客

06-16

965

VBA与EXCEL中的名称在VBA中, 可以使用比如这样[range4]来直接引用名称, 此名称的名字是"range4" 另外, For each n in thisworkbook.names : n.visible=true: debug.print n.name 可以进行遍历, (取消)隐藏等工作. 可以使用[range4]来引用其内容, 突然想起来使用[a2]=“234”, 可以对[a2]单元格进行赋值, 可能是同样的对名称引用的方式. 示例如下: For Each n In ThisWorkbo

【VBA入门】WorkBook 对象 Name操作宏录制筛选删除代码

偶尔想看云飞的博客

08-12

1566

如果省略该参数，那么将创建包含一定数量空工作表的工作簿，工作表数为SheetsInNewWorkbook属性所设置的数量。对应的工程文件视图中，有两个Sheet1，现在我手动改变Sheet1表格名字，测试wb.Sheets(1)表示所有Sheet表（Sheets）的第一表命名为“产品名称”上面的代码在工作表Sheet2中创建一个局部名称MyName2，代表Sheet2中的单元格区域A1：B3。上面的代码在当前工作簿中将工作表Sheet1内的区域B2：D6命名为MyName，该名称为。

VBA程序升级，vba在线更新

weixin_41716390的博客

01-21

1614

VBA程序升级，vba在线更新

VBA代码远程在线更新

weixin_46103123的博客

05-07

546

VBA代码远程更新在线更新版本控制更新

VBA|使用vba代码批量添加vba代码

恰排骨芸豆包嘛的博客

07-02

941

Sub CommandButton1_Click() On Error Resume Next Dim fd As FileDialog, it Dim fso As Object Dim file_name As String Dim new_dir As String Dim strFolder As String Dim wb As ...

thisworkbook与activeworkbook之间复制的解决办法

weixin_43721369的博客

03-20

7214

在Application对象体系中，ThisWorkbook对象是VBA顶级对象Application下的一个特殊对象，代表当前（VBA代码所在的）工作薄对象。ActiveWorkbook对象也是VBA顶级对象Application下的一个特殊对象，代表当前激活的工作薄对象。 VBA编程中有时候会用到非thisworkbook的表格复制到thisworkbook工作簿中，如VBA在workbo...