【EXCEL】- VBA - 檢查目前的EXCEL作業表單是否為最新的版本?

在目前的工作小組,人數約莫有十初來人。為了工作上的效率,不可避免的,一定會設計一些共用的EXCEL表單及加VBA來加速資料的處理。但時間一久,這些EXCEL工作表單一定會有改版的需求。久而久之,每個人使用的版本都會是不一樣。當然也就造成了一些問題。

如何讓每個人都使用最新版的EXCEL表單來做事?所以,這時版本的控制就是一很重要的課題了。對於會寫程式的熟手而言,可能有辦法很簡單的去控制。但對於我們這些不會寫程式的人而言,卻是一個大問題。

目前想到的作法是:

  1. 在網路磁碟上建立一個文字檔案。
  2. 文字檔案內容為最新版本的序號。
  3. 在執行EXCEL VBA的工作表單時,先檢查該EXCEL表單的版本,再比對網路碟磁上的序號。
  4. 兩者相符時,繼續執行。
  5. 兩者版本不符時,出現提示訊息後,直接關閉該EXCEL。

 

 

原始碼如下:

'********************************************************
' 檢查版本是相符
'********************************************************
Dim FilePathName As String
Dim LatestVersion As String


FilePathName = "\\Company\Release_Form\LatestVersion.txt"

Open FilePathName For Input As #1

Do Until EOF(1)
    
    Line Input #1, LineFromFile
    'MsgBox (LineFromFile)
    LatestVersion = LineFromFile
Loop


Close #1

Dim NowVersion As String
Dim 目前檔案名稱 As String
目前檔案名稱 = Application.ActiveWorkbook.Name



Sheets("Main_Page").Select
NowVersion = ActiveSheet.Range("B1").FormulaR1C1

If NowVersion <> LatestVersion Then

  MsgBox ("目前使用之版非最新版,檔案即將關閉")
  Windows(目前檔案名稱).Close

End If

 

 

找到你要的答案了嗎?若是,請別急著走,更不要吝嗇你的掌聲,撥個兩秒鐘,幫忙按個「」吧。另外,工商服務的視窗也是很精采的,別忘了多留意一下,是否有你需要的資訊。

賈伯斯說:求知若渴,虛懷若愚。處處留心皆學問,說不定這些精采的廣告,還可以讓你的人生旅途更加的豐富、更加的精采。

 

① 為了讓下一個查詢資料的人,可以更快速的查詢到正確的資料,如您有其它資訊可提供,或發現以上訊息有誤時,煩請留下訊息,我們將立即更正。

② 以上資料僅供參考,實際費用仍以原始店家公告為準。

 

 

 


arrow
arrow
    文章標籤
    EXCEL EXCEL VBA
    全站熱搜

    News123 發表在 痞客邦 留言(0) 人氣()