У меня есть следующий код, который я смог изменить, чтобы открыть пакет файлов, которые были сохранены в одной папке, что означает, что путь всегда был c.
Однако теперь я нужно собрать данные, которые макрос извлекает из ряда источников, на которые я ссылаюсь в файле, из которого запускается макрос.
Мне нужно изменить то, что было моей строкой «FoldPath» ( изменим все вместе), чтобы основать строку на адресе папки в указанном столбце c, который будет меняться по мере продвижения вниз по столбцу.
В конечном итоге у меня есть путь к файлу в указанном столбце c и имя папки в соседнем столбце и хотел бы извлечь данные для каждого файла в списке.
Спасибо за любую помощь, которая может быть предложена
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