開啟多個檔案 複製貼上(進階問題)???

iverson105

大家好，爬了很多 文   看到超級版主Hsieh 的程式分享來用,卻還是不知該怎麼完成我想要的功能
我想做的事是:
打開 "開檔貼上.xlsm"
1. 按"加入檔案"的按鈕，選擇多個檔案
2. 將選擇的檔案路逕+檔案名稱 填寫到 A欄位
3. 將 A欄位的資料打開,並自動貼在自動新增的Sheet上   ..............一直bug
目前已聰往賞爬聞到程式碼如下


fds = Application.GetOpenFilename("Excel Files (*.xlsm;*.xlsx), *.xlsm;*.xlsx", , , , True)
                                
If IsArray(fds) Then
For i = 1 To UBound(fds)
   [A2].Offset(i - 1) = fds(i)
Next
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("工作表1").Activate
For Each a In Range([A2], Cells(Rows.Count, 1).End(xlUp))
    With Workbooks.Open(a)...............................................................................................這裡出現錯誤
    .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    .Close 0
  End With
  Next
執行時可執行但執行完後都會出現

1004  找不到". 請確認檔名是否正確及路徑是否正確的問題       如下:

下載 (19.16 KB)

2020-1-30 15:25

請各位大神幫忙