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

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

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

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
ù

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-4-14 16:49 ½s¿è

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

TOP

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
ù

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-4-14 16:52 ½s¿è

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD