Çözüldü İnternet Kapalı İken Makrodaki Hata

[RBozkurt]

Merhabalar,
Ekteki dosyada bulunan makro internet açık iken çalışıyor, internet kapalı iken çalışmıyor.
Çalışmaması normal fakat ekrana hata bırakıyor.

İnternet kapalı iken hata gelmemesi konusunda yardımcı olabilirmisiniz?
Teşekkür ederim.

 

[RBozkurt]

Makro içinde bulunan http://ip-api.com/xml/ sitesi çalışmadığını düşünelim. İnternet olsa bile o zamanda hata verecektir.
Şimdilik hata çıkan satır IP = XDoc.SelectSingleNode("query/query").Text budur.

Düzeltme diğer satırlarda da bir hata çıkması durumuna göre yapılabilir mi?

 

[Refaz]

Merhaba.
Alttaki kodu bir modüle ekeyin.
Sonrada sizin koda resimdeki kırmızı yeri ekleyip deneyin.

#If VBA7 Then
    Public Flg As LongPtr
    Public Declare PtrSafe Function InternetGetConnectedState _
            Lib "wininet.dll" (lpdwFlags As LongPtr, _
            ByVal dwReserved As Long) As Boolean
#Else
    Public Flg As Long
    Public Declare Function InternetGetConnectedState _
            Lib "wininet.dll" (lpdwFlags As Long, _
            ByVal dwReserved As Long) As Boolean
#End If

Private Const INTERNET_CONNECTION_MODEM As Long = &H1
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20

Function IsInternetConnected() As Boolean
    Dim R As Long
    R = InternetGetConnectedState(Flg, 0&)

    If CBool(R) Then
        IsInternetConnected = True
    Else
        IsInternetConnected = False
    End If
End Function

 

[RBozkurt]

Sayın Refaz teşekkürler
İnterneti kesince uyarı veriyor ve dosya çalışmaya devam ediyor. Bu problem çözüldü.

Alt satırdaki verilerde hata olursa nasıl atlatabilirim?
strURL = "http://ip-api.com/xml/" & IP mesela bu site çalışmaz ise yine hata veriyor.
(Sitenin çalışmadığını düşünelim sona M harfi ekledim denedim > http://ip-api.comm/xml/

Alttaki satırlarda ayrı ayrı çıkabilecek hataları nasıl gözardı edebilirim?
query/country verisini çekemez ise o satırda hata verecektir. Dİğer satırlarda aynı şekilde.
6 adet hata atlama işlemi gerçekleşebilir mi ?

        IP = XDoc.SelectSingleNode("query/query").Text
                 
        Ülke = XDoc.SelectSingleNode("query/country").Text
        Bölge = XDoc.SelectSingleNode("query/regionName").Text
        Şehir = XDoc.SelectSingleNode("query/city").Text
        Koordinat = XDoc.SelectSingleNode("query/lat").Text & ", " & XDoc.SelectSingleNode("query/lon").Text
        ISP = XDoc.SelectSingleNode("query/isp").Text

 

[Refaz]

Rica ederim abey.
Sanıyorum 200 lü bişey vardı bağlantı için.O kodu bulursam eklerim.

 

[Refaz]

Resimdeki sarıya boyadıklarımı ekleyip denermisiniz?

 

[RBozkurt]

Resimdeki sarıya boyadıklarımı ekleyip denermisiniz?
Ekli dosyayı görüntüle 6509

Teşekkür ederim sayın Refaz
Şimdilik gözükmüyor problem.

 

[RBozkurt]

Sayın Refaz ekteki kırmızı satırlar problem teşkil edermi?

 

[Refaz]

Sayın Refaz ekteki kırmızı satırlar problem teşkil edermi?

Ekli dosyayı görüntüle 6512

Sanmıyorum abey office64 ve32bit olayı için.32 ve 64 bit officede deneyin hata vermezse sorun yok