返回列表 上一主題 發帖

[發問] EXCEL抓取不同檔案的SHEET

801118

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2013-6-2 
最後登錄
2017-11-2 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-7-9 17:18 | 只看該作者

[發問] EXCEL抓取不同檔案的SHEET

EXCEL, Excel
想問請一下   因為我工作需要做些考核統計

例如每一個月每個人都有多種品項考核的 (例如有出勤的考核 工作表現的考核  等多頁SHEET.)

之後要把半年度的考核  做個半年度的總合

要怎樣才能跨檔案快速抓取作加總   因為我只會 =[A.xlsx]工作表1!$A$1   
但總共超過500個要手動輸入會暈倒   又不能向下拉

喜望有高手可以幫我    因為小弟EXCEL真的不行   所以可以的話可以詳細說一下
收藏 分享

JasonChen576

帖子
14 
主題
4 
精華
0 
積分
16 
點名
0  
作業系統
win 10 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2018-1-29 
最後登錄
2018-2-14 
5#
發表於 2018-1-29 10:48 | 只看該作者
A列                        B列
活頁簿編號        公式
1                        =INDIRECT("[活頁簿"& A2 & ".xlsx]工作表1!$A$1")
2                        =INDIRECT("[活頁簿"& A3 & ".xlsx]工作表1!$A$1")
3                        =INDIRECT("[活頁簿"& A4 & ".xlsx]工作表1!$A$1")

TOP

georgehu

帖子
5 
主題
0 
精華
0 
積分
4 
點名
0  
作業系統
win10 
軟體版本
2013 
閱讀權限
10 
註冊時間
2017-6-9 
最後登錄
2021-11-20 
4#
發表於 2017-8-25 11:44 | 只看該作者
提供您一段程式給您參考

Dim sData, TData As Workbook
Dim sSt As WorkSheet

'ChDir WPath

ChDir Application.ActiveWorkbook.Path
Set sData = Workbooks.Open(SourceData)
sData.Activate
Set sSt = sData.Worksheets(1)

TOP

801118

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2013-6-2 
最後登錄
2017-11-2 
3#
發表於 2017-8-23 09:33 | 只看該作者
回復 2# cjw

這方法不行

痾  抱歉表達的不清楚
像我有7個檔案分別黨名1~7

7號黨sheet1要抓取分別1~6 sheet1裡的某一直列範圍裡的檔案

因為要抓取好多直列  所以想問能接把分別1~6的sheet1檔案  連動抓取到檔案7裡(這樣就可以用下拉)

不知道這樣說明懂不懂(表達弱弱的)

TOP

cjw

帖子
6 
主題
0 
精華
0 
積分
19 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣台中 
註冊時間
2016-10-24 
最後登錄
2017-8-22 
2#
發表於 2017-8-11 10:34 | 只看該作者
因您的問題不是很詳細，所以不知如何解答，試著將=[A.xlsx]工作表1!$A$1   
改成=[A.xlsx]工作表1!A1向下拉試看看!
cjw

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題