iT邦幫忙

0

編寫巨集開啟檔案要如何開啟某字元開頭的檔案

  • 分享至 

  • xImage

各位大大好
小弟最近想用excel存一個巨集
該功能主要是可以開啟同目錄下的一個主要檔案
因為每個月公司都會產出好幾個excel檔
一個主檔+數個細項檔
想請教能否做到下述的功能
比如說目前確定主檔開頭都會是a(同目錄下也只有這一個a開頭的檔案)
所以希望這個寫完的巨集自己存成一個xlsm檔
然後放到每一個月的檔案夾內
讓他可以通用的開啟每一個月的主檔
以下程式碼是目前寫來開啟11月的,所以path的部分直接把檔案名打上去了
想問問有辦法修改成上述那樣的功能嗎?
直覺上不是很難的問題,但google了許久都沒找到方法
不知道是不是我的關鍵字設得不好@@
麻煩各位高手指點迷津

Sub openMain()
    Dim path As String
    path = Application.ActiveWorkbook.path
    If IsWbOpen1("a202211.xlsx") Then
    Workbooks("a202211").Activate
    Else
    Workbooks.Open (path & "\a202211.xlsx")
    End If
End Sub
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

1
johncoc
iT邦新手 3 級 ‧ 2022-11-25 18:08:40
sss86925 iT邦新手 5 級 ‧ 2022-11-29 16:39:26 檢舉

感謝Jonhcoc大幫忙
我後來用Dir從該目錄中先找到相對應開頭的檔案
再把檔案名稱指定給變數
然後最後開啟檔案的名子=剛剛找到那個變數
也能成功處理,希望能幫忙到遇到類似問題的人

我要發表回答

立即登入回答