標題: 自動合併檔案 [打印本頁]

---

作者: VANESSA    時間: 2012-4-12 10:54     標題: 自動合併檔案

[attach]10417[/attach]
我一共有21家公司,每家公司每個月有一個檔案,全年共有21*12=252的檔
我想把相同A公司的全年資料彙整成一個檔案(12個檔案合併成一個),請問有可能 可以不用開檔,就可以把12個檔案的資料產生成一個新的檔案?
我附上範例TI這家公司的1月和2月資料,合併成另一個新的檔案

---

作者: freeffly    時間: 2012-4-13 14:48

回復 1# VANESSA
提供你一個程式碼
是我在網路上找的
要改下面這各路徑
.LookIn = "C:\Documents and Settings\桌面\ARTHUR\台灣庫存"
再將你要處理的方式寫一個程式讓他執行
Call 後續   '程式碼
如此就可以讓程式碼去幫你執行

如例子他會處理C:\Documents and Settings\桌面\ARTHUR\台灣庫存 這各資料夾裡面所有的檔案
然後做"後續"這各程序的動作

不知道以上是不是你要的

1. Sub 處理檔案()
   
2. Application.ScreenUpdating = False
   
3. Dim fs As FileSearch
   
4. Dim i As Integer
   
5. Dim wbk As Workbook
   
6. Set fs = Application.FileSearch
   
7. With fs
   
8.     .LookIn = "C:\Documents and Settings\桌面\ARTHUR\台灣庫存"    'ThisWorkbook.Path
   
9.     .Filename = "*.xls"
   
10.     For i = 1 To .Execute()
    
11.         Set wbk = Workbooks.Open(.FoundFiles(i))
    
12.         Call 後續   '程式碼
    
13.         wbk.Save
    
14.         wbk.Close
    
15.     Next i
    
16. End With
    
17. End Sub

複製代碼

---

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