Como saber si hay internet

[Janlui]

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.

 

[Jose BN]

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

 

[Janlui]

Muchas gracias.

Pondré a prueba y espero sean de utilidad.

Muchas gracias.