Links aktualisieren

Forumthread: Links aktualisieren

Links aktualisieren

29.01.2006 11:31:45

Tristan

Hallo Forum,
ich möchte gerne vorhandene Verknüpfungen aktualisieren.
Das unten angegebene Makro möchte ich so anpassen das
keine Inbox mehr erscheint, sondern der Explorer
sich in einer bestimmten Ablage öffnet und ich dann
die Datei auf die sich die Verknüpfungen neu beziehen
auswählen kann, wie geht das ?


Sub LinkUmleitung()
Dim var As Variant
Dim iCounter As Integer
Dim sName As String, sPath As String, sExt As String
sPath = ThisWorkbook.Path & "\"
sExt = ".xls"
sName = InputBox( _
prompt:="Quellarbeitsmappe:", _
Default:="test2")
If sName = "" Then Exit Sub
sName = sPath & sName & sExt
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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Links aktualisieren

29.01.2006 11:41:39

MichaV
@MichaV

29.01.2006 11:46:27

Tristan
AW: @MichaV

29.01.2006 11:48:55

MichaV
AW: @MichaV

29.01.2006 11:59:19

Tristan
AW: @MichaV

29.01.2006 12:09:13

MichaV
AW: @MichaV

29.01.2006 12:19:03

Tristan

AW: Links aktualisieren

29.01.2006 11:41:39

MichaV

Hallo,
ungetestet:


Sub LinkUmleitung()
Dim var As Variant
Dim iCounter As Integer
Dim sName As String, sPath As String, sExt As String
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
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

Gruß- Micha
PS: Rückmeldung wäre nett.

@MichaV

29.01.2006 11:46:27

Tristan

Danke Micha, das passt aber wie stell ich den Anfangspfad ein so das
sich automatisch die Ablage C:\Test\Bla öffnet und dann die
Datei ausgwählt werden kann ?

AW: @MichaV

29.01.2006 11:48:55

MichaV

Hallo,
oben noch ein Dim x as String
dann 3 Zeilen einfügen:
x=Application.Defaultfilepath 'diese
Application.Defaultfilepath="c:\Test\Bla" 'diese
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
Application.Defaultfilepath=x 'und diese
Gruß- Micha
PS: Rückmeldung wäre nett.

AW: @MichaV

29.01.2006 11:59:19

Tristan

Das macht Er leider nicht.... Er öffnet immer den Pfad den man sich als letzten
hat anzeigen lassen, ist das so richtig ?


Private Sub CommandButton1_Click()
Dim var As Variant
Dim iCounter As Integer
Dim x As String
Dim sName As String, sPath As String, sExt As String
x = Application.DefaultFilePath 'diese
Application.DefaultFilePath = "c:\Test\Bla" 'diese
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
Application.DefaultFilePath = x 'und diese
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

AW: @MichaV

29.01.2006 12:09:13

MichaV

Hallo Tristan,
so, nun hab ich mein Excel auch mal angemacht ;o) Du hast Recht, war mein Fehler. So funzt es 100%ig:
x = CurDir
ChDrive ("c:\")
ChDir ("c:\Test\Bla\")
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
ChDrive x
ChDir x
Gruß- Micha
PS: Rückmeldung wäre nett.

AW: @MichaV

29.01.2006 12:19:03

Tristan

Jetzt funktioniert es !
Danke Danke Danke !!!!

Beliebteste Forumthreads (12 Monate)

Forumthread: Links aktualisieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread