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