帖子: 23
主題: 10
精華: 0
積分: 85
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-9-11
最後登錄: 2022-3-10

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-12-1 13:34 | 只看該作者

[發問] 不同檔案資料彙整

請問excel有辦法做，不同檔案資料彙整嗎??
例：我的一個excel檔案名稱為10月，另外有一個資料夾(資料夾名稱為10月)裡有500個EXCEL檔案，檔案名稱為001~500，請問有辦法把10月資料夾裡的檔案，
分別把AP7、AP10、AP12、G7、G12這5個欄位分別彙整到10月這個檔案裡的A2、B2、C2、D2、E2嗎???

資料彙整.rar (10.31 KB)

樓主熱帖

smooth131

中學生 Rank: 2

帖子: 12
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: Office 2003/2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2019-2-26

10^#

發表於 2012-3-4 20:57 | 只看該作者

H版超強，我之前寫過類似的code不過我寫得超長~~~哈哈！
那我就不在這邊丟人現眼了，不過私人有一個小小的想法
如果用 ThisWorkbook.Path 來讀取檔案路徑的話會不會好一點？
因為excel的檔案常常被copy來copy去，這樣無論檔案被copy到哪裡
都可以正常使用

前題是放在同一個資料夾啦~~:D

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

9^#

發表於 2012-3-2 12:34 | 只看該作者

回復 3# Hsieh

H大大~
若使用Application.FileDialog(msoFileDialogFolderPicker)
是不是更符合使用者操作~
就不會被設定死資料夾的路徑~

學習才能提升自己

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

8^#

發表於 2012-2-5 08:45 | 只看該作者

非常感謝Hsieh大大
這也是常用的處理檔案
所以要經常來論壇報到

100 字節以內
不支持自定義 Discuz! 代碼

TOP

homeman

中學生 Rank: 2

帖子: 21
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-7-17
最後登錄: 2014-3-9

7^#

發表於 2012-2-5 01:46 | 只看該作者

真是一個 smart 的做法, 要是我也是一個一個檔案做匯入的動作.. Thanks, Hsieh

Homeman

TOP

joeron

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-12-28
最後登錄: 2012-1-4

6^#

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

這個剛好是我所想找的範本，謝謝Hsieh老師

感覺在您身上學習不少..

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-12-2 13:36 | 只看該作者

fd變數最後面少了\
"C:\Document and Setting\E\桌面\報告檔\"

學海無涯_不恥下問

TOP

0939875756

中學生 Rank: 2

帖子: 23
主題: 10
精華: 0
積分: 85
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-9-11
最後登錄: 2022-3-10

4^#

發表於 2010-12-2 11:56 | 只看該作者

回復 3# Hsieh

回Hsieh大大，我直接用您撰寫的vba，修改一些資料，結果出現執行階段錯誤

然後我按下偵錯就出現下圖

請問這是什麼原因呢??

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2010-12-1 16:54 | 只看該作者

回復 1# 0939875756

Sub ex()
Dim Ar(), fd$, fs$, s%
fd = "D:\10月\" '更改成你的10月資料夾目錄
fs = Dir(fd & "*.xls")
Do Until fs = ""
With Workbooks.Open(fd & fs)
With .Sheets("模製")
ReDim Preserve Ar(s)
Ar(s) = Array(.[AP7].Value, .[AP10].Value, .[AP12].Value, .[G7].Value, .[G12].Value)
s = s + 1
End With
.Close 0
End With
fs = Dir
Loop
[A2].Resize(s, 5).Value = Application.Transpose(Application.Transpose(Ar))
End Sub

複製代碼

學海無涯_不恥下問

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

2^#

發表於 2010-12-1 16:39 | 只看該作者

本帖最後由 et5323 於 2010-12-1 16:42 編輯

速度有点慢!
由于两岸系统的差异,With .Sheets("模製")中"模製"两个字你要在VBE中重新输一遍:

桌面.rar (25.32 KB)

TOP