twcg

小學生 Rank: 1

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

Sub Ex()
Dim MergePath As String, FS As Object, MergeWorkbook As Workbook, E
MergePath = "D:\test\" '合併檔案的資料夾
Set FS = CreateObject("Scripting.FileSystemObject").GETFOLDER(MergePath).Files
'FS=合併檔案資料夾中所有檔案物件的集合
Set MergeWorkbook = Workbooks.Add(xlWBATWorksheet) '新開的檔案
Application.ScreenUpdating = False
For Each E In FS
If E Like "*.xls" Then '檔案的副檔名為xls
With Workbooks.Open(E)
.Sheets(1).Copy MergeWorkbook.Sheets(1) '將工作表複製到新開的檔案中
.Close
End With
End If
Next
Application.DisplayAlerts = False
MergeWorkbook.SaveAs MergePath & "合併.XLS" '合併檔存檔
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章

3^#

發表於 2010-10-5 10:50 | 只看該作者

回復 2# GBKEE

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章

5^#

發表於 2010-10-5 12:57 | 只看該作者

回復 4# GBKEE

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

TOP

twcg

小學生 Rank: 1

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

中學生 Rank: 2

帖子: 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

[發問] 請教EXCEL合併

[發問] 請教EXCEL合併

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]