Excel den web sayfasına veri aktarma ?

[by_silent]

Merhaba,

İnsan kaynakları uygulamaları için excel üzerindeki verileri kullanarak web sayfasına direkt olarak aktarım yapabileceğim bir excel formatı oluşturmak istiyorum.

Konuyla ilgili forumda arama yapıtm lakin excel e uyarlayamadım.

 

[by_silent]

konuyla ilgili dönüş sağlanamıyor olması ne üzücü.

 

[by_silent]

güncel..

 

[drseref]

.

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu dener misiniz.
Güvenlik resmindeki sayıyı manuel girmek gerekecek.

Sub sgk1()

Zaman = Timer

Shell "taskkill /f /im iexplore*"

basla = Timer: While (Timer - basla) < 0.5: Wend

Set ie = VBA.CreateObject("internetexplorer.application")

 URL = "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap"
  
   With ie
        .Navigate URL
       .Visible = True
        
                Do While .Busy: DoEvents: Loop: Do While Not .readyState = 4: DoEvents: Loop
 basla = Timer: While (Timer - basla) < 0.5: Wend
 
    .Document.getelementsbyname("j_username")(0).Value = Range("b2")
    .Document.getelementsbyname("isyeri_kod")(0).Value = Range("c2")
    .Document.getelementsbyname("j_password")(0).Value = Range("d2")
    .Document.getelementsbyname("isyeri_sifre")(0).Value = Range("e2")
 
 End With

End Sub

 

[by_silent]

Elinize sağlık teşekkür ederim.