[發問] 將總表的資料, 分別匯入不同WORKBOOK指定的WORKSHEET裡面

idsmchow

假設SUMMARY SHEET.XLS 裡面的SHEET1,  A1: B100 儲存所有BRANCH的SALE TURNOVER .
COLUMN A 是 BRANCH CODE, COLUMN B 是 SALE AMT.

要將所有資料匯入相關的個別WORKBOOK. (個別WORKBOOK名稱 = BRANCH CODE)
例如:  要將資料放回 001 BRANCH.XLS裡面的 SHEET 1,  C5儲存格.

而所有個別BRANCH FILE 放在 Q4 ANALYSIS 資料夾裡面.

就好像一個 "餅" 分給指定的人一樣.

因為有大量FILE需要處理, 希望大家能夠幫助

idsmchow

回復 5# GBKEE


    謝謝解答.:)

這裡真是一個學習的好地方.

GBKEE

回復 4# idsmchow

1. Sub Ex()
   
2.     Dim E As Range, FilePath As String
   
3.     FilePath = "D:\TEST\"   'Workbooks File 存放的資料夾
   
4.     With Workbooks("Summary Sheet.xls").Sheets(1)
   
5.         For Each E In .Range(.[a2], .[a2].End(xlDown)) 'Branch Code 範圍
   
6.             With Workbooks.Open(FilePath & E & ".XLS")
   
7.                 .Sheets(1).[C16].End(xlUp).Offset(1) = E.Offset(, 1)
   
8.                 .Close True                            '關閉 存檔
   
9.             End With
   
10.         Next
    
11.     End With
    
12. End Sub

複製代碼

idsmchow

謝謝大家回應.

其實概念就好似 (0939875756樓主) 發問: 不同檔案資料彙整 的問題差不多,  http://forum.twbts.com/thread-2036-1-1.html

只不過程序相反, 我的問題是由 (總表) 轉去 (相關個別的Workbooks)
(由集中地方 分散出去)

總表FILE 存放在C:\Testing\Summary Sheet.xls
相關個別的Workbooks FILE 存放在C:\Testing\Q4 ANALYSIS\001.xls.....

現上傳檔案, 請大家幫助

因為經常都需要其他部門提供資料(例如: human resources Dept 的Salary & MPF......Sale Dept.....I.T. Dept.......), 再一次輸入, 才能夠完成report, 趕deadline時間緊迫. 希望利用Macro能夠快一些完成.

kobo

看了您的問題範圍好像大了些,要完整解答似乎需要有一連串相關的程序
且問的有些籠統,
建議您把檔案上傳,問題一步步的說清楚
或
依您要如何解決的順序,一個一個的提問

GBKEE

回復 1# idsmchow
就好像一個 "餅" 分給指定的人一樣.
你要上傳範例 說清楚 "餅" 要分送出去的條件,