[發問] VBA 開啟多個檔案 複製貼上

character

大家好，我是VBA新手，爬了很多文卻還是不知該怎麼完成我想要的功能
我想做的事是:
打開 "開檔貼上.xlsm"
1. 按"加入檔案"的按鈕，選擇多個檔案
2. 將選擇的檔案路逕+檔案名稱 填寫到 A欄位
3. 按"執行"按鈕
4. 系統幫我把每個選擇的檔案 裡面的 range(A1:C6) 貼到 開檔貼上.xlsm的Result sheet

以下是我的半成品，一直卡在執行那邊，我不知道怎麼打開每個檔案，然後複製貼上，檔案關閉，再開啟下一個檔案，直到儲存格 = <>

Sub 加入檔案()
    With Application.FileDialog(msoFileDialogOpen)
         .InitialFileName = "D:\"
         .AllowMultiSelect = True
         .Show
         For i = 1 To .SelectedItems.Count
             Cells(i, 2) = .SelectedItems(i)
         Next
    End With
End Sub

Sub 執行()
Application.ScreenUpdating = False
For i = 1 To .SelectedItems.Count
inbook = Worksheets("Filelist").Cells(i, 2).Value
Workbooks.Open Filename:=inbook
Next
End Sub

character

先跟兩位熱心的大大說聲謝謝

小弟是新手還在研究，測試過後再上來回報

再次感謝! 這真是好地方~~~