Office: (Office 2013) Pfad (url) aus link auslesen

Hallo Forum :-)

mich plagt ein kleines Problem,
in dem Beitrag
http://www.ms-office-forum.net/forum...d.php?t=243926
werden Hyperlinks aufgelistet, soweit funktioniert es auch.
Allerdings werden nicht alle Links korrekt wiedergegeben, bei Pfadangaben wird des Öfteren der Link "verstümmelt" und sieht dann so aus:
..\..\..\Kopie\tst2.xlsx

wie bekomme ich den ganzen Pfad sichtbar?

Danke!

:)

 

Hallo Martin,

der Hyperlink ist weder unkorrekt noch verstümmelt. Es ist nur eine andere Schreibweise. Der Verweis ist von der aktuellen Position in der Verzeichnishirarchie 3 Ebenen nach oben und dann die Datei Kopie\tst2.xlsx.

Vielleicht hilft dir ja ein anderer Aufruf (anderer Parameter):
MyHyperlinkText = Zelle.Hyperlinks(1).TextToDisplay

 

Hallo Günther,

vielen Dank für die Antwort, an TextToDisplay hatte ich auch schon gedacht, aber der in der Zelle, für den Nutzer sichtbare Text, deckt sich leider nicht mit dem Zielpfad :-(

 

Dann klicke mit der rechten Maustaste auf auf den Hyperlink -> HL bearbeiten und ändere unten in der Anzeige der Adresse auf auf den Pfad, wie er dargestellt werden soll. Dann funktioniert auch die Version, wie du sie jetzt verwendest.

 

Das ist nach dem Speichern und schließen leider wieder von Excel geändert :-(

 

Schade, so weit hatte ich mich nicht vor gearbeitet. Da bleibt dann wohl nur eine Lösung mit einigem Programmier-Aufwand über ...

 

genau da habe ich keine Ahnung wie ich anfangen soll...
Mal bekommt man in den Hyperlinks den UNC Pfad, mal den Windows Pfad, teilweise wird ein / statt \ zur Verzeichnistrennung verwendet...
Gibt's da was bei VSTO das mir weiterhilft? Denn am Mauszeiger wird immer der korrekte Pfad angezeigt.

 

Theoretisch könnte man ja mit ActiveWorkbook.Path und den ..\..\..\Kopie\tst2.xlsx irgendwie zurückrechenen?

 

Hallo

aus dem relativen Path in Bezug auf das Workbook ginge das ggf mit ner Api-Funktion

Code:

die Funktion RelativPathZuFullPath ruftst du dann z.b. im Worksheet_Change - Event auf.

 

Und wie ?

Ich hatte das Problem letztens auch und habe mir eine eigene Funktion gebastelt (die wahrscheinlich noch optimierbar wäre)

Code:

Aber funktioniert *wink.gif*

 

Hallo

Die Frage verstehe ich jetzt nicht. Wie setzt du denn deine funktionierende Funktion ein?

Anbei simples Bsp, wie ichs machen könnte. eine zelle in Spalte A wählen ->rechtsklick->Hyperlink einfügen->eine Datei auswählen->OK

 

Bei mir in der Firma klappte das Ganze halt nicht und da kam nur ein zusammengesetzter String aus thisworkbook.path und dem relativen Link bei raus

z.B.

G:\Ordner1\Ordner2\..\..\test.xls

Hier zuhause allerdings klappt Deine Beispielmappe...seltsam

 

Hallo Ralf,

vielen Dank für deine Scripte.
Ich habe das Skript einwandfrei anwenden und die Pfade in das extra Blatt ausgeben können.
Nachdem ich die Pfade nun korrigiert habe müsste ich diese wieder in das originale Feld hinterlegen. Mein Problem hierbei sind meine stark eingeschränkten Programmierkenntnisse. Hast du hierfür vielleicht noch irgendwo ein fertiges Skript liegen was du uns für diesen Thread zur Verfügung stellen würdest?
Wären dir Sehr dankbar.

Mit freundlichen Grüßen
Johannes

 

Hyperlinks ersetzen? Gibt es bereits hier im Forum...
https://www.ms-office-forum.net/foru....php?p=1113577

 

Super Danke für deine Hilfe,
jedoch geh ich einen Schritt zurück weil ich vermute mich beim ersten Post falsch ausgedrückt zu haben.
ich habe dein Skript ausgeführt:

PHP:

         Public Sub HoleAlleHyperlinks()
Dim ws As Worksheet
Dim h As Hyperlink
Dim r As Long
'Durchläuft alle Worksheets der aktuellen Arbeitsmappe
'Das Tabellenblatt "AlleHyperlinks" muss vorher angelegt werden
r = 1
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "AlleHyperlinks" Then
For Each h In ws.Hyperlinks
Worksheets("AlleHyperlinks").Range("A" & r) = ws.Name
Worksheets("AlleHyperlinks").Range("B" & r) = h.Parent.Address
Worksheets("AlleHyperlinks").Range("C" & r) = h.Address
r = r + 1
DoEvents
Next
End If
DoEvents
Next
MsgBox "Feddich..."
End Sub