İnternet bağlantı kontrolü

[msalvarli]

Selamlar,

günlük olarak internetten hava verilerini bir excel dosyasına indirip kayıt edeceğim bir excel hazırlamaya çalışıyorum. Okadar uğraşmama rağmen yapamadığım bir konu var. Forumdaki örnekleri inceledim ama maalesef uygulayamadım.

Şöyleki örnek ekli dosya için bilgisayarda zamanlanmış görev düzenledim. Günün belli saatlerinde bu dosya açılıp hava verilerini alıp kaydedip otomatikma kapanıyor. bunu yapmamın sebebi bu dosyayı bir access dosyasında veri kaynağı olarak kullanmam. Excel dosyası sürekli açık olduğu zaman access hata veriyor.

neyse işin özü ekli dosyadaki excel açıldığında internet bağlantısı mevcut ise işleme devam etsin. internet bağlantısı yok ise direkt kapansın...

Eminim üstadlar için kolay bir iştir.

şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki yayınladığım dosyada bu özelliği bulabilirsiniz.

http://www.excel.web.tr/showthread.php?t=85887

 

[msalvarli]

ilginiz için teşekkürler korhan bey,

aslında tam aradığım bir örnek ama kendi dosyama nasıl uygulanacağını beceremedim. Size gerçekten zahmet yaratmayacak ise benim örnek dosyaya uygulayabilir misiniz? değilse canınız sağolsun. teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanız üzerinde gerekli düzenlemeler yapılmıştır. İncelermisiniz.

Kullanılan kod;

Boş bir modüle;

Option Explicit
 
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
 
Public Function CheckInternetConnection() As Boolean
    Dim Aux As String * 255
    Dim Kontrol As Long
    Kontrol = InternetGetConnectedStateEx(Kontrol, Aux, 254, 0)
    If Kontrol = 1 Then
        CheckInternetConnection = True
    Else
        CheckInternetConnection = False
    End If
End Function

Başka bir modüle;

Sub TEST()
    If (CheckInternetConnection = False) Then
    MsgBox "İnternet bağlantısı şu anda kurulamıyor." _
    & Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "Dikkat !"
    End If
End Sub

 

[msalvarli]

Korhan bey gerçekten çok teşekkür ederim... Elinize sağlık...

 

[acolkesen1]

Merhaba,
Arkadaşlar,
Sayın msalvarli'nin izniyle, bu dosyayı kendi bölgemize uyarlama konusunda yardımcı olabilir misiniz? Yani bölge veya şehir seçimini hangi kodlarla alıyorsunuz?

 

[msalvarli]

sayın acolkesen1 hangi şehirleri istiyorsunuz... Örnek şehir ismi belirtirseniz size benim kullandığım excel e benzer birşey yapıp foruma ekleyebilirim...

ben standart bazı şehirleri kullandığım için excelde "Data/import external data/new web query" kısmına daha önce seçmiş olduğum şehrin url'sini giriyorum.

izmir için url
http://www.meteor.gov.tr/tahmin/il-ve-ilceler.aspx?m=IZMIR

ankara için url
http://www.meteor.gov.tr/tahmin/il-ve-ilceler.aspx?m=ANKARA

böylelikle günlük olarak verileri excel'e kaydediyorum...

 

[acolkesen1]

Merhaba Sayın msalvarli,
Verdiğiniz bilgiler için teşekkür ederim.Ancak türkçe exceldeki karşılığını yazabilirseniz sevinirim. Esen kalın..

 

[msalvarli]

selamlar,

"veri / dış veri al / web sorgusu" şeklinde olması gerekir. İyi çalışmalar dilerim....

 

[burhancavus61]

Hocam aşağıdaki kodda işyeri bilgisayarında hata verdi ama şahsi bilgisayarımda hata vermedi güvenlik duvarından kaynaklı olabilirmi?

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

 

[Korhan Ayhan]

Merhaba,

32 Bit / 64 Bit durumları olabilir.

Eğer işyerinde 64 Bit kullanıyorsanız Declare ifadesinden sonra PtrSafe yazmalısınız.

 

[burhancavus61]

Her iki versiyonuda desteklemiş olurmu.

 

[Korhan Ayhan]

Olmaz..

 

[Korhan Ayhan]

Aşağıdaki gibi her iki durumu da destekler. Denemedim ama büyük ihtimalle çalışacaktır.

#If VBA7 Then
Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
#Else
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
#End If

 

[burhancavus61]

Bende bu örneği soracaktım hocam deneyip bilgilendireceğim sizi. Teşekkürler

 

[burhancavus61]

Hocam her iki versiyonda da gayet güzel çalıştı teşekkür ederim.