Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlinks verfolgen und speichern

Hyperlinks verfolgen und speichern
25.09.2006 15:53:08
Rainer
Hallo Forum,
ich habe hier folgendes Problem:
Ich habe ein Chart, in dem einige Hyperlinks gespeichert sind.
Ich möchte nun diese Links öffnen und die Inhalte auf einem Laufwerk abspeichern.
Die Links führen zu pdf's und xls's.
Bislang öffnet mir dieser Code alle Links in separaten Browserfenster (ie6):
For Each h In Worksheets(2).Hyperlinks
h.Follow
Next
Leider weiss ich nicht, wie ich an den Befehl "speichern unter" im ie6 komme, oder ob es eine andere Möglichkeit gibt (ohne Browser) die Zielehinter den Links direkt abzuspeichern ("Ziel speichern unter...").
Kann mir einer helfen?
Gruss und Danke
Rainer

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks verfolgen und speichern
25.09.2006 20:15:23
MichaV
Hallo,
was hältst Du hiervon?

Dim hy As Hyperlink
For Each hy In Me.Hyperlinks
MsgBox hy.Address
Next

Gruß- Micha
PS: Rückmeldung wäre nett.
AW: Hyperlinks verfolgen und speichern
25.09.2006 21:34:54
MichaV
Hallo,
Zielehinter den Links direkt abzuspeichern
...Du willst wahrscheinlich nicht nur die Link- Adressen abspeichern, sondern auch die Inhalte, oder? Dann ist meine Antwort natürlich nicht ganz ausreichend.
Gruß- Micha
AW: Hyperlinks verfolgen und speichern
ransi
Hallo Rainer
Teste mal ein wenig mit diesem Code.


Option Explicit
Public Sub test()
Dim hlnk As Hyperlink
Dim Pfad
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Pfad = "C:\"
For Each hlnk In Hyperlinks
    fs.copyfile hlnk.Address, Pfad & Dir(hlnk.Address)
Next
End Sub


Vieleicht bringt dich das weiter...
ransi
Anzeige
AW: Hyperlinks verfolgen und speichern
26.09.2006 12:21:31
Rainer
Hallo Ransi,
guter Ansatz.
Funktioniert copyfile bei Dir mit hyperlinks im Intranet (oder Internet)?
Bei mir kommt immer die Fehlermeldung "Pfad nicht gefunden".
Muss ich Excel noch irgendie sagen, dass auch hyperlinks verfolgt werden dürfen?
h.follow geht zwar, aber es werden immer alle files im ie geöffnet.
Gruss
Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige