[Çözüldü] - Html Kodunu Okuyamadım 1

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

[Çözüldü] - Html Kodunu Okuyamadım 1

İleti#1)  kazimargun » 25 Tem 2009 16:22

Merhabalar,

Aşağıdaki linkte tarih kısmını değiştirmek için html kodunu çözmeye çalıştım ama başaramadım. (locals penceresini kullandığım halde)

[link]http://www.veliefendi.com/hizmetler/bulten/mini_bulten.asp[/link]

Amacım makro kodu ile tarih değişikliği yapıp, istediğim sayfayı açtırmak.

Aşağıdaki kodu denedim ama hata veriyor:

[code].document.forms.item1.item2.Value = "16"
.document.forms.item1.item3.Value = "Haziran"[/code]


Sayfanın ilgili olduğunu düşündüğüm kaynak kodunu gönderiyorum.

Teşekkürler

[quote]<div align="center">
<div class="page_title">&nbsp;&nbsp;MİNİ BÜLTEN</div>
</div>
<form name="tarih" action="/hizmetler/bulten/mini_bulten.asp" method="GET">

<script language="javascript">
function tarihformat(){
isIE=document.all;
var objTar = isIE ? document.forms('tarih') : document.forms['tarih'];

var objGun = isIE ? objTar.item('gun') : objTar['gun'];
var objAy = isIE ? objTar.item('ay') : objTar['ay'];
var objYil = isIE ? objTar.item('yil') : objTar['yil'];
var objBltTar = isIE ? objTar.item('blttarih') : objTar['blttarih'];

gun=objGun.options[objGun.selectedIndex].value;
ay=objAy.options[objAy.selectedIndex].value;
yil=objYil.options[objYil.selectedIndex].value;

objBltTar.value=yil+"/"+ay+"/"+gun;
objTar.submit();
}
</script>
<div align="center">
<center>
<table cellspacing="0" class="row_tarih">
<tr>
<td >[/quote]
En son Murat OSMA tarafından, 11 Eyl 2009 23:31 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık Düzeltildi.
Kullanıcı avatarı
kazimargun
Yeni Başlamış
 
Adı Soyadı:KAZIM ARGÜN
Kayıt: 08 Tem 2009 16:19
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: html kodunu okuyamadım :)

İleti#2)  Tarkan VURAL » 25 Tem 2009 17:03

Kazım bey merhaba ,
Aşağıdaki gibi kodlama yaparsanız işinizi görür.

Kod: Tümünü seç
Sub veliefendi()
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.veliefendi.com/hizmetler/bulten/mini_bulten.asp"
Do While ie.busy: Loop
ie.Visible = True
ie.document.all.gun.Value = "12" ' gün yazabilirsiniz.
ie.document.all.ay.Value = 6 'Haziran için 6 , Kasım için 11 gibi...
ie.document.all.yil.Value = "2009" ' yıl yazabilirsiniz.
ie.document.all.Item(67).Click ' Tamam butona tıklatabilirsiniz.
' veya ie.document.links.Item(52).Click ile de Tamam butona tıklatabilirsiniz.
'ie.quit 'Açılan internet penceresini kapatmak için
Set ie = Nothing
End Sub


İyi çalışmalar. ;;_)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: html kodunu okuyamadım :)

İleti#3)  Tarkan VURAL » 25 Tem 2009 20:11

Gördüğüm kadarıyla bu veliefendi sitesi GetString özelliğine de açık. Yani tarayıcı adres çubuğuna yazdığınız adres ile direk olarak veritabanını sorgulayabiliyor, yanıt verdirebiliyor. Dolayısıyla dışarıdan vereceğiniz tarih bilgisi ile de tek bir adres oluşturup istediğiniz sayfayı açtırabilirsiniz. Daha sonra da Document All kodlarından istediğiniz verileri aldırırsınız, tabi kodlamanıza bağlı işlemler.
Excel sayfa içerisinden belirli hücrelerden de sorgulatabilirsiniz, Inputbox ile de veri girilmesini isteyebilirsiniz vb.. şekilde tarayıcıya göndereceğiniz adres string' ini oluşturabilirsiniz.

Ben direk kodlamaya yazdım, kodun içindeki değerlere göre sorgulatıyorum.
Kod: Tümünü seç
Sub veliefendi_2()
Dim gun As Integer, ay As Integer, yil As Integer,ie as object
yil = 2009
ay = 4
gun = 22
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.veliefendi.com/hizmetler/bulten/mini_bulten.asp?gun=" & gun & "&ay=" & ay & "&yil=" & yil & "&blttarih=" & yil & "%2F" & ay & "%2F" & gun
Do While ie.busy: Loop
ie.Visible = True
Set ie = Nothing
yil = Empty: ay = Empty: gun = Empty
End Sub


Ama dediğim gibi hücrelerden de alabilirsiniz.
Kod: Tümünü seç
Sub veliefendi_3()
Dim gun As Integer, ay As Integer, yil As Integer,ie as object
yil = range("a1").value
ay = range("a2").value
gun = range("a3").value
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.veliefendi.com/hizmetler/bulten/mini_bulten.asp?gun=" & gun & "&ay=" & ay & "&yil=" & yil & "&blttarih=" & yil & "%2F" & ay & "%2F" & gun
Do While ie.busy: Loop
ie.Visible = True
Set ie = Nothing
yil = Empty: ay = Empty: gun = Empty
End Sub


Yahut InputBox ile sorgulatabilirsiniz.

Kod: Tümünü seç
Sub veliefendi_3_bucuk()
Dim gun As Integer, ay As Integer, yil As Integer,baslik as string,ie as object
baslik="Www.ExcelVBA.Net"
10 yil = inputbox("Lütfen Yıl Giriniz",baslik,format(date,"yyyy"))
20 ay = inputbox("Lütfen Ay Giriniz",baslik,format(date,"m"))
30 gun = inputbox("Lütfen Gün Giriniz",baslik,format(date,"dd"))
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.veliefendi.com/hizmetler/bulten/mini_bulten.asp?gun=" & gun & "&ay=" & ay & "&yil=" & yil & "&blttarih=" & yil & "%2F" & ay & "%2F" & gun
Do While ie.busy: Loop
ie.Visible = True
Set ie = Nothing:baslik=vbnullstring
yil = Empty: ay = Empty: gun = Empty
End Sub


Hayal gücünüz ne kadar iyi olursa örneği geliştirmek de bir o kadar mümkündür. Gerisi maharetiniza kalıyor.
[evet] İyi çalışmalar. --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: html kodunu okuyamadım :)

İleti#4)  kazimargun » 27 Tem 2009 17:37

Bakmasını bilince görmesi ne kadar da kolaymış!

Çok teşekkür ederim, ufkumu genişlettiniz.

Saygılarımla
Kullanıcı avatarı
kazimargun
Yeni Başlamış
 
Adı Soyadı:KAZIM ARGÜN
Kayıt: 08 Tem 2009 16:19
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe