Question

excel VBA自动抓取指定文件夹内文件名及创建时间

各位老板帮忙
这个代码应该怎么写啊，、
想要的效果是 点击按钮 刷新自动生成文件名及创建时间

Answer 1

试试
Sub text()
Dim f$, p$
p = ThisWorkbook.Path & "\"
f = Dir(ThisWorkbook.Path & "\*.xls")
Do While f <> ""
Cells(Rows.Count, 1).End(3).Offset(1) = f
Cells(Rows.Count, 2).End(3).Offset(1) = CreateObject("Scripting.FileSystemObject").getfile(p & f).datecreated
f = Dir
Loop
End Sub

追问

在这个代码加时间显示怎么弄啊？

Sub Macro1()
Dim wj As String
wj = Dir("\\公用办公\FangCloudSync\公共盘\销售\报价单\成本分析表\恒坤" & "\*.*")
s = 1
Do While wj ""
s = s + 1
Cells(s, 4) = wj
wj = Dir
Loop
End Sub