問題，求救~~拜託

阿宗

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

阿宗

回復 6# Hsieh


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

Hsieh

回復 1# 阿宗
四次寫入資料
以下程式碼寫在111.xlsm的模組內

1. Sub ex()
   
2. Mypath = ThisWorkbook.Path '檔案目錄
   
3. For i = 1 To 4
   
4.    With Workbooks.Open(Mypath & "\222.xlsx") '開啟檔案
   
5.       .Sheets(1).Cells(1, (i - 1) * 2 + 1).Resize(11, 2) = ThisWorkbook.Sheets(1).[E5:F15].Value '寫入資料
   
6.       .Close 1 '關閉存檔
   
7.    End With
   
8. Next
   
9. End Sub

複製代碼

阿宗

回復 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

prin.huang

看文字的意思是，用錄的再改成你要的，應該只要再加上迴圈 & 儲存格位置加上公式

阿宗

回復 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檔案
                           ~以上步驟分三次輸出，不是一次輸出，可能我上回沒說清楚，抱歉~
                            我記得是要用迴圈吧，但是我不會用，所以上來求救，拜託了

joey0415

回復 1# 阿宗

這種問題自己錄製一次就知道如何修改
不知 道自己練習了嗎？

先求有，再求好！

錄製範例：

1. Sub Macro1()
   
2. 
   
3.     Sheets("Sheet1").Select
   
4.     Range("A1").Select
   
5.     Selection.Copy
   
6.     ChDir "C:\Users\Joey\Desktop"
   
7.     Workbooks.Open Filename:="C:\Users\Joey\Desktop\b.xls"
   
8.     Range("A1").Select
   
9.     ActiveSheet.Paste
   
10.     Application.CutCopyMode = False
    
11.     ActiveWorkbook.Save
    
12.     ActiveWindow.Close
    
13.     Range("A1").Select
    
14. End Sub

複製代碼