返回列表 上一主題 發帖

[發問] 資料夾中_多檔案資料匯整

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-29 16:56 | 只看該作者

[發問] 資料夾中_多檔案資料匯整

Dear 大大~

         最近出差剛回來~ 現在又來麻煩各各大大~

        因幫公司做一個問卷調查的資料匯整~
       卡到如何將多個檔案匯整在一個資料內
       (有查過大大們對這方面的問題解決方式~ 但太過複雜~ 自己無法拿來應用~ 想透過自己簡單的舉例來向各位大大偷師~ )

       附件(共四個檔)中是我的舉例
       ABC檔是匯整檔 (會放在桌面)
       A檔B檔C檔  (會放在指定的資料夾中)
      
       下述是我希望的操作結果~
       1. 點選ABC檔中的按鈕後~ 可以選擇資料夾~
       2. 確定後~ 將A檔B檔C檔(亦即是資料夾中所有檔案)的A1欄位資料匯到ABC中~
      
       請大大們指導一下~ 謝謝~
         資料匯整.rar (11.74 KB)
收藏 分享
學習才能提升自己

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-9-29 17:55 | 只看該作者
回復 1# hugh0620
  1. Private Sub CommandButton1_Click()
  2. Dim Ar()
  3. With Application.FileDialog(msoFileDialogFolderPicker)
  4. .Show
  5. fd = .SelectedItems(1)
  6. If .ButtonName = "確定" Then
  7. fs = Dir(fd & "\*.xls")
  8. Do Until fs = ""
  9. fds = fd & "\" & fs
  10. With Workbooks.Open(fds)
  11. ReDim Preserve Ar(s)
  12. Ar(s) = .Sheets(1).[A1].Value
  13. s = s + 1
  14. .Close 0
  15. End With
  16. fs = Dir
  17. Loop
  18. End If
  19. End With
  20. [B3].Resize(s, 1) = Application.Transpose(Ar)
  21. End Sub
複製代碼
學海無涯_不恥下問

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
3#
發表於 2011-9-29 18:48 | 只看該作者
回復 2# Hsieh


    Dear H大大~ 超感恩的~

              將您的程式碼~ 稍微修改一下~ 糾能夠完全套用到我需要的工具上~
              感謝你的指導~ 謝謝~
學習才能提升自己

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題