資源簡介
支持個人原創(chuàng) 轉(zhuǎn)發(fā)請注明出處-出品人:劫米
由于公司做一個excel模板發(fā)給客戶,錄入后有一些vba的宏代碼實現(xiàn),每次修改都要客戶重新錄入比較麻煩,所以想到了遠程單獨實現(xiàn)升級代碼塊的功能。找了很多網(wǎng)上的資料都沒有很好的實現(xiàn)。
所以自己寫了一個用宏生成ftp腳本下載后,更新的模塊,導(dǎo)入即可使用,非常方便。
自動升級模塊我做成了ftp服務(wù)器的模式,在ftp上面放了一個ver.txt里面第一行版本號,第二行更新日期,第三行開始可以寫一些注釋或者更新說明
當判斷ver.txt里面的版本與本地excel的autoupgrade_main里面的版本號不一樣時,就會去下載ftp上面的bas,cls,frm宏代碼塊更新(這些格式的文件就是宏代碼,導(dǎo)出的格式)
這樣每次修改只要右鍵導(dǎo)出修改的vba代碼塊
當然每次修改都要修改下autoupgrade_main版本號加下,然后也導(dǎo)出,不然下回用戶把其他模塊更新完了,但是本地的版本號還是舊的,仍舊會更新
另外還支持手工配置升級的ftp
里面還有一個方法 copyfilexxx 這個是可以從共享服務(wù)器上面更新的,目前我沒有使用,你修改下調(diào)用和相關(guān)的代碼這個就可以改為從共享上面取更新了。

代碼片段和文件信息
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件???????3512??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\AutoUpgrade_Main.bas
?????文件??????22802??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\AutoUpgrade_MOUPGRADE.bas
?????文件???????1047??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade.frm
?????文件??????38424??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade.frx
?????文件?????????64??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade.log
?????文件????????639??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade_SelSer.frm
?????文件???????6168??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade_SelSer.frx
?????目錄??????????0??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息
?????文件????????885??2013-08-23?21:17??Readme.txt
-----------?---------??----------?-----??----
????????????????73541????????????????????9
-----------?---------??----------?-----??----
?????文件???????3512??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\AutoUpgrade_Main.bas
?????文件??????22802??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\AutoUpgrade_MOUPGRADE.bas
?????文件???????1047??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade.frm
?????文件??????38424??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade.frx
?????文件?????????64??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade.log
?????文件????????639??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade_SelSer.frm
?????文件???????6168??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息\DBUpgrade_SelSer.frx
?????目錄??????????0??2013-08-23?21:03??ver2_帶可手工錄入升級服務(wù)器信息
?????文件????????885??2013-08-23?21:17??Readme.txt
-----------?---------??----------?-----??----
????????????????73541????????????????????9
- 上一篇:FTP for vb
- 下一篇:VB.NET.tcp TCPClient.zip
評論
共有 條評論