標題: VBA 數個Excel的分頁，全部整合到一個Excel [打印本頁]

---

作者: yenwang    時間: 2014-9-14 21:52     標題: VBA 數個Excel的分頁，全部整合到一個Excel

目前工作上碰到一個難題
主要是可能有五十幾個Excel的檔案
每個Excel內假設有多個sheet，sheet內可能有圖片，可能有圖形或文字之類的

如何運用VBA的方式
將每個Excel內的分頁，全部複製到一個all的excel
當然每個分頁是獨立的
也就是假若有50個Excel，每個Excel有3個Sheet
則all的excel內將會有150個sheet!!

想請問板上的高手是否可以幫忙解決
thank you!

---

作者: rouber590324    時間: 2014-9-18 14:23

DEAR SIR
將ALL EXCEL 置於 C:\AAA資料夾內
執行如下 就可 ALL EXCEL 自動轉換 至單一EXCEL中  試試

Sub yy()
  Dim a As Workbook, f$
  Dim p$, sh As Worksheet
  Set a = ThisWorkbook
  p = "C:\AAA\"
  f = Dir(p & "*.xls")
  Application.ScreenUpdating = False
  Do While f <> ""
    Workbooks.Open p & f
    For Each sh In Worksheets
    'On Error Resume Next
    X = WorksheetFunction.CountA(sh.Range("a1:iv65536"))
    Y = ActiveWorkbook.Name
    If X <> 0 Then
      sh.Copy after:=a.Sheets(a.Sheets.Count)
    End If
    Next
    Windows(f).Close True
    f = Dir
  Loop
  Application.ScreenUpdating = True
  Sheet1.Select
  Range("A1").Select
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)