verzw. bald - internet-quellcode in excel importie

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.txt" For Output As #1 Print #1, sTxt Close MsgBox "Der Text wurde gespeichert unter:" & vbLf & _ ThisWorkbook.Path & "\test.txt" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus,

zuerst einmal vielen Dank für Deine schnelle Antwort.

Mit dem importieren des Codes meinte ich wie ich die gespeicherte Textdatei (mit dem enthaltenen html-quellcode) in Excel importieren kann.

Sorry ich habe mich sehr ungenau ausgedrückt.

Mit Datei - Öffnen gehts nicht, weil da eine Fehlermeldung kommt über fehlende css-Dateien, der Import-Wizard öffnet sich nicht.
Und Excel versucht dann anschließend, die Datei wie eine Webseite darzustellen, also nicht mit dem enthaltenen Quelltext.

Und wenn ich jetzt nur einzelne Zeilen aus dem Webseitenquellcode in die Textdatei speichern würde, dann würde ich dieses Problem evtl. umgehen und zum anderen Zeit sparen. WIe würde der VBA-Befehl zum suchen nach Zeilenumbrüchen lauten?

Ich hoffe, das war jetzt einigermaßen verständlich und vielleicht hatte ja jemand schon mal dasselbe Problem.

DAnke und Mfg Heidi

Hallo Heidi,
das war nicht der Code zum auslesen sondern die ausgelesenen Zeilen 20 bis 25 von Kicker.de. Der Code dazu sieh so aus:


Option Explicit
Public Sub Aufruf()
Call URL_Load("http://www.kicker.de")
End Sub
Private Sub URL_Load(ByVal sURL As String)
Dim appIE As Object, lfCount As Integer, txtSearch As Long
Dim sTxt As String, txtLine As String, txtbool As Boolean
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.txt" For Output As #1
lfCount = 1
For txtSearch = 1 To Len(sTxt)
If txtbool Then
If Mid(sTxt, txtSearch, 1) = vbCr Then
Print #1, txtLine
txtLine = ""
txtbool = False
Else
txtLine = txtLine & Mid(sTxt, txtSearch, 1)
End If
Else
If Mid(sTxt, txtSearch, 1) = vbLf Then lfCount = lfCount + 1
Select Case lfCount
Case 20 To 25: txtbool = True 'Zeile 20 bis 25
End Select
End If
Next
Close
MsgBox "Der Text wurde gespeichert unter:" & vbLf & ThisWorkbook.Path & "\test.txt"
End Sub

Code eingefügt mit: Excel Code Jeanie

In diesem Beispiel werden die Zeilen 20 bis 25 in eine Textdatei gespeichert. Sie statt dessen in eine Mappe zu bringen, schaffst du sicher selbst.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

verzw. bald - internet-quellcode in excel importie

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread