[發問] 合併數個工作簿部分儲存格資料至一工作簿中

spermbank

請問:
      1.合併數個工作簿(檔案位於\base\)部分儲存格資料至一工作簿(test.xlsm)中，其中匯入資料以工作簿對應部分儲存格以顏色表示
      要怎麼執行test.xlsm中工作表2中的"匯入資料"按鈕，將位於\base\的檔案，依據工作表1中的代號，將資料合併至其中。
      PS:我嘗試利用之前G大幫我的合併數個工作簿中某欄資料，轉置合併至一工作簿的列位中，但因這次資料為部分儲存格，試寫測試幾天，仍無解，
           請指教。

GBKEE

回復 1# spermbank
試試看

1. Sub Ex()
   
2.     Dim R As Integer, EPath As String, Ar(), Wb As Workbook
   
3.     EPath = "D:\base\"
   
4.     With Sheets("工作表1")
   
5.         For R = 2 To .Range("A1").End(xlDown).Row '股票範圍
   
6.             Set Wb = Workbooks.Open(EPath & .Cells(R, "A") & ".xlsx")
   
7.             With Wb.Sheets("BASIC")
   
8.                 Ar = Array(.[E9], .[E13], .[E12], .[C16], .[C7])
   
9.             End With
   
10.             .Cells(R, "C").Resize(1, 5) = Ar                                           '紅區
    
11.             .Cells(R, "H").Resize(1, 8) = Wb.Sheets("FR").[B15].Resize(1, 8).Value     '綠區
    
12.             .Cells(R, "P").Resize(1, 8) = Wb.Sheets("BASIC").[B32].Resize(1, 8).Value  '黃區
    
13.             Wb.Close False
    
14.      Next
    
15.     End With
    
16. End Sub

複製代碼

linlinda20

謝謝您,感謝!

spermbank

回復 2# GBKEE


        感謝G大，努力拼湊程式，終於成功^^
另外想請問一個問題:
sub ex()
Application.ScreenUpdating = False

...(我要怎麼樣在不更新螢幕，但是要更新儲存格Cells(1,"A")計算並且持續顯示"巨集"執行開始至終止時間(秒)呢??)

Application.ScreenUpdating = False
end sub