返回列表 上一主題 發帖

[發問] 匯整excel檔案

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-7-9 17:19 | 只看該作者

[發問] 匯整excel檔案

請問
有30個excel檔案
各有sheet1(資料格式相符)
如何在不開啟的狀態下
快速的將此30個sheet , 匯整成一個檔案
謝謝
收藏 分享
無止盡的努力上進

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2018-7-12 11:13 | 只看該作者
Sub 匯整資料()
  Dim a As Workbook, f$
  Dim p$, sh As Worksheet
  Set a = ThisWorkbook
  p = "C:\AAA\"
  f = Dir(p & "*.xls")
  Application.ScreenUpdating = False
  Do While f <> ""
    Workbooks.Open p & f
    For Each sh In Worksheets
    On Error Resume Next
      sh.Copy after:=a.Sheets(a.Sheets.Count)
    Next
    Windows(f).Close True
    f = Dir
  Loop
  Application.ScreenUpdating = True
  Sheet1.Select
  Range("A1").Select
End Sub
羅

TOP

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
3#
發表於 2018-7-12 14:42 | 只看該作者
回復 2# rouber590324

這樣節省不少時間
感謝您的回覆
無止盡的努力上進

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題