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

excel vba marco excel vb vba

sss86925 2022-11-25 17:08:54 ‧ 1451 瀏覽

分享至

各位大大好
小弟最近想用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