Sub GetTextFromIe()
Dim NPOFile$, myFile$
Dim ie As Object, objDoc As Object, f As Object, fs As Object
Dim strURI As String
strURI = "www.google.com"
Set ie = CreateObject("internetexplorer.application")
ie.Navigate strURI
'Wait for page to load!
Do
If ie.ReadyState = 4 Then
ie.Visible = False
Exit Do
Else
DoEvents
End If
Loop
Set objDoc = ie.Document
strMyPage = objDoc.body.innerText
'Use this Text file!
Dim FileSave
FileSave = Application.GetSaveAsFilename("Contents-" & Format(Date, "dd-mm-yy") & "-" & Format(Time, "hh") & "-" & Format(Time, "nn") & "-" & Format(Time, "ss"), "Text Files (*.txt),*.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(FileSave, True)
myFile = FileSave
NPOFile = "NotePad.exe " & myFile
'Work with file [Append Text to File].
f.Write (strMyPage)
f.Close
'Open NotePad with a data file!
ActiveSheet.Select
Call Shell(NPOFile, 1)
Set objDoc = Nothing
Set ie = Nothing
End Sub
The line f.Write (strMyPage) gives me the error.
Bookmarks