Excel VBA 利用文字檔作版本的控制

這個小程式，實在是我目前想得出來的方法了； 
畢竟不是每個使用者，都會乖乖的從公司的內部網頁， 
每次要用的時候，再去下載。
那常常會發生 Client 端的檔案 與放在 Server 端的檔案，
是不一樣的  =.="

所以在ThisWorkbook的Open 事件中呼叫ReadVersionFile程序
-----------------------------------------------
Sub Workbook_Open()
    '版本判斷
    ReadVersionFile
End Sub

個人習慣將 Sub 程式寫在模組中
-----------------------------------------------
Sub ReadVersionFile()
    '在程式中宣告版本
    Dim Ver As Integer
    Ver = 1
 
    Dim VerFileName As String
    Dim VerFileNum As Integer
    Dim CompVer As String

    '版本位置
    VerFileName = "\\svr\UpdateVesion\品號基本資料查詢.txt"

在文字檔設定最新版本，如果程式版本小於最新版本，就須要更新。

    '檔案是否存在
    If Len(Dir$(VerFileName)) = 0 Then
        MsgBox "無法查詢版本，請洽資訊部！"
        Sheets("查詢條件").Visible = False
        Exit Sub
    End If
 
    '讀取檔案
    VerFileNum = FreeFile()
    Open VerFileName For Input As VerFileNum
    Line Input #VerFileNum, CompVer
 
    Close VerFileNum
 
    '版本小於指定版本
    If Ver < CInt(CompVer) Then
        MsgBox "請至內部網站更新版本！"
        Sheets("查詢條件").Visible = False
        Exit Sub
    End If
End Sub