開啟多個檔案 複製貼上(進階執行問題).....急
- 帖子
- 320
- 主題
- 6
- 精華
- 0
- 積分
- 310
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2024-12-21
|
本帖最後由 jackyq 於 2020-1-31 20:23 編輯
on error resume next ' 把錯誤跳過去就好了
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
Sheets("工作表1").Activate
on error goto 0 |
|
|
|
|
|
|
|
發表於 2020-1-31 20:21
| 