123
返回列表 上一主題 發帖

[發問] 請教EXCEL合併

twcg

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
10 
註冊時間
2010-10-4 
最後登錄
2010-10-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-4 21:52 | 只看該作者

[發問] 請教EXCEL合併

請問高手，我總共有368個XLS檔，每個都只有一個SHEET，但我要368個SHEET合併到一個檔，有沒有什麼方法?
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-10-5 08:09 | 只看該作者
回復 1# twcg
  1. Sub Ex()
  2.     Dim MergePath As String, FS As Object, MergeWorkbook As Workbook, E
  3.     MergePath = "D:\test\"  '合併檔案的資料夾
  4.     Set FS = CreateObject("Scripting.FileSystemObject").GETFOLDER(MergePath).Files
  5.     'FS=合併檔案資料夾中所有檔案物件的集合
  6.     Set MergeWorkbook = Workbooks.Add(xlWBATWorksheet)  '新開的檔案
  7.     Application.ScreenUpdating = False
  8.     For Each E In FS
  9.         If E Like "*.xls" Then  '檔案 的副檔名為xls
  10.             With Workbooks.Open(E)
  11.                 .Sheets(1).Copy MergeWorkbook.Sheets(1)  '將工作表 複製到新開的檔案中
  12.                 .Close
  13.             End With
  14.         End If
  15.     Next
  16.     Application.DisplayAlerts = False
  17.     MergeWorkbook.SaveAs MergePath & "合併.XLS"  '合併檔存檔
  18.     Application.DisplayAlerts = True
  19.     Application.ScreenUpdating = True
  20. End Sub
複製代碼

TOP

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
3#
發表於 2010-10-5 10:50 | 只看該作者
回復 2# GBKEE

    很好用的功能, 請問是否可以將工作表名稱按原來工作簿名稱命名?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-10-5 11:48 | 只看該作者
回復  GBKEE

    很好用的功能, 請問是否可以將工作表名稱按原來工作簿名稱命名?
ANGELA 發表於 2010-10-5 10:50

With Workbooks.Open(E)
       .Sheets(1).Copy MergeWorkbook.Sheets(1)  '將工作表 複製到新開的檔案中
     MergeWorkbook.Sheets(1).Name = E.Name
       .Close
End With

TOP

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
5#
發表於 2010-10-5 12:57 | 只看該作者
回復 4# GBKEE


   可以了, 謝謝版主如此一來就可以把散亂的檔案歸類了,乾淨多了.

TOP

twcg

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
10 
註冊時間
2010-10-4 
最後登錄
2010-10-5 
6#
發表於 2010-10-5 13:01 | 只看該作者
回復 2# GBKEE


    請問這要用什麼程式去執行

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2010-10-5 14:29 | 只看該作者
回復  GBKEE


    請問這要用什麼程式去執行
twcg 發表於 2010-10-5 13:01

請先將程式複製到檔案VBA專案裡 且修改MergePath 為合併檔案的資料夾為正確的路徑
方法一 如圖1



方法二 如圖2



方法三 如圖3    1.須將滑鼠移動到指定的程式碼  2.按F5 執行指定的程式

TOP

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
8#
發表於 2010-10-5 23:30 | 只看該作者
Dear GBKEE
請問是否可以將工作表名稱更改為取原來工作簿檔案名稱之第5碼至第10碼?
例如：
原來工作簿檔案名稱為 2010ABCDE1PRINT.xls
合併後該工作表名稱為 ABCDE1
敬請指導
100 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2010-10-6 08:11 | 只看該作者
回復 8# b9208
MergeWorkbook.Sheets(1).Name =Mid( E.Name, 5, 6)

TOP

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
10#
發表於 2010-10-7 21:17 | 只看該作者
Dear GBKEE
非常感謝指導，程式碼可以使用。
100 字節以內
不支持自定義 Discuz! 代碼

TOP

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