麻辣家族討論版版 » Excelㄧ般區 » 將10個XLS檔案結合成一個檔案(已解決)

返回列表下一主題上一主題發帖

[發問] 將10個XLS檔案結合成一個檔案(已解決)

中學生 Rank: 2

帖子: 72
主題: 14
精華: 0
積分: 126
點名: 0
作業系統: W7
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2011-4-2
最後登錄: 2016-1-14

2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-8-19 14:03 | 只看該作者

[發問] 將10個XLS檔案結合成一個檔案(已解決)

本帖最後由 jimmuLu 於 2011-8-22 10:46 編輯

請問各位大大:

要如何將具有相同工作表及相同資料欄位之XLS資料

結合成一個檔案

巨集?函數?

麻煩囉

樓主熱帖

收藏

中學生 Rank: 2

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 278
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

2^#

發表於 2011-8-19 17:15 | 只看該作者

回復 1# jimmuLu

Sub Exx()
'合併同一資料夾內所有Excel檔之Sheet工作表
Dim NewName As String
Dim MyBook As Workbook
Dim MyFile$, i%, k%
MyFile = Dir(ThisWorkbook.Path & "\*.xls")
Set MyBook = ThisWorkbook
i = 1
Application.ScreenUpdating = False
Do While MyFile <> ""
If MyFile <> MyBook.Name Then
With Workbooks.Open(ThisWorkbook.Path & "\" & MyFile)
For k = 1 To Sheets.Count
Sheets(k).Select
ActiveSheet.Range("a1").Select
NewName = Left(MyFile, Len(MyFile) - 4)
ActiveSheet.Copy After:=MyBook.Sheets(MyBook.Sheets.Count)
ActiveSheet.Name = NewName & "_" & k
Next k
k = 1
Application.DisplayAlerts = False
.Close
On Error Resume Next
End With
End If
MyFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

複製代碼

中學生 Rank: 2

帖子: 72
主題: 14
精華: 0
積分: 126
點名: 0
作業系統: W7
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2011-4-2
最後登錄: 2016-1-14

2011兔年全勤獎章

3^#

發表於 2011-8-22 10:46 | 只看該作者

回復 2# infoverdad

感謝您!!

有關VBA的寫法還要跟大大學習

3Qs

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題