返回列表 上一主題 發帖

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

rouber590324

帖子
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
收藏 分享
羅

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-5-25 15:31 | 只看該作者
回復 1# rouber590324
Cells(r, 1) = Split(file1,".")(0)
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2016-5-26 11:23 | 只看該作者
DEAR stillfish00 大大
感謝指導.
羅

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題