分享+求助 模块本地自动更新

dyhq2012

Bookup.rar (294.55 KB, 下载次数: 15)

2020-6-6 18:45 上传

点击文件名下载附件

这几天逛本论坛 弄了这个。1、本来想列出模块名后 自动生成 复选框 选中的进行更新。（不会弄）
2.现在弄成 列出 模块名 后出，在b1 C1 做了 个下拉框。进行更新


求助

1.如果 可以 只列出模块 （不列出 表 和窗体 ）
2. 希望大师给更新这个宏 加入个判断。不存在 会出错。


Sub UPdate()
mk = [B1]
mk2 = [C1]
    With ThisWorkbook.VBProject
        .VBComponents(mk).Name = "DEL"   '防止有时候不能及时删除，导致后面改名失败。
        .VBComponents.Import(ThisWorkbook.Path & "\" & mk2).Name = mk
       .VBComponents.Remove .VBComponents("DEL")
    End With
    ThisWorkbook.Save
   
   MsgBox "更新完毕！"
    Range("b1:c1").ClearContents
End Sub

yes363001640

我也是看到那个高手的帖子然后琢磨好久才应用于局域网的更新，后来又看到他有网络更新的，但是最新的网络更新的办法我有点看不懂，所以我想了一个懒办法，先下载，然后再用局域网更新的办法替换模块。这个附件就是网络更新的。内网试了可以，外网不知道行不行。不过有一点就是不能设置工程密码，之前有个帖子是绕过工程密码的办法，其实可以加进去。

microyip

没想到你查模块为了做这个，可能意义不是很大，毕竟代码都是针对实际操作而写。