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

複製代碼