vba文件名帶日期

Ⅰ 如何利用vba代碼批量提取文件名及修改日期到Excel表

程序代抄碼：

OptionExplicit

SubYgB()
Dimp,i,fn
i=1
p="d:doc"
fn=Dir(p&"*.*")
Whilefn<>""
Cells(i,1)=fn
Cells(i,2)=FileDateTime(p&fn)
i=i+1
fn=Dir
Wend
EndSub

運行示例：

Ⅱ VBA用曰期控制項動態打開文件，文件名命名格式為YYYY-MM-DD.xls，如何用日期控制項打開對

FileName = Format(DTPicker1.Value, "yyyy-mm-dd") & ".xls"

Ⅲ 如何利用vba代碼提取文件修改日期

第一次將文件名及文件修改時間提取出來，然後感覺文件修改時間進行排序，達到樓主要求打開文件的順序。
比如文件1.XLS 修改時間7月2日是排位第一的，就直接打開1.xls文件即可了。