返回列表 上一主題 發帖

自動合併檔案

VANESSA

帖子
100 
主題
37 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
台灣 
註冊時間
2010-8-11 
最後登錄
2024-3-12 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-12 10:54 | 只看該作者

自動合併檔案

My Documents.zip (7.23 KB)
我一共有21家公司,每家公司每個月有一個檔案,全年共有21*12=252的檔
我想把相同A公司的全年資料彙整成一個檔案(12個檔案合併成一個),請問有可能 可以不用開檔,就可以把12個檔案的資料產生成一個新的檔案?
我附上範例TI這家公司的1月和2月資料,合併成另一個新的檔案
收藏 分享

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 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
複製代碼
字典兩各字 還真難理解

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題