Como importar a excel a travez de una pagina web privada

[princess]

Hola tengo que importar a excel una base de datos que se encuentra en una página web que me pide contraseña, lo e estado haciendo manual sin embargo es mucha información para seguirlo haciendo haci.

tengo entendido que tengo que ocupar el

QueryTable.PostText

[princess]

este es el codigo que llevo pero cuando lo ejecuto me manda un bye en la celda de excel

[princess]

Sub Macro1()

'

' Macro1 Macro

'

'

Const Nick = "hernandes"

Const Pass = "cor34"

For Each Q In ActiveSheet.QueryTables

Q.Delete

Next Q

ActiveSheet.Cells.Clear

'

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://10.103.133.160/Chronos1.asp?Opc=EWOKS ", Destination:=Range( _

"$A$1"))

.PostText = "ilogin=" & Nick & "&ipassword=" & Pass

.Refresh BackgroundQuery:=False

.Connection = "URL;http://10.103.133.160/Chronos1.asp?Opc=EWOKS"

.Name = "asp?Opc=EWOKS"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.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

.Refresh BackgroundQuery:=False

End With

Range("A2").Select

End Sub