Html Datei lässt sich mit Excel nicht speichern
02.08.2006 19:18:59
linkkk
Die Html lässt sich mit dem IE vollständig laden und auch speichern.
Webabfrage mit Excel geht nicht?
Wollte deshalb mit Excel die Html auf meine Festplatte hohlen. Die Html wird aber nur teilweise importiert. Der Code steht unten.
Die Webabfrage auf die von IE gespeicherte Html funktioniert.
Meine Fragen:
Lässt sie die Html doch irgend wie mit einer Webabfrage auslesen?
https://www.cortalconsors.de/euroWebDe/-;jsessionid=GQDn92222qTphsLgXT6L3nhC1bPZp0FG8hJkN6LZQ6fG8MDlppJh!-1947455464?$part=financeinfosHome.Desks.funds.Desks.snapshot.content.snapshot.snapshot.profile&id=AT0000856497&id_name=ISIN&exchange=@DE
Oder kann man die Seite öffnen und vollständig auf meiner Festplatte speichern?
/
/
Option Explicit
Sub Aufruf()
Call URL_Load("https://www.cortalconsors.de/euroWebDe/-;jsessionid=GQDn92222qTphsLgXT6L3nhC1bPZp0FG8hJkN6LZQ6fG8MDlppJh!-1947455464?$part=financeinfosHome.Desks.funds.Desks.snapshot.content.snapshot.snapshot.profile&id=AT0000856497&id_name=ISIN&exchange=@DE")
End Sub
Private Sub URL_Load(ByVal sURL As String)
Dim appIE As Object
Dim sTxt As String
Set appIE = CreateObject("InternetExplorer.Application")
appIE.navigate sURL
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.documentElement.outerHTML
Set appIE = Nothing
Close
Open ThisWorkbook.Path & "\test.html" For Output As #1
Print #1, sTxt
Close
End Sub
Mit freundlichen Grüssen
Jürgen Link