Noyan Temuçin
Kayıtlı Kullanıcı
- Katılım
- 6 Şubat 2009
öncelikle excelde araçlar makkro viisual basic düzenleyicisini açıyoruz
daha sonra insert menüsünden userforma tıklıyoruz ve userformumuz geliyor
bundan sonra ? işaretinin olduğu yerde toolbox dan bir tane commandbutton oluşturuyoruz.
oluşan command buttona userformdayken çift tıklıyoruz ve kod kısmı geliyor .
şimdi kodlarımızı yazıyoruz
Private Sub CommandButton1_Click()
Set evn = CreateObject("internetexplorer.application")
With evn
.navigate "http://izinlisans.cevreorman.gov.tr/Yetki/KullaniciGiris.aspx"
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
With .document.all
.ctl00_CPH_txtKullaniciAdi.Value = "kullanıcı adınız"
.ctl00_CPH_txtSifre.Value = "şifreniz"
.ctl00_CPH_btnTamam.Click
End With
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.Visible = True
.navigate "http://izinlisans.cevreorman.gov.tr/default.aspx"
End With
Set evn = Nothing
End Sub
işte bu kadar kodları nerden bulduğumu hatırlayamadım ama
çevre izin sayfasına göre düzenledim denenmiştir çalışıyor
daha sonra insert menüsünden userforma tıklıyoruz ve userformumuz geliyor
bundan sonra ? işaretinin olduğu yerde toolbox dan bir tane commandbutton oluşturuyoruz.
oluşan command buttona userformdayken çift tıklıyoruz ve kod kısmı geliyor .
şimdi kodlarımızı yazıyoruz
Private Sub CommandButton1_Click()
Set evn = CreateObject("internetexplorer.application")
With evn
.navigate "http://izinlisans.cevreorman.gov.tr/Yetki/KullaniciGiris.aspx"
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
With .document.all
.ctl00_CPH_txtKullaniciAdi.Value = "kullanıcı adınız"
.ctl00_CPH_txtSifre.Value = "şifreniz"
.ctl00_CPH_btnTamam.Click
End With
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.Visible = True
.navigate "http://izinlisans.cevreorman.gov.tr/default.aspx"
End With
Set evn = Nothing
End Sub
işte bu kadar kodları nerden bulduğumu hatırlayamadım ama
çevre izin sayfasına göre düzenledim denenmiştir çalışıyor