標題: [發問] 資料夾中_多檔案資料匯整 [打印本頁]

---

作者: hugh0620    時間: 2011-9-29 16:56     標題: 資料夾中_多檔案資料匯整

Dear 大大~

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

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

       附件(共四個檔)中是我的舉例
       ABC檔是匯整檔 (會放在桌面)
       A檔B檔C檔  (會放在指定的資料夾中)
      
       下述是我希望的操作結果~
       1. 點選ABC檔中的按鈕後~ 可以選擇資料夾~
       2. 確定後~ 將A檔B檔C檔(亦即是資料夾中所有檔案)的A1欄位資料匯到ABC中~
      
       請大大們指導一下~ 謝謝~
        [attach]8038[/attach]

---

作者: Hsieh    時間: 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

複製代碼

---

作者: hugh0620    時間: 2011-9-29 18:48

回復 2# Hsieh


    Dear H大大~ 超感恩的~

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)