如何实现vba代码的自动更新，或者说是打补丁？

huazi_007cn · 发表于 2013-5-9 12:41

工作表写了很多代码，给同事用。如果后期发现有bug的话，想进一步完善代码，有没有办法将新的代码集成补丁包形式发给同事，然后同事自己能够升级？或者工作表里设置“升级”按钮，我将新代码发给同事，同事一键升级到新代码？主要是因为工作表数据太多，如果发新的工作表文件给同事，数据再重新录入的新表太麻烦。注：工作簿格式和名称都固定，不变化。

有没有这方面的成功例子？

huazi_007cn · 发表于 2013-5-9 14:34

求助大神们啊！{:soso_e100:}

crazy0qwer · 发表于 2013-5-9 15:17

huazi_007cn 发表于 2013-5-9 14:34
求助大神们啊！

参考：
更新 "模块1" ，为当前目录下的模块文件 "MyUpdate" ,并删除更新文件。

Sub UPdate()
With ThisWorkbook.VBProject
.VBComponents("模块1").Name = "DEL" '防止有时候不能及时删除，导致后面改名失败。
.VBComponents.Import(ThisWorkbook.Path & "\MyUpdate.bas").Name = "模块1"
.VBComponents.Remove .VBComponents("DEL")
End With
ThisWorkbook.Save
Kill ThisWorkbook.Path & "\MyUpdate.bas"
End Sub

复制代码

模块更新.rar (7.02 KB, 下载次数: 320)

kangatang · 发表于 2013-5-9 18:23

本帖最后由 kangatang 于 2013-5-9 18:24 编辑

crazy0qwer 发表于 2013-5-9 15:17
参考：
更新 "模块1" ，为当前目录下的模块文件 "MyUpdate" ,并删除更新文件。

求大侠帮我测试一下（需解压到同一个目录下！！）

代码本地更新.rar (9.98 KB, 下载次数: 340)

xa100 · 发表于 2013-5-9 18:30

。。。。。。。。。。留名

kangatang · 发表于 2013-5-9 18:44

本帖最后由 kangatang 于 2013-5-9 18:51 编辑

网络版更新代码

Updatable_从网络更新代码.rar (11.27 KB, 下载次数: 800)

tcy119 · 发表于 2013-5-10 15:10

大侠，点击CERRPY-按键，就出现运行时出错“1004” ，不是为什么，谢谢！

kangatang · 发表于 2013-5-18 16:09

tcy119 发表于 2013-5-10 15:10
大侠，点击CERRPY-按键，就出现运行时出错“1004” ，不是为什么，谢谢！

看这里
： http://club.excelhome.net/thread-1015638-4-1.html

hqlin65 · 发表于 2019-1-12 23:22

crazy0qwer 发表于 2013-5-9 15:17
参考：
更新 "模块1" ，为当前目录下的模块文件 "MyUpdate" ,并删除更新文件。

您好！模块更新如果有多个，且每次更新时不是固定的模块，即有时是A模块，有时是B模块，应该如何处理？谢谢！

liu_de · 发表于 2019-11-7 17:38

2013年的帖子，还有人回复吗？附件中的模块文件，kanga后缀是什么文件？我现在的bas模块，运行加载后前面老是多一行代码。

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

[求助] 如何实现vba代码的自动更新，或者说是打补丁？

评分