- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2026-5-26
|
回復 1# rouber590324
請測試看看，謝謝
Sub 列出資料夾檔案名稱()
Dim fs, f, fc, f1
Set fs = CreateObject("Scripting.FileSystemObject")
a = Application.InputBox("請輸入存放路徑:")
Range("a1").Select
Set f = fs.GetFolder(a)
Set fc = f.Files
[A1:B1000] = ""
For Each f1 In fc
With ActiveCell
.Value = Split(f1.Name, ".")(0)
.Offset(0, 1).Value = f1.DateLastModified
.Offset(1, 0).Select
End With
Next f1
Set fs = Nothing: Set f = Nothing: Set fc = Nothing
End Sub |
|
發表於 2021-7-29 15:48
| 