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
Estimados masters de masters:
Queria preguntarles sobre una duda existencial que tengo con respecto a conexiones ADO:
¿Es posible conectar excel atravez de conexiones ADO a una base de datos que está en dropbox y que es pública?
Por ejemplo cuando conecto una bd que esta en mi computador la conexión seria asi :
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=" & ThisWorkbook.Path & "\base1.mdb"
.Open
End With
he intentado cambiar el data source introduciendo un link de dropbox que es público pero no me conecta:
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=https://dl.dropboxusercontent.com/u/30570853/Base1.mdb"
.Open
End With
¿esto se puede hacer o es una utopía?
espero sus respuestas.
Saludos desde Chile