n7822123

¦^´_ 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)

¤U¸ü¦¸¼Æ: 3

2019-11-14 03:12