返回列表 上一主題 發帖

如何解?????執行階段錯誤"1004"

如何解?????執行階段錯誤"1004"

此程式會出現ERROR物件定義錯誤

issue_2.png
2020-1-30 11:17


各位大大好

之前在此論壇上使用一個vba程式,可選取路經資料夾的檔案並使其自東複製後貼上指定的SHEET
但卻出現             執行階段錯誤"1004"   
                              找不到". 請檢查檔名是否有拼錯,或檔案位置是否正確.

程式如下
Sheets("工作表1").Activate

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)...................................................這句出現ERROR
    .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    .Close 0
  End With
  Next

Sheets("工作表1 (2)").Activate

Range("A2").Select
Columns("A:A").EntireColumn.AutoFit
Sheets("工作表1").Activate
   
End Sub

想麻煩各位大大看下,幫個忙嗎?
Ian

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題