Runtime Error 5: Invalid procedure call or argument

• • Reply

  11 years ago

  by Arasi

  Maruvoor Arasi

  Chennai, India

  Joined 11 years ago

  Hi all, I am trying to extract the texts from a web page and write it to a text file. I am able to read the text by using internetexplorer.application but when I try to write it to the notepad sometimes it gives Runtime Error 5: Invalid procedure call or argument. Microsoft VB Help says that it happens bcoz of "An argument probably exceeds the range of permitted values."

  Can someone help me to get rid of this problem.

  Thanks in advance.

  This is the code..

    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.

  Report abuse
• • Reply

  11 years ago

  by bytelogik

  Mahesh .W

  NED, India

  Joined 11 years ago

  Should that be : f.WriteLine instead of f.Write ?

  Is strMyPage declared as string ?

  Why don't you use simple file handling to save the string data to a TXT file?

  pseudocde:

  open filename write down the string close file

  Report abuse