Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

WebBrowser1.Navigate

Forumthread: WebBrowser1.Navigate

WebBrowser1.Navigate
19.08.2018 18: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 19: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 19: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 19: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 19: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 20: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
;
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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige