V
vba man
I've used the following code to open a browser window and read the data
to a file. I know there is another way using a query, but that doesn't
work for this application.
What I'd like to be able to do is select a this open browser after
opening other explorer windows.
This would be similar to the command:
Workbooks("objects.xls").Activate
where I have a file named objects.xls open in excel
An alternative would be to select a browser window after I've opened it
manually.
Other ideas I can work with.
How can I read the caption from a browser after activating it?
Is there such a thing like currentwindow.caption?
Thanks for your help. Please do not email me as I never look at that
one.
_________________________________________________
Sub openbrowswer_save_to_list2()
Set objie = CreateObject("InternetExplorer.Application")
objie.Visible = True
objie.Navigate ("http://www.yahoo.com/")
Do While objie.Busy
Loop
Do While objie.Document.readyState <> "complete"
Loop
Set fs = CreateObject("Scripting.FileSystemObject")
Set stream = fs.CreateTextFile("list2.txt")
stream.Write objie.Document.body.innerhtml
stream.Close
End Sub
to a file. I know there is another way using a query, but that doesn't
work for this application.
What I'd like to be able to do is select a this open browser after
opening other explorer windows.
This would be similar to the command:
Workbooks("objects.xls").Activate
where I have a file named objects.xls open in excel
An alternative would be to select a browser window after I've opened it
manually.
Other ideas I can work with.
How can I read the caption from a browser after activating it?
Is there such a thing like currentwindow.caption?
Thanks for your help. Please do not email me as I never look at that
one.
_________________________________________________
Sub openbrowswer_save_to_list2()
Set objie = CreateObject("InternetExplorer.Application")
objie.Visible = True
objie.Navigate ("http://www.yahoo.com/")
Do While objie.Busy
Loop
Do While objie.Document.readyState <> "complete"
Loop
Set fs = CreateObject("Scripting.FileSystemObject")
Set stream = fs.CreateTextFile("list2.txt")
stream.Write objie.Document.body.innerhtml
stream.Close
End Sub