[問題] 如何用VBA載入檔案,選擇特定條件的值？

[hyvi (過了都過了)]

軟體:office 365 excel

版本:office 365 excel

大師們求救
我有1個表A,N個檔案,檔案內容也很多筆
請問如何用vba按一個按扭,載入一個不指定路徑的檔案（手選）,而且不打開複製來源檔,
只選擇要的欄位並篩選需要的值？
如圖1
我要C欄的值,條件是F欄是Y組的才要(如圖1),然後貼到表A的B2開始,大概變成(圖2)的樣
子,感謝。

圖1
https://imgur.com/SBMfGRx

圖2
https://imgur.com/lFGKdiV

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.125.160.144 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1569323869.A.5D1.html
→ soyoso: 不開檔的話，ado range.copyfromrecordset
推 ptguitar: 我都是開了後再close掉
→ hyvi: 求救,請問這樣還可以怎麼改？https://imgur.com/aC6QoVd
→ soyoso: 原po是要selecteditems這個屬性吧，是的話先.show，選取檔
→ soyoso: 案後，用個變數=.selecteditems(1)來取得所選取檔案的資料
→ soyoso: (路徑和完整檔名)
→ soyoso: 以連結巨集來看，在迴圈前應是還要在加上開檔workbooks.
→ soyoso: open的動作
→ soyoso: 不開檔的話也可用個儲存格，以公式='完整路徑[完整檔名]工
→ soyoso: 作表名稱'!儲存格的方式帶入值，再判斷該儲存格，符合，帶
→ soyoso: 入其他儲存格內的資料(同回文以公式)，之後不要該公式的話
→ soyoso: 再選擇性貼上(值)
→ hyvi: 好難懂,我改這樣還是不能https://imgur.com/Wtn6h52
→ soyoso: 不是"filename"這個字串，而是.selecteditems(1)所取得的
→ soyoso: 字串
→ soyoso: 而這個字串包含了路徑和完整檔名，而workbooks()括號內要
→ soyoso: 的是完整檔名
→ soyoso: 如果不要還在那裡取出完整檔名的話，set 變數 = workbooks
→ soyoso: .open，變數.worksheets(..)的方式來做
→ hyvi: 用最後的方式改無法,https://imgur.com/FsPAcNx
→ soyoso: 不是，原本巨集內就寫了workbooks.open filename:=...
→ soyoso: set 變數 = workbooks.open
→ soyoso: 原本參引數不用括號，set時要加上
→ hyvi: 謝謝指導,但太深奧了,我看不懂.
→ soyoso: 就是workbooks.open filename:=.selecteditems(1)
→ soyoso: 改為set book2 = workbooks.open(filename:=.selecteditem
→ soyoso: s(1))
→ soyoso: 而set book2 = workbooks.open這行就刪除
→ hyvi: 謝謝,這行過了下半段還是一堆問題