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
  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 30.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      143
    • Comments
      87
    • Reviews
      25

    Latest File
    By pegones1

    4    0

  • Crear macros Excel

  • Posts

    • Hola a todos, Intento extraer en una sola función, una fecha que esta dentro de una cadena de texto y esta función extraiga únicamente la fecha. Adjunto un archivo como ejemplo, seria hacer en una sola celda los 4 pasos del archivo  Gracias de antemano Libro1.xlsx
    • Buenas noches. Quería preguntar si es posible incluir un buscador dentro de un dashboard teniendo en cuenta que solo quiero incluir algunos parámetros (nombre, DNI, Categoría y otro más, hasta un total de 4) de todos los que tiene la tabla dinámica situada en otra hoja. ¿Tengo que exportar todos los datos al propio dashboard? Mi idea es que todo los datos se mantengan en la una hoja y que en el dashboard (otra hoja) tan solo aparezcan los que cumplan con los requisitos que se incluyen en el propio buscador.......Es la primera pregunta que lanzo y quiero pedir disculpas porque he visto que hay que adjuntar archivo, pero tiene datos personales y por la protección de datos es imposible. Agradecería que me informaran si es posible hacer lo que pido y alguna referencia para poder estudiarla porque entiendo que será trabajoso pero me gusta aprender. Muchas gracias.
    • Ante todo dar las gracias por la acogida.  Soy Jose Mari y la verdad que llego a estos lugares con ganas de aprender mucho y sobre todo a resolver aquellas dudas que me vayan surgiendo. Tengo 47 años y soy profesor.  Saludos. 
    • Muchas gracias por toda tu ayuda JSDJSD, como le comenté a Israel hoy he solucionado el problema, pero seguiré investigando. Saludos cordiales!!!
    • Muchas gracias Israel por tus comentarios, todavía el proyecto no está en producción, así es que solo lo he probado yo y  tengo habilitadas las macros, hoy en la mañana agregué el siguiente código al formulario y solucioné el problema, de todas maneras voy a investigar porque me estaba ocurriendo porque al parecer no estaba cerrando Excel y solo cerraba el formulario y por esa razón no me resultaba, nuevamente te agradezco tu ayuda. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ThisWorkbook.Save ThisWorkbook.Close  End Sub Saludos cordiales!!!!!!!!!!!!!!!!  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy