View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Nate Oliver Nate Oliver is offline
external usenet poster
 
Posts: 8
Default scraping text from the active window

Hello Geoffrey,

Typically you want to set the object and grab the inner
text. I'd use an array and split it on VBCRLF.

So if you want to grab text from a non-framed window, like
msn.com, try something like:

Sub Download_Unread1()
Dim ie As Object, frm As Object, myArr
Set ie = GetObject(, "InternetExplorer.Application")
myArr = Split(ie.document.body.innerText, vbCrLf)
[a5].Resize(UBound(myArr) + 1) = Application.Transpose
(myArr)
Set ie = Nothing
End Sub

You'll need to tweak this for frames, i.e., a google
newsgroup thread:

http://groups.google.com/groups?hl=en&lr=&ie=UTF-
8&threadm=01bb9ff3%244a93f360%24LocalHost%
40dpmellon&rnum=1&prev=/groups%3Fq%3D%2522I%2Bhate%
2BAccess%2522%26hl%3Den%26lr%3D%26ie%3DUTF-8%26selm%
3D01bb9ff3%25244a93f360%2524LocalHost%2540dpmellon %26rnum%
3D1

Sub Download_Unread2()
Dim ie As Object, frm As Object, myArr
Set ie = GetObject(, "InternetExplorer.Application")
'0-Based, 0 grabs left frame, 1 grabs right frame.
myArr = Split(ie.document.frames
(1).document.body.innerText, vbCrLf)
[a5].Resize(UBound(myArr) + 1) = Application.Transpose
(myArr)
Set ie = Nothing
End Sub

Hope this helps.

Regards,
Nate Oliver

-----Original Message-----
I'd like to be able to have excel scrape text from an

active window while I'm surfing. I can currently import a
picture, but would prefer the text.