VBA 宏代码 自动更新 FTP 自动升级 模块导入即可

支持个人原创 转发请注明出处-出品人：劫米 由于公司做一个excel模板发给客户，录入后有一些vba的宏代码实现，每次修改都要客户重新录入比较麻烦，所以想到了远程单独实现升级代码块的功能。找了很多网上的资料都没有很好的实现。 所以自己写了一个用宏生成ftp脚本下载后，更新的模块，导入即可使用，非常方便。 自动升级模块我做成了ftp服务器的模式，在ftp上面放了一个ver.txt里面第一行版本号，第二行更新日期，第三行开始可以写一些注释或者更新说明 当判断ver.txt里面的版本与本地excel的autoupgrade_main里面的版本号不一样时，就会去下载ftp上面的bas,cls,frm宏代码块更新（这些格式的文件就是宏代码，导出的格式） 这样每次修改只要右键导出修改的vba代码块 当然每次修改都要修改下autoupgrade_main版本号加下，然后也导出，不然下回用户把其他模块更新完了，但是本地的版本号还是旧的，仍旧会更新 另外还支持手工配置升级的ftp 里面还有一个方法 copyfilexxx 这个是可以从共享服务器上面更新的，目前我没有使用，你修改下调用和相关的代码这个就可以改为从共享上面取更新了。

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3512  2013-08-23 21:03  ver2_带可手工录入升级服务器信息\AutoUpgrade_Main.bas

     文件      22802  2013-08-23 21:03  ver2_带可手工录入升级服务器信息\AutoUpgrade_MOUPGRADE.bas

     文件       1047  2013-08-23 21:03  ver2_带可手工录入升级服务器信息\DBUpgrade.frm

     文件      38424  2013-08-23 21:03  ver2_带可手工录入升级服务器信息\DBUpgrade.frx

     文件         64  2013-08-23 21:03  ver2_带可手工录入升级服务器信息\DBUpgrade.log

     文件        639  2013-08-23 21:03  ver2_带可手工录入升级服务器信息\DBUpgrade_SelSer.frm

     文件       6168  2013-08-23 21:03  ver2_带可手工录入升级服务器信息\DBUpgrade_SelSer.frx

     目录          0  2013-08-23 21:03  ver2_带可手工录入升级服务器信息

     文件        885  2013-08-23 21:17  Readme.txt

----------- ---------  ---------- -----  ----

                73541                    9