auch ich habe die CD von Hans und habe daraus den Code genommen um eine Internetseite auszulesen. Der Originalcode ist unten angehängt und , um den CD Umsatz nicht zu dezimieren, gemäss Dos Regeln quasi als datei gelöscht :-)))
Ich habe ihn modifiziert für meine Wünsche und es ssieht so aus:
Sub Aufruf()
url = "http://de.wikipedia.org/wiki/Liste_deutschsprachiger_Schriftsteller/"
'url = "http://de.wikipedia.org/wiki/Liste_deutschsprachiger_Schriftsteller#"
For n = 1 To 26
Call URL_Load(url & Chr(64 + n))
Next n
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
zei = Range("A65536").End(xlUp).Row + 1
Range("A" & zei) = sTxt
End Sub
Ich habe ihn mehrmals gestartet, es gab Abstürze ohne Ende, mal kam der Debugger, sorry Fehlermeldung vergessen, aber n stand bei 6, mal kam die Meldung "Speicher voll" und am seltsamsten war, bei einem Aufruf tat sich erst nichst, dann bootete mein Windows neu, ohne vorher bluescreen oder sonstwas zu bringen.
Jetzt suche ich mal einen Mutigen *g der den Code laufen lässt und mir sagt was sich tut. Ich habe win98 und excel2000.
Mein Ziel ist klar, ich möchte eine Liste der Dichter die dort sind, manuell rauskopieen geht problemlos.
Was mich auch irritiert, am Ende der url , ist manchmal # manchmal / beides geht irgendwie manuell!? Ich dachte immer dieses # gilt nur innerhalb einer Seite, quasi als Goto Zielanweisung innerhalb der Seite, also so:
.../Liste_deutschsprachiger_Schriftsteller/A#AA
bzw
.../Liste_deutschsprachiger_Schriftsteller/A#AB
aber
zeitweise ging
.../Liste_deutschsprachiger_Schriftsteller#A
auch *grübel*
Gruß
Reinhard
?ext-Index: ?81102
?hema: ?xtern
?ubject: HTML-Seite aus dem Internet aufrufen und als Textdatei speichern
?roblem: Eine Internet-HTML-Seite soll ausgelesen und als Textdatei im ?erzeichnis dieser Arbeitsmappe gespeichert werden.
?ösung: Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche ?uweisen und starten.
?tandardModule: Modul735 ' *grien*
?ub Aufruf(?)
?all URL_Load("http://www.kicker.de")
?nd Sub
?rivate Sub URL_Load(ByVal sURL As String)
?im appIE As Object
?im sTxt As String
?et appIE = CreateObject("InternetExplorer.Application")
?ppIE.navigate sURL
?o: Loop Until appIE.Busy = False
?o: Loop Until appIE.Busy = False
?Txt = appIE.document.documentElement.outerHTML
?et appIE = Nothing
?lose
?pen ThisWorkbook.Path & "\test.txt" For Output As #1
?rint #1, sTxt
?lose
?sgBox "Der Text wurde gespeichert unter:" & vbLf & _
Application.Path & "\test.txt"
?nd Sub