RE: Web query problem when password required
- From: Henrich <Henrich@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Thu, 15 Mar 2007 06:19:10 -0700
Madhan, thanks for your reply first.
The problem with login is solved but the problem with query is not yet
solved. My code just open IE, log in and open the reguested page but when it
should query the page the resuld is that in excel is as result that i don't
have permission for the requested page. So i think that the excel doesn't
hold the nick and password. Have you any idea how could be this done? Thanks
Hi, you will have to iterate through a series of IHTMLInputElements of type.
TEXT and given-name, locate the appropriate ones, set the data, iterate
through a series of IHTMLInputElements of type button/submit and given-name
and invoke the click event. The forms number may not match sometimes.
Hi, a i have code (see bellow) with web query but the page required login.
the page is http://www.hockeyarena.net/hokej.php and all i need is to connect
and import one table but login doesn't work. I can't figure out why? Maybe it
is because of wrong form number but i have tryid other numbers and it didn't
help. Any sugestion how solve this problem will be appreciated. Thanks
- - -
Public Declare Function ShowWindow& Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Integer)
Dim ie As Object
On Error GoTo 1
Set ie = CreateObject("InternetExplorer.Application")
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
.UserName.Value = "xxx"
.Password.Value = "xxx"
Do While Not CBool(InStrB(1, .Document.URL, "index.php"))
Call ShowWindow(.hwnd, 3) 'Maximize
.Visible = True
Set ie = Nothing
With ActiveSheet.QueryTables.Add(Connection:= _
.Name = "manager_training_form1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
1: MsgBox "Unexpected Error, sorry."
Set ie = Nothing