Re: Unable extract data from WEB query

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hi Tim,

Thank you for your reply.

I have tried executing each command sequentially still final out put is same
( login page). What is surprising to me is with the code given below it
opens up new IE and with my last query (With
Active***.QueryTables.Add(Connection:= _
"URL;http://10.6.4.48/institution/TransactionReport.jsp";,
Destination:=Range( _
"A1"))

it starts quering from login page instead of report available in IE.

Can you please change codes if required to get required output.

Thank you.

"Tim Williams" wrote:

You need to add a wait after submitting the login form.

Tim


"Vijay Kotian" <VijayKotian@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:8C97376C-C27B-4D9B-B81A-E0A0C98533C6@xxxxxxxxxxxxxxxx
I want to extract data from web. I have written a codes which is opening
CORRECTLY web site and passing login ID and Password. The page is moved
to
anoher page where i pass required date (from date and to date) on submit
IE
is providing required data correctly.

How these data can be extracted (downloaded / imported) into excel... When
I
run the macro it imports data pertaining to Login page instead of actual
data
which is appearing on IE.

Please help me out.

My codes are as under;

You may not able to access the site mentioned therein due to private
domain.

Dim ie As Object
On Error GoTo 1
Set ie = CreateObject("InternetExplorer.Application")
With ie
.navigate "http://10.6.4.48/institution/Login.jsp";
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
With .Document.Forms(0)
.UID.Value = "GANESSR" 'Change to YOUR Login ID
.Pass.Value = "GANESSR" 'Change to YOUR password
.submit.Click
End With
' Do While Not CBool(InStrB(1, .Document.URL, "index.php"))
' DoEvents: Loop
' Call ShowWindow(.Hwnd, 3) 'Maximize
.Visible = True
Date = Format$(Now(), "MM/DD/YYYY")
' Date = Date - 4
.navigate "http://10.6.4.48/institution/TransactionReport.jsp";
With .Document.Forms(0)
.txtFromDt.Value = Date
.txtToDt.Value = Date
.submit.Click
End With
End With

Exit Sub


With Active***.QueryTables.Add(Connection:= _
"URL;http://10.6.4.48/institution/TransactionReport.jsp";,
Destination:=Range( _
"A1"))
' .Name = "TransactionReport"
.Name = "AllEntries"

.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
' .WebTables = x
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


1: MsgBox "Unexpected Error, sorry."
ie.Quit
Set ie = Nothing




.

Quantcast