远程云端更新本地文件里的VBA代码

li446425169

今天整理电脑桌面时看到了几个月前整合的一个文件，
总体思路如下，

1.本地xlsm文件启动时打开事件执行网络版本的检测。
2.获取本地文件的版本号。
3.对比网络版本号和本地版本号大小，网络版本号>本地版本号则提示更新（目前是强制更新，也可修改为选择是否更新）。
4.下载云端网络的更新文件xlsm。
5.执行更新程序
  a.先删除本地xlsm文件里的标准模块、类模块、窗体模块。
  b.删除指定文件夹及其内容（如果存在。防止之前下载的更新内容被当做新版本误更新）。
  c.创建指定文件夹，将下载的云端文件打开并将标准模块、类模块、窗体模块导出至文件夹并关闭下载的云端文件。
  d.将文件内的标准模块、类模块、窗体模块导入进本地文件内。
  e.导入完成后将最新网络版本号写入注册表内完成版本号替换。
  f.删除指定文件件。

原本是把云端版本号和本地版本号都写在模块里。后来测试过程中每次获取云端版本号要先把云端文件下载下来打开再读取模块里的版本号内容再做对比，对我来说有点难度。看了网络上的思路版本号放在txt文件里是个思路，就把网络文件和网络版本号分开了。本地文件版本号放在模块里要单独占用一个模块也容易修改还是觉得放在注册表里隐藏一点。

大家下载附件测试时下载的文件里只有Thisworkbook里有打开事件，其他没有任何模块，但是当执行云端文件更新时会自动添加一些标准模块、类模块、窗体模块（没有内容，只有注释），我的电脑是win10+office2010 32位一切测试正常。

更新前 ↓

更新后 ↓

网络地址我用的是https://gitee.com，至少这个网址不用付费也不会倒闭也能上传.xlsm文件(很多网站因为不安全限制.xlsm文件上传)
这个文件实现了云端文件模块里的代码更新至本地文件，但也很容易被破解（比如：关闭宏、提前修改注册表里的本地版本号为最大值）

欢迎交流意见：

Wslhwps

感谢分享！            
升级更新程序是为用户着想的事情，没有人会拒绝的，所以，应该不用考虑破 解的烦恼。如果需要，可以封装。

沈默00

值得学习一下，

老姜007

不错，我测试了64位也可以

tspliu

老姜007 发表于 2023-11-10 11:48
不错，我测试了64位也可以

....为啥我打开是空的，什么代码什么模块也没有啊

lilyhcn1

现在喜欢用加载宏xlsa。表格就是正常的xlsx文件，安装插件后会自动加载宏。就可以和xlsm一样了。

老姜007

tspliu 发表于 2023-11-10 14:13
....为啥我打开是空的，什么代码什么模块也没有啊

你打开注册表检查一下，可能已经执行过了，在注册表中已经添加过版本号了

nbtooyou

博主这个挺厉害，学学，  是不是也可以远程同步数据了

七彩屋

挺厉害的，学习一下。

lizhipei78

一般使用WPS就可以了