大家帮忙看看如实现VBA自动定位

dzzxlbj

有一段代码是提取指定文件夹内文件的名称、时间属性的，但是每次用的时候都要指定文件夹的位置，很不方面。能不能实现把xlsm文件粘贴到哪，就能自动定位到那个文件夹？

Sub GetFileTime()
    Dim i As Integer
    i = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fs = fso.getfolder("d:\.").Files
    With Sheet1
        .Cells(1, 1) = "序号": .Cells(1, 2) = "创建时间": .Cells(1, 3) = "最后修改时间": .Cells(1, 4) = "最后访问时间"
        For Each f In fs
            i = i + 1
            .Cells(i, 1) = f.Name: .Cells(i, 2) = f.datecreated: .Cells(i, 3) = f.DateLastModified: .Cells(i, 4) = f.DateLastAccessed
        Next
    End With
End Sub

shenjianrong163

可以，将
Set fs = fso.getfolder("d:\.").Files
改为：
Set fs =fso.getfolder(ThisWorkbook.Path).Files

dzzxlbj

shenjianrong163 发表于 2020-3-5 00:43
可以，将
Set fs = fso.getfolder("d:\.").Files
改为：

成功解决问题