[算表] 使用VBA開啟資料夾問題

[abc9gad (鄉民愛發呆)]

軟體:EXCEL

版本:2010

版上前輩好，我在錄製巨集的時候，需要開啟以下路徑的檔案

但因為該檔案名稱有可能會變動，請問有辦法改成開啟資料夾位置，

由我自行選擇開啟的檔案嗎 謝謝

    ChDir "C:\Users\ME\Desktop"
    Workbooks.Open Filename:="C:\Users\ME\Desktop\成品綜合1107.xlsm"

--
這是我的故鄉 我的夢

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 210.242.212.205 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1573091232.A.980.html
→ soyoso: 自行選擇開啟檔案的話 application.filedialog
請問是改成這樣嗎?
Workbooks.Application.FileDialog:="C:\Users\ME\Desktop\"
:=會顯示錯誤，必須為運算式
※ 編輯: abc9gad (210.242.212.205 臺灣), 11/07/2019 10:13:39
→ soyoso: 不是 filedialog(..)有參引數可使用 google就有寫法
→ soyoso: 因要自行選擇開啟檔案..filedialogtype就以..filepicker
請問S大，有成功開啟檔案，不過無法接著執行開啟檔案後接下來的錄製項目
有什麼方法可以將開啟檔案後的巨集直接繼續往下執行嗎 謝謝
Sub UseFileDialogOpen()

    Dim lngCount As Long

    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show

        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount

    End With

End Sub
※ 編輯: abc9gad (210.242.212.205 臺灣), 11/07/2019 11:01:09
→ soyoso: 1.這個巨集是選取多個檔案，是這原po要的嗎？
→ soyoso: 如果是msgbox後面就是所選取的路徑和完整檔名
→ soyoso: 就可利用在workbooks.open filename
→ soyoso: 2.如果不是，也可以使用，就只選一個檔案，迴圈上就執行一
→ soyoso: 次，或是要找其他巨集，不將..multiselect變為真的
→ abc9gad: 先謝謝s大