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

[µo°Ý] §ì¨ú¸ê®Æ§¨¹ïÀ³¤å¦rÀÉ»P²£¥Í¹ïÀ³¤u§@ªí°ÝÃD½Ð±Ð

[µo°Ý] §ì¨ú¸ê®Æ§¨¹ïÀ³¤å¦rÀÉ»P²£¥Í¹ïÀ³¤u§@ªí°ÝÃD½Ð±Ð

DEAR  ALL ¤j¤j
1.C:\AAA¸ê®Æ§¨¤U¦³.TXT¤å¦rÀÉ  NFMC07A-3.121 NFMC07A-3.131 NFMC07A-3.NET  S19001A-3.111 S19001A-3.222 S19001A-3.TTT¡K¡K¡K¡K.
1.1 ¤å¦rÀÉ«e7½X¬° EXCEL §ì¨ú¹ïÀ³¤å¦rÀɤ§KEY.(¨Ò:EXCEL SHEET1.RANGE("A1")=S19001A®É.§ì¨úC:\AAA¸ê®Æ§¨¤U«e7½X¬Û¦P¤§¤å¦rÀÉ)
1.2 ¤å¦rÀÉ«á3½X¬°  EXCEL²£¥Í¹ïÀ³¤§·s¤u§@ªí¤§KEY(¨Ò:EXCEL SHEET1.RANGE("A1")=S19001A®É«e7½X¬Û¦P¤§¤å¦rÀɦ³3­Ó(S19001A-3.111 S19001A-3.222 S19001A-3.TTT).©Ò¥H¦Û°Ê²£¥Í   
        111»P222»P TTT¤T·s¤u§@ªí)
2.·í EXCEL SHEET1.RANGE("A1")=S19001A®É. ¦Û°Ê§ì¨úC:\AAA¸ê®Æ§¨¤U¦³.TXT¤å¦rÀÉ«e7½X¬Û¦P¤§¤å¦rÀÉ&¦Û°Ê²£¥Í¤å¦rÀÉ«á3½X111»P222»P TTT¤T·s¤u§@ªí
  2.1 SHEET("111")·s¤u§@ªí¦Û°Ê§ì¨úC:\AAA¸ê®Æ§¨¤US19001A-3.111¤å¦rÀɸê®Æ
  2.1 SHEET("222")·s¤u§@ªí¦Û°Ê§ì¨úC:\AAA¸ê®Æ§¨¤US19001A-3.222¤å¦rÀɸê®Æ
  2.1 SHEET("TTT")·s¤u§@ªí¦Û°Ê§ì¨úC:\AAA¸ê®Æ§¨¤US19001A-3.TTT¤å¦rÀɸê®Æ
3.THANKS*10000
ù

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-14 03:12 ½s¿è

¦^´_ 1# rouber590324

Sub TXT()
Dim ¦¹ªí, ·sªí
oPath$ = "C:\AAA"
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


qqq.rar (13.16 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

DEAR ªüÀs¤j¤j
100%²Å¦X»Ý¨D
THANKS*10000
THANKS*10000
THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD