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

本帖最後由 idsmchow 於 2012-1-4 00:04 編輯

假設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需要處理, 希望大家能夠幫助

Summary Sheet.rar (1.5 KB)

001.rar (6.57 KB)

002.rar (6.59 KB)

樓主熱帖

idsmchow

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 29
點名: 0
作業系統: WINXP
軟體版本: OFFICE2000
閱讀權限: 10
性別: 男
來自: HK
註冊時間: 2011-11-22
最後登錄: 2012-5-18

6^#

發表於 2012-1-4 23:43 | 只看該作者

回復 5# GBKEE

謝謝解答.:)

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-1-4 07:54 | 只看該作者

回復 4# idsmchow

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

複製代碼

TOP

idsmchow

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 29
點名: 0
作業系統: WINXP
軟體版本: OFFICE2000
閱讀權限: 10
性別: 男
來自: HK
註冊時間: 2011-11-22
最後登錄: 2012-5-18

4^#

發表於 2012-1-4 00:01 | 只看該作者

本帖最後由 idsmchow 於 2012-1-4 00:18 編輯

謝謝大家回應.

其實概念就好似 (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能夠快一些完成.

Summary Sheet.rar (1.5 KB)

001.rar (6.57 KB)

002.rar (6.59 KB)