因此,该项目是遍历特定文件夹并从多个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
我知道第一个条件是否可以正常工作,但我很难找到如何返回循环中每个文件的路径。如果我得到了各个路径,则可以将其粘贴到“路径”的位置
答案 0 :(得分:0)
您可以使用File.Path
属性,也可以使用wbfile.Path