- 帖子
- 9
- 主題
- 3
- 精華
- 0
- 積分
- 17
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 註冊時間
- 2011-8-13
- 最後登錄
- 2017-4-21
|
這是我錄下的巨集，每月有30天的檔案，我想在全部開啟的情形下，使用這樣的巨集將特定的工作表分別複製到合併.xls成為單一檔案，有30個工作表中
Sub Macro1()
'
' Macro1 Macro
' hsiaohsien 在 2011/9/19 錄製的巨集
'
'
Windows("0919.xls").Activate
Sheets("統計").Select
Sheets("統計").Copy After:=Workbooks("合併.xls").Sheets(2)
Sheets("統計").Select
Sheets("統計").Name = "0919" '<---------工作表名稱命名以工作簿檔名
End Sub
Sub Macro2()
'
' Macro1 Macro
' hsiaohsien 在 2011/9/19 錄製的巨集
'
'
Windows("0918.xls").Activate
Sheets("統計").Select
Sheets("統計").Copy After:=Workbooks("合併.xls").Sheets(3)
Sheets("統計").Select
Sheets("統計").Name = "0918" '<---------工作表名稱命名以工作簿檔名
End Sub |
|
發表於 2011-9-19 20:42
| 
