excel - VBA根据列中的单元格条件从不同的文件夹中打开多个文件

Question

我有以下代码，我可以对其进行修改以打开一批保存到单个文件夹中的文件，这意味着路径始终是静态的。

但是，我现在需要从多个源中捕获宏提取的数据，我在运行宏的文件中引用了这些数据。

我需要更改我的“FoldPath”字符串（一起更改）以将字符串基于特定列中的文件夹地址，这将在该列中进行更改。

最终，我在特定列中有文件路径，在相邻列中有文件夹名称，并希望提取列表中每个文件的数据。

感谢您提供的任何帮助

Sub FileUpdateInfo()


Dim FoldPath As String

FoldPath = ("C:\Users\xpa\Desktop\Projects\IPRs")


For Each d In ThisWorkbook.Sheets("Files").Range("A2", ThisWorkbook.Sheets("Files").Cells(Rows.Count, "A").End(xlUp))


Set owb = Application.Workbooks.Open(FoldPath & "\" & d.Value, ReadOnly:=True, UpdateLinks:=False)


LastSaved = owb.BuiltinDocumentProperties("Last Save Time")

d.Offset(, 1).Value = LastSaved


LastAut = owb.BuiltinDocumentProperties("Last Author")

d.Offset(, 2).Value = LastAut


LastAut = owb.BuiltinDocumentProperties("Creation Date")

d.Offset(, 3).Value = LastAut



owb.Close SaveChanges = False


Next d


End Sub

标签： excelvbafile