ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] EXCELª©¥»¤£¦Pµ{¦¡°ÝÃD´M°Ý

[µo°Ý] EXCELª©¥»¤£¦Pµ{¦¡°ÝÃD´M°Ý

DEAR ALL ¤j¤j
1.¹Ï¤@©ó  2003 ª©¥»(65536¦C)®Ñ¼g¤§µ{¦¡ ,¨Ï¥Î OK
2.¦P¨Æ©óEXCEL·sª©¹q¸£¶}¾÷®É¥X²{BUG°±©ó    sh.Copy after:=a.Sheets(a.Sheets.Count)
   ¨q¥X "¥]§t¤§¦CÄæ¤ñ¨Ó·½¸ê®Æ¤Ö"???
   2.1 2003ª©65536¦C  ·sª©¤@©w>65536 ??
3.¦p¦ó­×§ï,·Ð¤£§[½ç±Ð.  THANKS*10000

¹Ï¤@
Sub yy()
  Dim a As Workbook, f$
  Dim p$, sh As Worksheet
  Set a = ThisWorkbook
  p = "D:\AAA\"
  f = Dir(p & "*.txt")
  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
ù

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD