返回列表下一主題上一主題發帖

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

rouber590324

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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