Hi,

I have company wiki which contains some attachment in it. So first I need to login to the wiki and then download the excel file.

I have tried this:

Dim strValue As String
Dim myValue As Variant
Dim myHTMLElement As IHTMLElement
Dim myHTMLElement1 As IHTMLElement
strValue = "http://...wiki/"

On Error GoTo err_clear

myBrowser.Visible = True
myBrowser.navigate strValue


Do
DoEvents
Loop Until myBrowser.readyState = READYSTATE_COMPLETE


Set HTMLDoc = myBrowser.document
' Load all the details to the login page
HTMLDoc.all.Item("os_username").Value = "username"
myValue = InputBox("Password for your account:")
If myValue = "" Then Application.Quit
HTMLDoc.all.Item("os_password").Value = myValue

'Finds the login button and proceeds the click event
For Each myHTMLElement In HTMLDoc.getElementsByTagName("input")
If myHTMLElement.ID = "loginButton" Then
myHTMLElement.Click
Do While myBrowser.Busy: DoEvents: Loop
Do Until myBrowser.readyState = READYSTATE_COMPLETE: DoEvents: Loop
Workbooks.Open ("http://...wiki/download/List.xls")
Exit For
End If
Next


err_clear:
If Err < 0 Then
MsgBox Err.Description
Err.Clear
Exit Sub
End If


When I run the above code it just copies the login page my excel sheet.

Could anyone suggest me what should be done?

Thanks