請教EXCEL合併 - Excel程式區 - 麻辣家族討論版版

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兔年全勤獎章

12^# 跳轉到 »

發表於 2012-7-9 14:40 | 只看該作者

回復 11# qwern
試試看

Option Explicit
Sub Ex()
Dim MergePath As String, FS As String, Rng As Range
MergePath = "D:\test\" '合併檔案的資料夾
FS = Dir(MergePath & "*.xls") '尋找 xls 檔案
If FS <> "" Then
Set Rng = Workbooks.Add(xlWBATWorksheet).Sheets(1).[a1] '新開的檔案(只有一張工作表)工作表的A1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do
With Workbooks.Open(MergePath & FS)
.Sheets(1).UsedRange.Copy Rng 'MergePath & 中工作表資料複製到Rng
.Close
End With
FS = Dir '繼續尋找(MergePath & "*.XLS")
Set Rng = Rng.End(xlDown).Offset(1) '重設Rng 為往下到最後有資料的儲存格下一個空白之儲存格
Loop While FS <> ""
Application.DisplayAlerts = False
Rng.Parent.Parent.SaveAs MergePath & "合併.xls" '合併檔存檔
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Else
MsgBox MergePath & " 沒有 xls 檔案"
End If
End Sub

複製代碼

PS 按回覆鍵你要回覆者會得到通知

TOP

qwern

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: excel
軟體版本: 2010
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-7-8
最後登錄: 2012-9-5

11^#

發表於 2012-7-9 03:42 | 只看該作者

請問 Dear GBKEE 那如果我想要他彙整的檔案不要有很多個分頁全部都在同一個分頁只是一直往下貼下去呢??

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

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

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兔年全勤獎章

7^#

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

回復 GBKEE

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

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

方法二如圖2

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

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

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

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

論壇貢獻勳章

3^#

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

回復 2# GBKEE

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

TOP

[發問] 請教EXCEL合併

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

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