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

[µo°Ý] ¤å¦rÀÉÂà¤JEXCEL-BUG´M°Ý

[µo°Ý] ¤å¦rÀÉÂà¤JEXCEL-BUG´M°Ý

DEAR ALL ¤j¤j
1.¹Ï¤Gµ{¦¡©ó¤p§Ì¹q¸£°õ¦æµL°ÝÃD
1.1 ¤å¦rÀÉ¥u¦³800¦C¸ê®Æ
2.¦ý©ó¦P¨Æ¹q¸£¨q¥X¹Ï¤@°T®§
   °»¿ùµ{¦¡°±©ó
   Sh.Copy after:=A.Sheets(A.Sheets.Count)
3.À³¬OEXCELª©¥»°ÝÃD.½Ð°Ý¸Ó¦p¦ó­×§ï  Sh.Copy after:=A.Sheets(A.Sheets.Count)
4.·Ð¤£§[½ç±Ð  THANKS*10000



¹Ï¤@
°õ¦æ¶¥¬q¿ù»~
EXCELµLªk±N¤u§@ªí´¡¤J¥Øªº¬¡­¶Ã¯.¦]¬°¥¦¥]§tªº¦C©MÄæ¤ñ¨Ó·½¬¡­¶Ã¯¤Ö.­Y­n²¾°Ê©Î½Æ»s¸ê®Æ¦Ü¥Øªº¦a¬¡­¶Ã¯.§A¥i¥H¿ï¨ú¸ê®Æ.µM«á¥Î[½Æ»s]»P[¶K¤W]©R¥O±N¥L´¡¤J¥t¤@­Ó¬¡­¶Ã¯ªº¤u§@ªí.
¹Ï¤G
Sub ²£¥Íµ{¦¡¤À­¶()
   Dim A As Workbook, f$, fn$, k%
   Dim p$, Sh As Worksheet
   Set A = ThisWorkbook
   p = "" & Sheet9.Range("B2") & "\"
   f = Dir(p & "" & Sheet9.Range("D2") & "*.TXT")
   Application.ScreenUpdating = False
   Do While f <> ""
     Workbooks.Open p & f
     k = 0
     For Each Sh In Worksheets
       If Not IsEmpty(Sh.UsedRange) Then
       fn = IIf(k = 0, Replace(f, ".TXT", ""), Replace(f, ".TXT", "_") & k)
       Sh.Copy after:=A.Sheets(A.Sheets.Count)
       ActiveSheet.Name = fn
       k = k + 1
       End If
     Next
     Windows(f).Close True
     f = Dir
   Loop
   Application.ScreenUpdating = True
   Sheet9.Select
   Range("A1").Select

End Sub
ù

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-16 00:22 ½s¿è

¦^´_ 1# rouber590324

·sª©¬¡·~ï(.xlsx) copy ¨ì ª©¬¡­¶Ã¯(.xls) ´N·|¦³¦¹°ÝÃD
¤£­n¾ã­¶ copy °w¹ï¦³¸ê®Æªº½d³ò copy §Y¥i

Sh.Copy after:=A.Sheets(A.Sheets.Count)

§ï¦¨¦p¤U

With A.Sheets.Add(after:=Sheets(A.Sheets.Count))
    .Name = Sh.Name
    Sh.UsedRange.Copy .[A1]
End With
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

DEAR  n7822123  ¤j¤j
1.­×§ï¦p¹Ï¤@
1.1°õ¦æ«á¥X²{ °õ¦æ¶¥¬q¿ù»~9
      °}¦C¯Á¤Þ¥X¥X½d³ò
1.1.1 µM«á°»¿ù°±©ó  With A.Sheets.Add(after:=Sheets(A.Sheets.Count))
2.·Ð¤£§[½ç±Ð  THANKS     ROBERT11/18



¹Ï¤@
Sub ²£¥Íµ{¦¡¤À­¶()
   Dim A As Workbook, f$, fn$, k%
   Dim p$, Sh As Worksheet
   Set A = ThisWorkbook
   p = "" & Sheet9.Range("B2") & "\"
   f = Dir(p & "" & Sheet9.Range("D2") & "*.TXT")
   Application.ScreenUpdating = False
   Do While f <> ""
     Workbooks.Open p & f
     k = 0
     For Each Sh In Worksheets
       If Not IsEmpty(Sh.UsedRange) Then
       fn = IIf(k = 0, Replace(f, ".TXT", ""), Replace(f, ".TXT", "_") & k)
      
       With A.Sheets.Add(after:=Sheets(A.Sheets.Count))
       .Name = Sh.Name
       Sh.UsedRange.Copy .[A1]
       End With
              
       ActiveSheet.Name = fn
       k = k + 1
       End If
     Next
     Windows(f).Close True
     f = Dir
   Loop
   Application.ScreenUpdating = True
   Sheet9.Select
   Range("A1").Select
End Sub
ù

TOP

¦^´_ 3# rouber590324


¤Ö¥´¤F¤@­ÓªF¦è¡A¤£¯à¬Ù²¤@@

  With A.Sheets.Add(after:=A.Sheets(A.Sheets.Count))
    .Name = sh.Name
    sh.UsedRange.Copy .[A1]
  End With
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

DEAR  n7822123  ¤j¤j
100%²Å¦X»Ý¨D
·PÁ±z¤§«ü¾É thanks*10000
ù

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD