作者abc9gad (鄉民愛發呆)
看板Office
標題[算表] 使用VBA開啟資料夾問題
時間Thu Nov 7 09:47:09 2019
軟體:EXCEL
版本:2010
版上前輩好，我在錄製巨集的時候，需要開啟以下路徑的檔案
但因為該檔案名稱有可能會變動，請問有辦法改成開啟資料夾位置，
由我自行選擇開啟的檔案嗎 謝謝
ChDir "C:\Users\ME\Desktop"
Workbooks.Open Filename:="C:\Users\ME\Desktop\成品綜合1107.xlsm"
--
這是我的故鄉 我的夢
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 210.242.212.205 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1573091232.A.980.html
1F：→ soyoso: 自行選擇開啟檔案的話 application.filedialog 11/07 09:54
請問是改成這樣嗎?
Workbooks.Application.FileDialog:="C:\Users\ME\Desktop\"
:=會顯示錯誤，必須為運算式
※ 編輯: abc9gad (210.242.212.205 臺灣), 11/07/2019 10:13:39
2F：→ soyoso: 不是 filedialog(..)有參引數可使用 google就有寫法 11/07 10:17
3F：→ soyoso: 因要自行選擇開啟檔案..filedialogtype就以..filepicker 11/07 10:20
請問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
4F：→ soyoso: 1.這個巨集是選取多個檔案，是這原po要的嗎？ 11/07 11:03
5F：→ soyoso: 如果是msgbox後面就是所選取的路徑和完整檔名 11/07 11:05
6F：→ soyoso: 就可利用在workbooks.open filename 11/07 11:05
7F：→ soyoso: 2.如果不是，也可以使用，就只選一個檔案，迴圈上就執行一 11/07 11:07
8F：→ soyoso: 次，或是要找其他巨集，不將..multiselect變為真的 11/07 11:08
9F：→ abc9gad: 先謝謝s大 11/07 13:15