lijst met gekoppelde excel-filenames met daarachter de opslagdatum

Status
Niet open voor verdere reacties.
G

Gesus

Gebruiker
Lid geworden
6 okt 2006
Berichten
126
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
 
Plaats een voorbeeldbestandje.
Zet tevens je code hier boven even in codetags.
 
Geachte lezer,

Hierbij een file als voorbeeld. Zeer wel mogelijk dat dit nu niet werkt, omdat de gekoppelde files nu niet te koppelen zijn. Het gaat echter om de gedachte.
De macro staat in module1 van het file.

Hieronder nog even de code

Code: 
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


met vriendelijke groet,
Gesus

p.s. ik weet helaas niet wat codetags zijn.
 

Bijlagen

  • voorbeeld creatiedatum gekoppelde files.xlsm
    35,5 KB · Weergaven: 30
Laatst bewerkt:
Ik zie geen enkel argument om de koppeling bij openen van het bestand niet automatisch te laten bijwerken.
 
Hallo SNB,

dank voor je snelle reactie. De bedoeling is dat ik dus een macro heb gebouwd waarin ik de vanuit het bronfile gekoppelde excelfile-namen als hyperlink weergeef. Omdat ik vaak met > 10 gekoppelde files naar één file werk is het voor mij wel van belang te weten welke van die gekoppelde files een nieuwere datum hebben dan het bronbestand. In dat geval moet ik ze updaten en anders niet. Daarom zou ik graag achter de (als hyperlink weergegeven) gekoppelde bestanden de creatiedatum zien.

met vriendelijke groet,
Gesus
 
Dat had ik al gelezen in je startbericht.

Lees mijn bericht svp nog eens rustig door.
 
Als ik een bronfile heb met 15 externe gekoppelde files, en al deze vaak grote files kennen een creatiedatum van voor de laatst opgeslagen datum van de bronfile, dan is er geen reden om alle 15 files opnieuw te laten koppelen. Dit zou tijdverlies veroorzaken. Maar schijnbaar lees ik je antwoord niet goed genoeg. Kun je met mijn hiervoor vermelde argument dit toelichten? Dank.
 
via een bevriende collega heb ik de oplossing gevonden. Zie hieronder, waarbij ik de toevoeging in een groter lettertype heb toegevoegd:

Code: 
Sub Lijst_met_gekoppelde_bestanden()
Dim wb As Workbook
Set wb = Application.ThisWorkbook
With ThisWorkbook.Sheets("Gekoppelde bestanden")
.Columns(2).Clear
.Columns(3).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
[SIZE=5]ActiveSheet.Cells(xIndex, 3).Value = FileDateTime(ActiveSheet.Cells(xIndex, 2).Value)[/SIZE]
xIndex = xIndex + 1
Next link
End If
End Sub

met vriendelijke groet,
Gesus
 
Laatst bewerkt:
Deze macro lijkt me trager dan automatisch bijwerken bij openen.

Want wat moet je met die gegevens in het werkblad ?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan