返回列表 上一主題 發帖

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

idsmchow

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2000 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-11-22 
最後登錄
2012-5-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-1-2 23:53 | 只看該作者

[發問] 將總表的資料, 分別匯入不同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)

收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-1-3 09:40 | 只看該作者
回復 1# idsmchow
就好像一個 "餅" 分給指定的人一樣.
你要上傳範例 說清楚 "餅" 要分送出去的條件,

TOP

kobo

帖子
37 
主題
0 
精華
0 
積分
41 
點名
0  
作業系統
windows xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-5-7 
最後登錄
2018-2-10 
3#
發表於 2012-1-3 10:04 | 只看該作者
看了您的問題範圍好像大了些,要完整解答似乎需要有一連串相關的程序
且問的有些籠統,
建議您把檔案上傳,問題一步步的說清楚
或
依您要如何解決的順序,一個一個的提問

TOP

idsmchow

帖子
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)

TOP

GBKEE

帖子
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
  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
複製代碼

TOP

idsmchow

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2000 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-11-22 
最後登錄
2012-5-18 
6#
發表於 2012-1-4 23:43 | 只看該作者
回復 5# GBKEE


    謝謝解答.:)

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

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題