[Yardım]  Excel'den Web sayfa formu doldurmada OK tusu tiklanmiyor

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

Excel'den Web sayfa formu doldurmada OK tusu tiklanmiyor

İleti#1)  nemat2313 » 20 Kas 2017 02:36

Excel uzerinde Web sayfa formu doldururken Sayfadaki adres girme tusu tiklandiktan sonra yeni acilan adres penceresinde OK ("btn_ok") tusuna tiklanamiyor. Sorun yeni acilan pencere webpage degilde javascript oldugundanmi kaynaklaniyor olabilirmi?

Html code:
Kod: Tümünü seç
<script type="text/javascript">
        var INP_ID = "objectAddr";
    </script>
<button class="btn-m btn-ok" id="btn_ok" type="submit">ОК</button>


VBA code:

Kod: Tümünü seç
Dim IE As Object
Sub Nalog()
   Dim objElement As Object
   Dim c As Integer
   Dim lastrow, i, j, m As Integer
   Dim UrlTochka As String
   Dim sht As Worksheet

    Set IE = CreateObject("InternetExplorer.Application")
   
    Set sht = ThisWorkbook.Worksheets("Data")
    lastrow = sht.Cells(sht.Rows.Count, "D").End(xlUp).Row
    UrlTochka = "https://service.nalog.ru/payment/payment.html"
    For j = 4 To lastrow
        Select Case j
            Case 20
               ActiveWindow.SmallScroll Down:=18
            Case 40
               ActiveWindow.SmallScroll Down:=18
            Case 80
               ActiveWindow.SmallScroll Down:=18
            Case 120
               ActiveWindow.SmallScroll Down:=18
            Case 160
               ActiveWindow.SmallScroll Down:=18
             End Select
    sht.Range(Cells(j, 1), Cells(j, 15)).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 6750105
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With IE
               
      .Visible = True
      .navigate UrlTochka
     
      'wait until first page loads
   IEready


   With IE.Document
      'text boxes

      .All("payerKind_fl").Click
      .All("btnNext").Click
     
   End With
   
   'wait until first page loads
      IEready
     
   With IE.Document
      'text boxes
     
      .All("kbk").Value = sht.Cells(j, 7)
      .All("btnNext").Click
     
    End With
   
   
     IE.Document.All("objectAddr").Value = sht.Cells(j, 41)
     IE.Document.All("uni_kladr_1").Click
   
    'wait until first page loads
     IEready
     

      IE.Document.All("btn_ok").Click

     
    sht.Range(Cells(j, 1), Cells(j, 15)).Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
   
    End With
    MsgBox sht.Cells(j, 4) & " has done. Click OK button to continue."
Next j
  Set IE = Nothing
 
 
End Sub
Private Sub Wait(ByVal wSec As Long)
    wSec = wSec + Timer
    Do While Timer < wSec
       DoEvents
    Loop
End Sub
Private Sub IEready()
    Wait 2
    Do While IE.ReadyState <> 4
        Wait 2
    Loop
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#2)  Yasin KURT » 20 Kas 2017 12:26

İnternetten bulduğum bazı kodları deneyerek ok düğmesine tıklayabildim.
btn_ok .click yaptırdığınız kısmı bu kodlar ile değiştirip dener misiniz ?
Kod: Tümünü seç
    Dim HTMLdoc As MSHTML.HTMLDocument
    Dim htmlWindow As MSHTML.HTMLWindow2
    Set HTMLdoc = IE.document
    Set htmlWindow = HTMLdoc.frames(0)
    htmlWindow.document.all("btn_ok").Click
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#3)  nemat2313 » 20 Kas 2017 16:26

Yasin Bey elinize saglik, ben butun gun ugrastim olmamisti, cok tesekkur ederim.
Simdi ayni Web sayfada next tusu ile bir sonraki sayfaya gectigimizde dropdown cikiyor. Burda ilkini secmem gerekiyor. bunada yardim edermisiniz.

Dropdown listesinden ilkini secmek icin asdagidaki kodu yazdim, yanliz secilmiyor sadece value olarak gosteriyor. Eger sicilirse yeni tarih text box'u olusacak.
Kod: Tümünü seç
IE.document.all("uni_select_22").Value = "ТП - Платежи текущего года" 'sht.Cells(j, 11)
     IE.document.getElementById("paymentReason").selectedIndex = 2


Target: bu web siteyenin tum sayfalarine bilgiler girildikten sonra, sonunda olustur tusuna tiklayarak barecode'lu fis olusturulacak. Bu fisi PDF olarak kait etmek yada direk cikti alinmasi gerekecek. Bu islemleri yapilmasinda da yardiminiza ihtiyacim olacak.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Cevap: Excel'den Web sayfa formu doldurmada OK tusu t

İleti#4)  Yasin KURT » 20 Kas 2017 16:34

Bu şekilde sizin kodların altına 3 satır ekledim.
Böyle dener misiniz ?
Kod: Tümünü seç
IE.document.all("uni_select_22").Value = "ТП - Платежи текущего года" 'sht.Cells(j, 11)
IE.document.getElementById("paymentReason").selectedIndex = 2
Set evt = IE.document.createEvent("HTMLEvents")
evt.initEvent "change", True, False
IE.documentgetElementById("paymentReason").dispatchEvent evt
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



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

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#5)  nemat2313 » 20 Kas 2017 17:21

HTML kodundaki dropdown'in adini yanlis almisim sanirim. VBA hata veriyor. Ekte HTML kodun ekran goruntusunu yolliyorum.
1. deki dropdown listesindeki ilk satir ecildiginde 2. deki dropdown olusuyor. Sonra bu ikincinin de ilk satri secilmesi lazim.
bir onceki yazdigimda excelini kendisinide yollamistim. Ordan kontrol edebilir misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#6)  nemat2313 » 20 Kas 2017 20:43

DropDown list kodlarini HTML koddaki adalarini koyarak asagidaki sekilde denedim, macro calisirken hata gostermiyor ama dropdown da secmiyor [ilginc]

Kod: Tümünü seç
   'First DropDown list select code
     IE.document.getElementById("paymentReason").selectedIndex = 1

    'After First DropDown selection appears second dropdown list, here select fist option in dropdown list
     IE.document.getElementById("taxPeriodKind").Value = "ДТ"
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#7)  Yasin KURT » 21 Kas 2017 10:48

Kodlarınızın en son halini paylaşır mısınız ?
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#8)  nemat2313 » 21 Kas 2017 16:42

Yasin Bey, ilginiz icin tesekkur ederim. Dosyani ekte yolliyorum. Dropdown'lari secebilmek icin MSGbox'la beklemeye alip manuel seciyorum ve ok tiklayarak macro calismasina devam ettiriyorum. Eger bu sorunu cozebilsek, geriye asagidaki sorun sorun kalacak.
Her calisma sonunda (yani next i dongusu sonunda) web sayfada yeni Tab acilarak fis olusacak. Bu yeni acilan Tab/penceredeki option/radio ilkini secerek olustur tusuna (en altta sagda) tiklanmasi ve print/cikti yoliyarak Tab/web penceresini kapatmak gerekecek.
Bu calismanin yukarida istegim sekilde ayarlanmasi buyuk is hacmimizi azaltacaktir. Yardimizniz icin tekrar tesekkur ederim!
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#9)  Yasin KURT » 21 Kas 2017 17:28

Sayfanın her tarafı rusça.
Yazıların içinde kayboluyorum

Resimdeki iki kutunun kodlarını şu şekilde yazarsanız değişme oluyor. Dener misiniz ?
Kod: Tümünü seç
     html.all("status").selectedIndex = 5
     Set evt = IE.document.createEvent("HTMLEvents")
     evt.initEvent "change", True, False
     html.all("status").dispatchEvent evt
     
     html.all("paymentReason").selectedIndex = 4
     Set evt = IE.document.createEvent("HTMLEvents")
     evt.initEvent "change", True, False
     html.all("paymentReason").dispatchEvent evt
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#10)  nemat2313 » 21 Kas 2017 18:18

Denedim cok guzel calisiyor. yanliz sizin kodlar 1 ve 2 inen kutular icin ayarlamis. Ben 2 ve 3 inen kutula icin asagidaki sekilde ayarladim ve MsgBox satrini da kaldirdim.

Kod: Tümünü seç
html.all("paymentReason").selectedIndex = 1
     Set evt = IE.document.createEvent("HTMLEvents")
     evt.initEvent "change", True, False
     html.all("paymentReason").dispatchEvent evt

     html.all("taxPeriodKind").selectedIndex = 1
     Set evt = IE.document.createEvent("HTMLEvents")
     evt.initEvent "change", True, False
     html.all("taxPeriodKind").dispatchEvent evt


Simdi dongu calisiyor. Elinize saglik.
Diger konu yeni olusan fisleri cikti alip kapama islemine de yardimci olurmusunuz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#11)  nemat2313 » 21 Kas 2017 19:54

Son olustur tusu da calismiyordu, ekteki dosyada wait funksyoni ekliyerek guncelledim. Simdi fisler ayri pencerelerde/tab1, tab2 ... seklinde olusiyor. Bu olusan Tab'larda 1. resimdeki ilk option secilmesi 2. alt kosedeki tusa tiklanmasi ve barcode'lu fisin olusturlmasi 3. Olusan fisi cikti alinmasi yada pdf olarak kayit edilmesi ve Tab kapatilmasi gerekecek. Yok 200 kisilik lise icin 200 tane pengere acilacak, 800-1000 kisiye kadar uzuyor listeler. Boyle bir islemlerin yapilabilirmi? bunu da yaparsak tum islemleri tek tusla yapmis olacagiz. Bunun yapilmasi mumkunmu?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#12)  Yasin KURT » 21 Kas 2017 20:38

