升级前提是要有一个服务器或者直链下载空间,用于存放新版本URL直链的xlsm宏文件和网络版本号.txt
思路:1,新版本URL直链的xlsm宏文件和网络版本号.txt放到服务器上或者直链下载空间里。
2,新版本URL直链的xlsm宏文件用一个不常用单元格用于存放新版本号,比如Sheets(3).[a10000]写入:V1.0,这个版本号必须和网络版本号.txt里面的一致,以便多个版本比对更新。
4,先到服务器上或者直链下载空间里打开网络版本号.txt,更改最新版本号,并同步把这个版本号写入新版本URL直链的xlsm宏文件的Sheets(3).[a10000]中
5,本地启动工作薄后在workbookopen事件中,先下载网络版本号.txt,取出最新版本号,后和旧版本的Sheets(3).[a10000]里面的版本号作对比,下载新版本URL直链的xlsm宏文件,旧xlsm宏文件销毁自身,实现更新。
具体实现代码
'下载和清空缓存api函数申明
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szExtName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Decla