geachte lezers,
Ik heb een macro gebouwd met daarin een lijst van gekoppelde bestanden in een bepaald file. Ik wil graag in een kolom C hier de datum van die files laten zien waarmee ze zijn opgeslagen. Op die manier kan ik zien of ik ze eventueel moet updaten (datum gekoppeld bestand > datum bronfile).
Maar ik weet niet hoe ik dit moet opvragen en in kolom C moet zetten:
Sub Lijst_met_gekoppelde_bestanden()
Dim wb As Workbook
Set wb = Application.ThisWorkbook
With ThisWorkbook.Sheets("Gekoppelde bestanden")
.Columns(2).Clear
End With
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
ThisWorkbook.Sheets("Gekoppelde bestanden").Activate
xIndex = 2
For Each link In wb.LinkSources(xlExcelLinks)
ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(xIndex, 2), link, , , link
xIndex = xIndex + 1
Next link
End If
If IsEmpty(wb.LinkSources(xlExcelLinks)) Then
[wel_geen_ext_data] = "Externe data niet aanwezig"
End If
End Sub
Wie kan mij helpen?
met vriendelijke groet,
Gesus
Ik heb een macro gebouwd met daarin een lijst van gekoppelde bestanden in een bepaald file. Ik wil graag in een kolom C hier de datum van die files laten zien waarmee ze zijn opgeslagen. Op die manier kan ik zien of ik ze eventueel moet updaten (datum gekoppeld bestand > datum bronfile).
Maar ik weet niet hoe ik dit moet opvragen en in kolom C moet zetten:
Sub Lijst_met_gekoppelde_bestanden()
Dim wb As Workbook
Set wb = Application.ThisWorkbook
With ThisWorkbook.Sheets("Gekoppelde bestanden")
.Columns(2).Clear
End With
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
ThisWorkbook.Sheets("Gekoppelde bestanden").Activate
xIndex = 2
For Each link In wb.LinkSources(xlExcelLinks)
ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(xIndex, 2), link, , , link
xIndex = xIndex + 1
Next link
End If
If IsEmpty(wb.LinkSources(xlExcelLinks)) Then
[wel_geen_ext_data] = "Externe data niet aanwezig"
End If
End Sub
Wie kan mij helpen?
met vriendelijke groet,
Gesus