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

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

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