- Katılım
- 22 Aralık 2005
- Mesajlar
- 418
- Excel Vers. ve Dili
- Microsoft 365
- Altın Üyelik Bitiş Tarihi
- 03.12.2025
Arkadaşlar herkese selamlar,
Shell internet sayfasından veri çekmeye çabalıyorum. Parola ve kullanıcı adını soran sayfayı geçtikten sonra aşağıdaki kodlar ile iki combobox dan biri olan Başlangıç Tarihi ve diğeri olan Bitiş Tarihi alanlarına inputboxlar ile değer aktarıyorum. Ara butonu tıklandığında ise sanki sitedeki başlangıç ve bitiş tarihleri kutuları boşmuş gibi "Islem Tarihini Seciniz" uyarısı geliyor. Manuel müdahale ettiğimde ise veriyi gösteriyor. Bunun sebebi konusunda fikirlerinizi paylaşabilirseniz çok memnun olurum;
Shell internet sayfasından veri çekmeye çabalıyorum. Parola ve kullanıcı adını soran sayfayı geçtikten sonra aşağıdaki kodlar ile iki combobox dan biri olan Başlangıç Tarihi ve diğeri olan Bitiş Tarihi alanlarına inputboxlar ile değer aktarıyorum. Ara butonu tıklandığında ise sanki sitedeki başlangıç ve bitiş tarihleri kutuları boşmuş gibi "Islem Tarihini Seciniz" uyarısı geliyor. Manuel müdahale ettiğimde ise veriyi gösteriyor. Bunun sebebi konusunda fikirlerinizi paylaşabilirseniz çok memnun olurum;
bas = InputBox("baslangic tarihi", "BASLANGIC")
bit = InputBox("bitis tarihi", "BITIS")
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "https://tts.turkiyeshell.com/Reports/RptFleet.aspx"
.document.all.MainContent_dtIslemTarihiBsl_I.Value = bas
.document.all.MainContent_dtIslemTarihiBts_I.Value = bit
.document.all.MainContent_btnSearch_CD.Click
End With