[發問] 自動抓取指定資料夾檔名問題請教

rouber590324

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

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

rouber590324

DEAR stillfish00 大大
感謝指導.