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

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

樓主熱帖

羅

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

2^#

發表於 2020-4-14 12:26 | 只看該作者

本帖最後由准提部林於 2020-4-14 16:49 編輯

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

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2020-4-14 13:43 | 只看該作者

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

羅

TOP

准提部林