- Katılım
- 3 Mayıs 2007
- Mesajlar
- 26
- Excel Vers. ve Dili
- xp, türkçe
aşağıdaki kodları kullanarak e-levha sayfasına veri gönderiyorum. fakat il seçildikten sonra bağlı ilçeler kutusu açılması gerekiyo bunu nasıl yapabilirim.
şimdiden yardımlarınız için sağolun.
Private Sub Komut1_Click()
URL = "http://www.gib.gov.tr/vergilevhasi/vergilevhasi.html"
vno = VERGİ_DAİRESİ_HESAP_NUMARASI
tc = TCKİMLİK
il = İL
vd = VERGİ_DAİRESİ
AD1 = AD
SOYAD1 = SOYAD
ciltno1 = CİLTNO
il1 = İLL
Dim IEXPLORER As Object
Set IEXPLORER = CreateObject("InternetExplorer.Application")
With IEXPLORER
.Visible = True
.Navigate URL
Do While .ReadyState <> 4: Loop
With .Document.All
.vkno.Value = vno
.tckimlik.Value = tc
.AD.Value = AD1
.SOYAD.Value = SOYAD1
.ciltno.Value = ciltno1
.il.Value = il1
.continent.Value = il
.city.Value = "09261"
End With
End With
Set IEXPLORER = Nothing
End Sub
şimdiden yardımlarınız için sağolun.
Private Sub Komut1_Click()
URL = "http://www.gib.gov.tr/vergilevhasi/vergilevhasi.html"
vno = VERGİ_DAİRESİ_HESAP_NUMARASI
tc = TCKİMLİK
il = İL
vd = VERGİ_DAİRESİ
AD1 = AD
SOYAD1 = SOYAD
ciltno1 = CİLTNO
il1 = İLL
Dim IEXPLORER As Object
Set IEXPLORER = CreateObject("InternetExplorer.Application")
With IEXPLORER
.Visible = True
.Navigate URL
Do While .ReadyState <> 4: Loop
With .Document.All
.vkno.Value = vno
.tckimlik.Value = tc
.AD.Value = AD1
.SOYAD.Value = SOYAD1
.ciltno.Value = ciltno1
.il.Value = il1
.continent.Value = il
.city.Value = "09261"
End With
End With
Set IEXPLORER = Nothing
End Sub