Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

WebBrowser1.Navigate

Forumthread: WebBrowser1.Navigate

WebBrowser1.Navigate
19.08.2018 20:43:03
Ludmila
Hallo,
in einer UF habe ich 2 WebBrowser.
Der erste zeigt mit die Dateien an. Alle sind pdf
Private Sub UserForm_Activate()
WebBrowser1.Navigate2 "C:\Desktop\Muster\"
WebBrowser1.Document.CurrentViewMode = 4
WebBrowser2.Navigate "C:\Desktop\Muster\Test1.pdf"
End Sub

Beim WebBrowser2 wird erst der Dialog "Dateidownload" angezeigt und sofort noch ein Dialog "Dateidownload" Möchten Sie diese Datei speichern? Name:Test1.pdf, Typ:Foxit Reader PDF Dokument, 18,5 KB von:C:\Desktop\Muster\... Rest kann ich nicht lesen.
Eigendlich möchte ich das wenn ich die PDF Datei in WebBrowser1 auswähle mir diese im WebBrowser2 angezeigt wird.
Habe Excel 16.0
Danke!
Gruß
Ludmila
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Probiere es mal so...
19.08.2018 21:40:09
Case
Hallo Ludmilla, :-)
... der Spur nach: ;-)
ListBox...
Du muss im Code noch den Pfad anpassen.
Servus
Case

AW: Probiere es mal so...
19.08.2018 21:47:42
Ludmila
Hallo Case,
das Problem ist das gleiche wie vorher beschrieben.
Es kommen wieder nacheinander beide Dialoge.
Im WebBrowser steht: Die Navigation zu der Webseite wurde abgebrochen
Gruß
Ludmila
Anzeige
AW: Nachtrag
19.08.2018 21:50:19
Ludmila
Es funkioniert auch so nicht!
Private Sub CommandButton1_Click()
Dim sFile As String
sFile = Application.GetOpenFilename("PDF Dateien (*.pdf),*pdf")
If sFile = "Falsch" Then Exit Sub
WebBrowser1.Navigate sFile
End Sub

Das liegt dann...
19.08.2018 21:54:38
Case
Hallo Ludmilla,
... eher am "Foxit Reader" bzw. dessen Einstellungen. Wenn alle Stricke reißen, kannst Du auch die auskommentierte Codezeile "Shell..." mal nutzen - die öffnet das PDF - Dokument mit dem Standardprogramm. Bei mir funktioniert das prima mit dem Adobe Reader.
Ich lass mal offen - vielleicht hat noch jemand einen Tipp. ;-)
Servus
Case

Anzeige
AW: Das liegt dann...
19.08.2018 22:12:01
Ludmila
Hallo Case,
die Datei wird bei doppelclick derzeit sowieso mit Foxit Reader geöffnet.
Private Sub UserForm_Activate()
WebBrowser1.Navigate2 "C:\Desktop\Muster\"
WebBrowser1.Document.CurrentViewMode = 4
End Sub

Aber trotzdem Danke für Deine Hilfe.
Muß mich eben noch weiter umsehen.
Gruß
Ludmila
Anzeige

Forumthreads zu verwandten Themen

Anzeige

Infobox / Tutorial

WebBrowser1.Navigate in Excel VBA


Schritt-für-Schritt-Anleitung

Um den WebBrowser1.Navigate in Excel VBA korrekt zu nutzen, folge diesen Schritten:

  1. UserForm erstellen: Öffne Excel und erstelle eine UserForm, in der du die WebBrowser-Steuerelemente einfügen kannst.

  2. WebBrowser-Steuerelemente hinzufügen: Füge zwei WebBrowser-Steuerelemente (WebBrowser1 und WebBrowser2) auf die UserForm hinzu.

  3. Code einfügen: Gehe in den VBA-Editor (Alt + F11) und füge den folgenden Code in das UserForm-Modul ein:

    Private Sub UserForm_Activate()
       WebBrowser1.Navigate2 "C:\Desktop\Muster\"
       WebBrowser1.Document.CurrentViewMode = 4
    End Sub
    
    Private Sub CommandButton1_Click()
       Dim sFile As String
       sFile = Application.GetOpenFilename("PDF Dateien (*.pdf),*pdf")
       If sFile = "Falsch" Then Exit Sub
       WebBrowser1.Navigate sFile
    End Sub
  4. Testen: Starte die UserForm und wähle eine PDF-Datei aus, um sie im WebBrowser1 anzuzeigen.


Häufige Fehler und Lösungen

  • Problem: „Die Navigation zu der Webseite wurde abgebrochen.“

    • Lösung: Überprüfe, ob der Pfad zur Datei korrekt ist und ob die Datei tatsächlich existiert.
  • Problem: Es erscheinen zwei Dialoge für den Dateidownload.

    • Lösung: Dies könnte an den Einstellungen deines PDF-Readers (z.B. Foxit Reader) liegen. Stelle sicher, dass der Reader korrekt konfiguriert ist, um PDF-Dateien anzuzeigen.

Alternative Methoden

Falls du Probleme mit dem WebBrowser hast, kannst du die PDF-Dateien auch direkt mit dem Standardprogramm öffnen. Verwende dazu den folgenden Code:

Shell "C:\Pfad\zu\deinem\PDF\Reader.exe " & sFile, vbNormalFocus

Dies öffnet die Datei mit dem Standard-PDF-Reader, ohne sie im WebBrowser1 anzuzeigen.


Praktische Beispiele

Hier sind einige Beispiele, wie du den webbrowser1.navigate effektiv nutzen kannst:

  1. Einzelne PDF anzeigen:

    Private Sub CommandButton1_Click()
       WebBrowser1.Navigate "C:\Desktop\Muster\Test1.pdf"
    End Sub
  2. PDFs dynamisch laden:

    Private Sub ListBox1_Click()
       Dim selectedFile As String
       selectedFile = "C:\Desktop\Muster\" & ListBox1.Value
       WebBrowser1.Navigate selectedFile
    End Sub

Tipps für Profis

  • Verwende Navigate2: Bei der Verwendung von WebBrowser1 ist Navigate2 effizienter, wenn du mit lokalen Dateien arbeitest.
  • Error Handling: Implementiere Fehlerbehandlungsroutinen, um Benutzer über Probleme beim Laden von Inhalten zu informieren.
  • Browser-Einstellungen: Achte darauf, dass die Browser-Einstellungen deines PDF-Readers optimal konfiguriert sind, um die Anzeige zu verbessern.

FAQ: Häufige Fragen

1. Kann ich mehrere PDF-Dateien gleichzeitig im WebBrowser anzeigen?
Nein, der WebBrowser kann immer nur eine Datei gleichzeitig anzeigen. Du musst die Navigation entsprechend steuern.

2. Welche Excel-Version benötige ich für den WebBrowser?
Das Beispiel basiert auf Excel 16.0, aber der WebBrowser sollte auch in früheren Versionen funktionieren, solange die VBA-Umgebung vorhanden ist.

3. Was mache ich, wenn der WebBrowser nicht reagiert?
Überprüfe die Sicherheitseinstellungen in Excel und stelle sicher, dass das Steuerelement korrekt registriert ist.

Anzeige
Anzeige