- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
dear all
圖一可抓取資料夾檔案名稱list
若要同時抓取該檔案存檔時間
該如何修改 煩不另賜較 thankls*10000
圖一
Sub 列出資料夾檔案名稱()
Sheet1.Visible = True
Sheet1.Select
Range("A1").Select
Sheet1.[A1:A65536].ClearContents
path1 = "\\89.80.70.1\exp\abfs_sm_via\jyk158a\*.*"
file1 = Dir(path1): r = 1
Do While file1 <> ""
'Cells(r, 1) = file1 '檔案名稱+副檔名
Cells(r, 1) = Split(file1, ".")(0) '僅檔案名稱
r = r + 1
file1 = Dir '取得下一個檔名
Loop
Sheet1.Select
Range("A1").Select
End Sub |
|
發表於 2021-7-29 15:03
| 
