- 帖子
- 27
- 主題
- 11
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- window
- 軟體版本
- window7
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2019-12-12
- 最後登錄
- 2021-4-21
|
請問如何將以下執行檔改成可選取儲存在不同SHEET???
Sub 執行()
For Each a In Range([A1], Cells(Rows.Count, 1).End(xlUp))
With Workbooks.Open(a)..............這裡的小寫a,在vba理會跳成大寫A, 有關係嗎
.Sheets(1).[A1:C6].Copy
ThisWorkbook.Sheets("Result").Cells(Rows.Count,1).End(xlUp).Offset(1)
.Close 0
End With
Next
End Sub |
|
發表於 2019-12-19 12:07
| 