Emekli Ne Kadar Maaş Alırım

[5353]

Sub giris_Tıkla()
On Error Resume Next
Set IE = CreateObject("internetexplorer.application")
IE.navigate ("https://uyg.sgk.gov.tr/AylikHesap/")
IE.Visible = True
apiShowWindow IE.Hwnd, SW_MAXIMIZE 'Pencereyi Maximize yap

Do While IE.ReadyState <> 4: Loop
IE.document.forms(0).Item(0).innertext = Range("A1").Value
IE.document.forms(0).Item(1).innertext = Range("A2").Value
IE.document.forms(0).Item(2).innertext = Range("A4").Value
IE.document.forms(0).Item(2).innertext = Range("A5").Value
IE.document.forms(0).Item(3).Click
Set IE = Nothing
End Sub

SGK Emekli Ne Kadar Maaş Alırım. Sayfasından Excel A1 A2 A3 A4 A5 hücrelerindeki istenen "TC Kimlik Numarası" v.b. değerleri yazdırabilir miyiz.

TC Kimlik Numarası
SSK Sicil Numarası
Baba Adı
Nüfus İl
Doğum Tarihi

 

[excelokyanus500]

Deneyiniz

Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Sub giris_Tıkla()
On Error Resume Next
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
apiShowWindow IE.hwnd, SW_MAXIMIZE 'Pencereyi Maximize yap
IE.navigate ("https://uyg.sgk.gov.tr/AylikHesap/")
Do While IE.ReadyState <> 4: Loop

Application.Wait (Now + TimeValue("0:00:02"))

IE.document.getelementsbyname("mernisno")(0).Value = "" ' veya Range("A1").Value
IE.document.getelementsbyname("sicilno")(0).Value = ""
IE.document.getelementsbyname("babaadi")(0).Value = ""
IE.document.getelementsbyname("doggun")(0).Value = ""
IE.document.getelementsbyname("dogay")(0).Value = ""
IE.document.getelementsbyname("dogyil")(0).Value = ""
IE.document.getelementsbyname("ilkodu")(0).selectedIndex = 7 'İlinizin kodunu deneyerek bulun

Application.Wait (Now + TimeValue("0:00:02"))

IE.document.getelementsbyname("Button")(0).Click

Set IE = Nothing
End Sub

 

[5353]

64 Bit hatası aldım..


Birde durum bu A Sütunundan değerleri alması

 

[excelokyanus500]

#If VBA7 Then
    Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
   Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If


Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Sub giris_Tıkla()
On Error Resume Next
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
apiShowWindow IE.hwnd, SW_MAXIMIZE 'Pencereyi Maximize yap
IE.navigate ("https://uyg.sgk.gov.tr/AylikHesap/")
Do While IE.ReadyState <> 4: Loop

Application.Wait (Now + TimeValue("0:00:02"))

IE.document.getelementsbyname("mernisno")(0).Value = Range("A1").Value ' 
IE.document.getelementsbyname("sicilno")(0).Value = Range("A2").Value
IE.document.getelementsbyname("babaadi")(0).Value = Range("A3").Value
IE.document.getelementsbyname("doggun")(0).Value = Range("A4").Value
IE.document.getelementsbyname("dogay")(0).Value = Range("A5").Value
IE.document.getelementsbyname("dogyil")(0).Value = Range("A6").Value
IE.document.getelementsbyname("ilkodu")(0).selectedIndex = 8 'İlinizin kodunu deneyerek bulun

Application.Wait (Now + TimeValue("0:00:02"))

IE.document.getelementsbyname("Button")(0).Click

Set IE = Nothing
End Sub

 

[5353]

Doğum Tarihinde sorun oluyor. Hücre biçimi 25.05.1970 gibi . Doğrusu nasıl olmalı ?