|
Hallo,
Ich brauch wieder einmal eure Hilfe. Ich möchte gern eine Webseite als Text speichern (kein Quelltext). erster Code läuft super, aber leider kommt hier der Quelltext.:
1. Code.
Sub Aufruf()
Call URL_Load("http://www.google.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.txt" For Output As #1
Print #1, sTxt
Close
MsgBox "Der Text wurde gespeichert unter:" & vbLf & _
Application.Path & "\test.txt"
End Sub
2. Code:
Beim zweiten Code ist das Ergebniss genau das was ich brauch aber ich muss immer noch den Speicherort festlegen, ich brauch dies leider automatisiert :(
Sub b()
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://www.office-loesung.de/ftopic343448_0_0_asc.php"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
IEApp.execwb 4, 1
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub
Wer kennt sich aus, damit ich aus den beiden Codes ein richtiges machen kann :)
Besten Dan für eure Hilfe!
BG Rainer
|