標題: [發問] 抓取指定資料夾文字檔問題請教 [打印本頁]

---

作者: rouber590324    時間: 2020-4-14 11:55     標題: 抓取指定資料夾文字檔問題請教

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

---

作者: 准提部林    時間: 2020-4-14 12:26

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

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

---

作者: rouber590324    時間: 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

---

作者: 准提部林    時間: 2020-4-14 16:46

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

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

---

作者: rouber590324    時間: 2020-4-15 10:08

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)