[µo°Ý] §ì¨ú«ü©w¸ê®Æ§¨¤å¦rÀÉ°ÝÃD½Ð±Ð

rouber590324

DEAR ALL ¤j¤j
1.¦p¤Uµ{¦¡½X·|§ì¨ú«ü©w¸ê®Æ§¨¤º²Å¦XA1¦WºÙ¤§ALL¤å¦rÀɦÜEXCEL
   ¨Ã¥H¤å¦rÀɦWºÙ«á3½X·íEXCEL ¤u§@ªí¦WºÙ
2.½Ð°Ý§Ú­n§ï¥Î¥H¤å¦rÀÉ¥þ¦WºÙ·íEXCEL ¤u§@ªí¦WºÙ.µ{¦¡¸Ó¦p¦ó­×§ï
3.·Ð¤£§[½ç±Ð

Sub TXT()
Dim ¦¹ªí, ·sªí
oPath$ = "C:\BBB"
Set ¦¹ªí = ActiveSheet
T$ = Dir(oPath & "\" & [A1] & "*")
Do While T <> ""
   Set ·sªí = Sheets.Add(after:=Sheets(Sheets.Count))
   ·sªí.Name = Split(T, ".")(1)
   With Workbooks.Open(oPath & "\" & T)
     .Sheets(1).UsedRange.Copy ·sªí.[A1]
     .Close False
   End With
   T = Dir
Loop
¦¹ªí.Activate
End Sub

rouber590324

dear ­ã ¤j¤j
100%²Å¦X»Ý¨D.THANKS*10000

­ã´£³¡ªL

·sªí.Name = Split(T, ".")(0)

rouber590324

dear ­ã ¤j¤j
1.¨Ï¥Î  ·sªí.Name = Split(Split(T, ".")(0),"\")(1)
    ¥X²{ "°õ¦æ¶¥¬q¿ù»~9-°}¦C¯Á¤Þ¶W¥X½d³ò"
2.·Ð¤£§[½ç±Ð  thanks*10000

Sub TXT()
Dim ¦¹ªí, ·sªí
oPath$ = "\\89.80.70.1\exp\abfs_sm_via\jyk158a"
Set ¦¹ªí = ActiveSheet
T$ = Dir(oPath & "\" & [A1] & "*")
Do While T <> ""
   Set ·sªí = Sheets.Add(after:=Sheets(Sheets.Count))
       ·sªí.Name = Split(Split(T, ".")(0), "\")(1)
   With Workbooks.Open(oPath & "\" & T)
     .Sheets(1).UsedRange.Copy ·sªí.[A1]
     .Close False
   End With
   T = Dir
Loop
¦¹ªí.Activate
End Sub

­ã´£³¡ªL

·sªí.Name = Split(Split(T, ".")(0),"\")(1)
¬Ý4¼Ó