ActiveWorkbook.LinkSources
30.01.2006 17:54:05
Tristan
kurze Frage.
Ich habe das unten genannte Makro möchte aber nicht das Er alle
Verknüpfungen aktualisiert, sondern nur bestimmt ( es gibt
auf dem Blatt mehrere Verknüpfungen die mit verschiedenen Tabellen
aktualisiert werden soll)
Wie sag ich Ihm das Er nur ausgewählte Beispiel
Zelle C12;C13;C14 aktualisieren soll ?
Private Sub CommandButton1_Click()
Dim var As Variant
Dim iCounter As Integer
x = CurDir
Dim sName As String, sPath As String, sExt As String
ChDrive ("D:\") ' Hier die Ablage eingeben
ChDir ("D:\excel\report") ' Hier den Pfad eingeben
sName = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Bitte die Datei auswählen die aktualisiert werden soll")
ChDrive x
ChDir x
If sName = "Falsch" Then Exit Sub
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
ActiveWorkbook.ChangeLink _
Name:=var(iCounter), newname:=sName
Next iCounter
End If
End Sub