PTT數位生活區 / Office

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

看板Office作者 (鄉民愛發呆)時間6年前 (2019/11/07 09:47), 6年前編輯推噓0(0推 0噓 9→)
留言9則, 2人參與, 6年前最新討論串1/1
軟體: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
→
11/07 09:54, 6年前 , 1F
自行選擇開啟檔案的話 application.filedialog
11/07 09:54, 1F
請問是改成這樣嗎? Workbooks.Application.FileDialog:="C:\Users\ME\Desktop\" :=會顯示錯誤，必須為運算式 ※ 編輯: abc9gad (210.242.212.205 臺灣), 11/07/2019 10:13:39
→
11/07 10:17, 6年前 , 2F
不是 filedialog(..)有參引數可使用 google就有寫法
11/07 10:17, 2F
→
11/07 10:20, 6年前 , 3F
因要自行選擇開啟檔案..filedialogtype就以..filepicker
11/07 10:20, 3F
請問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
→
11/07 11:03, 6年前 , 4F
1.這個巨集是選取多個檔案，是這原po要的嗎？
11/07 11:03, 4F
→
11/07 11:05, 6年前 , 5F
如果是msgbox後面就是所選取的路徑和完整檔名
11/07 11:05, 5F
→
11/07 11:05, 6年前 , 6F
就可利用在workbooks.open filename
11/07 11:05, 6F
→
11/07 11:07, 6年前 , 7F
2.如果不是，也可以使用，就只選一個檔案，迴圈上就執行一
11/07 11:07, 7F
→
11/07 11:08, 6年前 , 8F
次，或是要找其他巨集，不將..multiselect變為真的
11/07 11:08, 8F
→
11/07 13:15, 6年前 , 9F
先謝謝s大
11/07 13:15, 9F
‣ 更多 abc9gad 的文章
文章代碼(AID): #1TmtUWc0 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 abc9gad 的文章
文章代碼(AID): #1TmtUWc0 (Office)