I
itsyash
Hi,
My purpose is to Automate some daily reports. For this I need to open
IE through VBA, login into 'Kana Reports' which is a reporting tool.
After this i need to use more sendkeys and save the text.
Using the code below, I am able to open IE and save text, but sendkeys
does not work because when I run the code using VBA, the "Sendkeys"
runs for VBA Editor.
Is there a way I can do the sendkeys into IE?
Please help
Thanks,
Yash
Sub Demo()
Dim IE As Object
Dim nFile As Integer
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Silent = False
.Navigate
"http://response.upstreambiz.com:8001/default.asp?partition=Orbitz"
Do Until Not .Busy
DoEvents
Loop
nFile = FreeFile
Open "D:\yahoo.txt" For Output Shared As #nFile
Print #nFile, .Document.DocumentElement.InnerText
Close #nFile
.Quit
End With
Set IE = Nothing
End Sub
My purpose is to Automate some daily reports. For this I need to open
IE through VBA, login into 'Kana Reports' which is a reporting tool.
After this i need to use more sendkeys and save the text.
Using the code below, I am able to open IE and save text, but sendkeys
does not work because when I run the code using VBA, the "Sendkeys"
runs for VBA Editor.
Is there a way I can do the sendkeys into IE?
Please help
Thanks,
Yash
Sub Demo()
Dim IE As Object
Dim nFile As Integer
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Silent = False
.Navigate
"http://response.upstreambiz.com:8001/default.asp?partition=Orbitz"
Do Until Not .Busy
DoEvents
Loop
nFile = FreeFile
Open "D:\yahoo.txt" For Output Shared As #nFile
Print #nFile, .Document.DocumentElement.InnerText
Close #nFile
.Quit
End With
Set IE = Nothing
End Sub