[µo°Ý] ¶×¾ãexcelÀÉ®×

vinejason

½Ð°Ý
¦³30­ÓexcelÀÉ®×
¦U¦³sheet1(¸ê®Æ®æ¦¡¬Û²Å)
¦p¦ó¦b¤£¶}±Òªºª¬ºA¤U
§Ö³tªº±N¦¹30­Ósheet , ¶×¾ã¦¨¤@­ÓÀÉ®×
ÁÂÁÂ

vinejason

¦^´_ 2# rouber590324

³o¼Ë¸`¬Ù¤£¤Ö®É¶¡
·PÁ±zªº¦^ÂÐ

rouber590324

Sub ¶×¾ã¸ê®Æ()
  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
      sh.Copy after:=a.Sheets(a.Sheets.Count)
    Next
    Windows(f).Close True
    f = Dir
  Loop
  Application.ScreenUpdating = True
  Sheet1.Select
  Range("A1").Select
End Sub