Jump to content

Como saber si hay internet


Go to solution Solved by Jose BN,

Recommended Posts

  • Solution
Hace 4 horas, Janlui dijo:

Hola, estoy haciendo una macro donde tengo un formulario y lo mando a Google Sheets.

Como puedo pregunta si hay internet para que me la marque de Enviada y si no que la suba cuando si halla internet.

 

@Janlui en un aporte de @Cacho R en el foro hermano hay un aporte en el que se evalúa si hay conexión a una pagina web, no sé si te podrá servir de algo:

Function VerificaURL() As Boolean
With CreateObject("Microsoft.XMLHttp")
  .Open "Get", "https://www.google.com.ar", False
  On Error Resume Next: .Send: On Error GoTo 0
  VerificaURL = .readyState = 4 And .Status = 200
End With
End Function

https://foro.todoexcel.com/threads/ejecutar-macro-solo-cuando-haya-conexión-a-internet.43403/

Por último te comparto el aporte de @Héctor Miguel en el mismo post.

Private Declare Function EstadoConexionInternet Lib "wininet" _
  Alias "InternetGetConnectedState" (ByRef opciones As Long, _
    ByVal reservado As Long) As Long
Private Function InternetConectado() As Boolean
  Dim opciones As Long
  EstadoConexionInternet opciones, 0&
  InternetConectado = opciones And (&H1 Or &H2 Or &H4)
End Function

 

Edited by Jose BN
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy