VBA程序升级，vba在线更新

最新推荐文章于 2025-11-17 15:15:09 发布

原创

最新推荐文章于 2025-11-17 15:15:09 发布 · 2.1k 阅读

8 ·

CC 4.0 BY-SA版权

文章标签：

#全文检索

本文介绍了如何通过VBA实现程序的在线更新。首先需要在服务器或直链下载空间存储新版本的XLSM宏文件和网络版本号文本。然后，更新版本号并在WorkbookOpen事件中检查本地版本与服务器版本，如果存在新版本则自动下载并替换旧文件，完成更新过程。

升级前提是要有一个服务器或者直链下载空间，用于存放新版本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 Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Public Sub 升级主程序()
Dim e, h As In

最低0.47元/天解锁文章