Buraya kadar getirdiniz dönüş yok
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#13)  nemat2313 » 22 Kas 2017 10:23

Yasin Bey, cok ozur dilerim messajinizi anlayamadim. Donusden bahs ettiginiz eger hizmet karsiligi ucretse, yurt disindan nasil ve ne kadar yapilmalidir?
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#14)  Yasin KURT » 22 Kas 2017 10:26

Öyle bir şey demedim. Buraya kadar bu aşamaya kadar getirmişsiniz.
Geri dönüş yok demek istedim.

Mevcut kısımlar ile ilgili siz kutucukların ismini id lerini bulun çalıştırmayı deneyelim.

Sayfa rusça ve ben o kadar rusça bilmiyorum.
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#15)  nemat2313 » 22 Kas 2017 11:59

Yeni acilan Web penceresinde tiklanmasi gereken option/radio html kodu asagidaki resmdedir.

Kod: Tümünü seç
<input name="payKind" id="payKind_1" value="1" style="display: none;" checked="checked" type="radio">
<a href="#" class="radio radio-on" id="unirad_0">Наличный расчет</a>
<label for="payKind_1" style="display: none;">Наличный расчет</label>


Sonra tiklanacak alt kosedeki olustur tusu html kodu: Tus adi "btn-ok"
Kod: Tümünü seç
<button type="submit" class="btn-ok">Сформировать платежный документ</button>


bu ikisi tiklandiktan sonra bu pencereyi/TAB'i kapat kumandasi geimemiz lazim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#16)  Yasin KURT » 22 Kas 2017 12:04

Bu kodları işleme soktuktan sonra yeni bir tab açılmıyor.
Yanlış bir şey mi yapıyorum ?

Kod: Tümünü seç
'addrFlEq checkbox
    html.all("btnNext").Click
    Application.Wait Now + TimeValue("0:00:01")
    html.all("btnPay").Click
    IEready
    html.all("btnPay").Click
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#17)  nemat2313 » 22 Kas 2017 18:38

html.all("btnPay").Click tusunu nedense her zaman okumiyordu. Wait uygulamasi da yardim etmedi. F8 tusu ile step by step calistirirken bu tus tiklaniyor. Sonra ben ayni satiri bir daha yazdigimda bende sorunsuz calisti. Siz de F8 le deneye bilirmisiniz. Yeni sayfa olusmasi lazim.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#18)  nemat2313 » 23 Kas 2017 00:39

Yeni Tab acilmama nedenini baska bilgisayarda calistirinca fark ettim. Internet Explorer Tab acilmasi icin bir defalik yada her zamanlik diye sizden Pop-UP menu ile yetki istiyormus. Her zaman diye yetki vermek gerekiyor. Yada Internet options acip - Privacy sonrada Setting tiklayarak https://service.nalog.ru/payment/payment.html siteyi oraya eklemek gerekiyormus. Bu site Rusya devlet vergi dairesi resmi sitesidir. Bu yetkiyi verirseniz calisacaktir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#19)  Yasin KURT » 23 Kas 2017 15:40

Ekteki dosyayı F8 ile adım adım çalıştırabilirsiniz.

Yazdırma kısmını deneyemedim.

Dİğer sayfaya geçip tıklama işlemi yapıyor ama yükleme için bir bekleme gerekiyor ve kaydederken kaydetme yeri soruyor her zaman.

Çözüm bulamadım.

Siz bir inceleyin F8 İLE
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel'den Web sayfa formu doldurmada OK tusu tiklanmi

İleti#20)  nemat2313 » 23 Kas 2017 19:13

Yasin Bey, elinize saglik, cok harika calisiyor. şkşk
Kayit etme kodunu direk cikti icin ayarladim ve bekleme ayarlarida ekledim.

Cik almak icin bu sekilde degistim.
Kod: Tümünü seç
vIE.ExecWB 6, 2

Yanliz bu kodda print pop up menusu cikmamasi gerekiyordu, direkt ayarli printer'e ciktiya gitemsi gerekiyordu. Bende Pop-Up cikmakta ve enter tusuna tiklamami istemekte. Bunu da ayarlaya bilsem bir sey kalmiyacaktir.

Yardiminiz icin tekrar tesekkur ederim. Sanirim boyle isleri manuel yapan cok kisi vardir onlara da excel'in bu harika funksyonlarini anlatmak lazim.
[TESEKKÜR]
Kullanıcı avatarı
nemat2313
Yeni Başlamış
 
Kayıt: 14 Ekm 2014 03:22
Meslek: Muhasebeci
Yaş: 37
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusiya

Sonraki

Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

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

Bumerang - Yazarkafe