如何返回给定文件夹中每个循环文件​​的路径?

时间:2019-04-17 12:51:44

标签: excel vba

因此,该项目是遍历特定文件夹并从多个xls文件复制一些数据。诀窍在于,用户可以在此处设置开始日期和结束日期,以决定要循环浏览的文件。因此,如果日期是2017.10.13和2019.01.01。那么它只能从该时间段内创建的文件中复制数据。

For Each wbfile In folder.Files
    If fso.GetExtensionName(wbfile.Name) = "xls" Then

        If (FileDateTime(wbfile)) >= start_date And _
        (FileDateTime(wbfile)) <= end_date Then

            'copy-paste function


        End If

    End If
Next wbfile

我知道第一个条件是否可以正常工作,但我很难找到如何返回循环中每个文件的路径。如果我得到了各个路径,则可以将其粘贴到“路径”的位置

1 个答案:

答案 0 :(得分:0)

您可以使用File.Path属性,也可以使用wbfile.Path