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

---

作者: rouber590324    時間: 2016-5-25 13:36     標題: 自動抓取指定資料夾檔名問題請教

DEAR SIR
1 執行表一程式會秀出\\89.80.70.1\design\add_word\ 下ALL 檔案名稱例:A02123A.TXT  A02234A.TXT
2 請教如何修改程式讓只秀出檔名.不秀出副檔名.即秀出  A02123A   A02234A
3.煩不吝賜教   THANKS*10000

表一
Sub 列出外加字檔案LIST()
Sheet22.Visible = True
Sheet22.Select
Range("A1").Select
Sheet22.[A1:A65536].ClearContents
path1 = "\\89.80.70.1\design\add_word\*.*"
file1 = Dir(path1): r = 1
Do While file1 <> ""
  Cells(r, 1) = file1
  r = r + 1
  file1 = Dir '取得下一個檔名
Loop
Sheet3.Select
Range("A1").Select
End Sub

---

作者: stillfish00    時間: 2016-5-25 15:31

回復 1# rouber590324
Cells(r, 1) = Split(file1,".")(0)

---

作者: rouber590324    時間: 2016-5-26 11:23

DEAR stillfish00 大大
感謝指導.

---

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