Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Siguiendo otros temas cerrados de este foro he intentado he intentado hacer consulta web con usuario y contraseña pero no lo consigo.
En codigo fuente de la página aparece éstas lineas que imagino corresponde a los campos de usuario y password:
<p>Your Username/Email:<input type="text" name="email" /></p>
<p>Your Password:<input type="password" name="password" /></p>
Mi macro queda así:
nick = "t11235813@hotmail.com"
pass = "descarado"
bch = "My Barchart - Registration | My Barchart Login=" & "052112"
With ActiveSheet.QueryTables.Add(Connection:="URL;" & bch, Destination:=Range("a1"))
.PostText = "email=" & nick & "&password=" & pass
.Refresh BackgroundQuery:=False
End With
Pero no consigo que funcione. Me podeis ayudar?
Gracias de antemano
José