[發問] 抓取指定資料夾文字檔問題請教

rouber590324

DEAR ALL 大大
1.如下程式碼會抓取指定資料夾內符合A1名稱之ALL文字檔至EXCEL
   並以文字檔名稱後3碼當EXCEL 工作表名稱
2.請問我要改用以文字檔全名稱當EXCEL 工作表名稱.程式該如何修改
3.煩不吝賜教

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

准提部林

新表.Name = Split(Split(T, ".")(0),"\")(1)
看4樓

rouber590324

dear 准 大大
1.使用  新表.Name = Split(Split(T, ".")(0),"\")(1)
    出現 "執行階段錯誤9-陣列索引超出範圍"
2.煩不吝賜教  thanks*10000

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

准提部林

新表.Name = Split(T, ".")(0)

rouber590324

dear 准 大大
100%符合需求.THANKS*10000