一、整體簡介：我理解你的需求應該是：用一個excel工作簿（結果工作簿
.xlsm
如圖：
二、所需工具/原料：微軟office2007（但要啟用宏）
三、方法：新建一個空excel文件，寫入宏程式碼，關聯宏程式碼，執行宏=結果。
四、步驟：
1、新建一個空白的excel，並開啟
2、切換到【檢視】-【宏】-【檢視宏】。如圖：
4、輸入宏程式碼，並儲存。如圖：
程式碼如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub 複製指定工作簿的全部工作表3()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xlsx),*.xlsx", MultiSelect:=True, Title:="2015")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open
Sheets()
.Move
X = X + 1
Wend
ExitHandler:
Exit Sub
errhadler:
MsgBox
Err.Description
End Sub
6完善第5步驟：“從下列位置選擇命令-【宏】”-雙擊自定義的宏，新增至右邊-修改宏屬性（圖示，名稱等），圖示、名稱隨便自定-然後一路確定下來-最後儲存這個excel檔案。如圖：
五、好人做到底，最後給你附件
很抱歉，回答者上傳的附件已失效
一、整體簡介：我理解你的需求應該是：用一個excel工作簿（結果工作簿
.xlsm
）來獲取其它工作簿中的工作表內容，將其儲存至當前工作簿中（分不同工作表儲存）。如圖：
二、所需工具/原料：微軟office2007（但要啟用宏）
如圖：
三、方法：新建一個空excel文件，寫入宏程式碼，關聯宏程式碼，執行宏=結果。
四、步驟：
1、新建一個空白的excel，並開啟
2、切換到【檢視】-【宏】-【檢視宏】。如圖：
4、輸入宏程式碼，並儲存。如圖：
程式碼如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub 複製指定工作簿的全部工作表3()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating
= FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xlsx),*.xlsx", MultiSelect:=True, Title:="2015")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open
Filename:=FileOpen(X)Sheets()
.Move
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating
= TrueExit Sub
errhadler:
MsgBox
Err.Description
End Sub
6完善第5步驟：“從下列位置選擇命令-【宏】”-雙擊自定義的宏，新增至右邊-修改宏屬性（圖示，名稱等），圖示、名稱隨便自定-然後一路確定下來-最後儲存這個excel檔案。如圖：
五、好人做到底，最後給你附件
很抱歉，回答者上傳的附件已失效