問題，求救~~拜託

各位大大，小弟的問題如下
要把111.xlsx.sheet(1).range("e5:f15")中的數值，分四次匯出到222.xlsx.sheet(1)中依序排列
每一次匯出後會把222.xlsx關閉，要匯出時再開啟。
以上問題，拜託各位大大，指導一下

樓主熱帖

stone

阿宗

中學生 Rank: 2

帖子: 13
主題: 4
精華: 0
積分: 66
點名: 0
作業系統: WIN10
軟體版本: OFFICE2016
閱讀權限: 20
性別: 男
註冊時間: 2016-10-19
最後登錄: 2020-6-23

2^#

發表於 2017-9-28 08:01 | 顯示全部帖子

本帖最後由阿宗於 2017-9-28 08:14 編輯

回復 2# joey0415

joey0415 大大
                        我有試過用錄製的，但是不是我要的結果
                        我要的結果是
                        1.從A檔案複製"A1:B5"，開啟B檔案貼到"A1"，儲存B檔案，關閉B檔案
                        2.從A檔案複製"A1:B5"，開啟B檔案貼到"C1"，儲存B檔案，關閉B檔案
                        3.從A檔案複製"A1:B5"，開啟B檔案貼到"E1"，儲存B檔案，關閉B檔案
                        ~以上步驟分三次輸出，不是一次輸出，可能我上回沒說清楚，抱歉~
                        我記得是要用迴圈吧，但是我不會用，所以上來求救，拜託了

stone

TOP

阿宗

中學生 Rank: 2

帖子: 13
主題: 4
精華: 0
積分: 66
點名: 0
作業系統: WIN10
軟體版本: OFFICE2016
閱讀權限: 20
性別: 男
註冊時間: 2016-10-19
最後登錄: 2020-6-23

3^#

發表於 2017-9-28 08:36 | 顯示全部帖子

本帖最後由阿宗於 2017-9-28 08:38 編輯

回復 4# prin.huang

prin.huang 大大
小弟我是新手，用不出個所以然來，所以上來請教，拜託
~以下是我錄的巨集~
Sub 巨集1()
'
' 巨集1 巨集
'

'
Range("E5:F15").Select
Selection.Copy
Range("E5").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Range("E3").Select
Application.CutCopyMode = False
Range("E5:F15").Select
Selection.Copy
Range("G5").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
Application.CutCopyMode = False
Range("E5:F15").Select
Selection.Copy
Range("I5").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False
Range("A1").Select
End Sub

stone

TOP

阿宗

中學生 Rank: 2

帖子: 13
主題: 4
精華: 0
積分: 66
點名: 0
作業系統: WIN10
軟體版本: OFFICE2016
閱讀權限: 20
性別: 男
註冊時間: 2016-10-19
最後登錄: 2020-6-23

4^#

發表於 2017-9-30 15:09 | 顯示全部帖子

回復 6# Hsieh

感謝版主大大的會覆，小弟我在測試看看，謝謝!

stone

TOP