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合併到一個檔，有沒有什麼方法?

p212

高中生 Rank: 3 Rank: 3

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-7-5

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

21^#

發表於 2014-1-22 15:36 | 只看該作者

本帖最後由 p212 於 2014-1-22 15:39 編輯

回復 4# GBKEE
非常感謝GBKEE超級版主熱心提供的工具
請問GBKEE超級版主
對於待合併的眾檔案，其每一個檔案皆含有相同名稱相同個數的工作表，今若欲指定眾檔案其中相同的一個工作表進行合併，應如何修改2#與4#的語法？
煩請賜教，謝謝！

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

20^#

發表於 2012-7-26 12:08 | 只看該作者

!!
太棒了

我本來整理csv檔是用複製然後開新分頁再貼上
結果會出現''資源不足...''的錯誤(大概是ram不夠?)
於是只好拆成兩個程式跑
我怎麼沒想到可以用複製分頁的m(_ _)m
感謝!!

TOP

leungko

中學生 Rank: 2

帖子: 12
主題: 3
精華: 0
積分: 53
點名: 0
作業系統: xp
軟體版本: off 2003
閱讀權限: 20
註冊時間: 2012-7-4
最後登錄: 2023-5-12

19^#

發表於 2012-7-25 13:13 | 只看該作者

回復 18# GBKEE

大大的感謝:victory:

doraemon1.gif (127.23 KB)

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

18^#

發表於 2012-7-23 17:05 | 只看該作者

回復 17# leungko
再改一下試試看
MergePath = "C:\Documents and Settings\choikeun\Desktop\New\" '合併檔案的資料夾

TOP

leungko

中學生 Rank: 2

帖子: 12
主題: 3
精華: 0
積分: 53
點名: 0
作業系統: xp
軟體版本: off 2003
閱讀權限: 20
註冊時間: 2012-7-4
最後登錄: 2023-5-12

17^#

發表於 2012-7-23 16:43 | 只看該作者

Sub Ex()
Dim MergePath As String, FS As String, Rng As Range
MergePath = "C:\Documents and Settings\choikeun\Desktop\New"                                     '合併檔案的資料夾
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
我已經修改了,,但是都不行...........

TOP

GBKEE