VBA - JavaScript Onclick Problemi

[ozerkir]

Merhaba ,

İnternette saatlerce araştırma yapmama rağmen bulamadım o yüzden desteklerinize ihtiyacım var.

Bir sayfada save butonu var ve ben buna VBA ile tıklamak istiyorum. Bir türlü beceremedim kodlar aşağıda rica etsem nasıl yapacağımı söyleyebilir misiniz ?

<div class="Button" style="width:6em" id="Save">
	<a href="javascript:;" onclick="javascript:if(saveData()){};return false;">
		<span class="spec">SAVE</span>

 

[Haluk]

URL'in kendisini yazarsanız, bir çözüm getirebiliriz.

.

 

[ozerkir]

Haluk Bey url'yi veremiyorum ne yazık ki. İş ile ilgli bir konu olduğu için bu şekilde olmak zorunda.

Teşekkür ederim

 

[halit3]

Bu kodu bir dene

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Set divs = IE.Document.getElementsByClassName("div")
For Each div In divs
Set lo = IE.Document.getElementsByTagName("button")
For Each l In lo
If l.getAttribute("div") = "Save" Then
l.Click
End If
Next
Next
End With

yada bunu dene

Set divs = IE.Document.getElementsByTagName("div")
For Each divi In divs

If divi.ID = "Save" Then
Set botoes = IE.Document.getElementsByTagName("BUTTON")
For Each bt In botoes
If bt.className = "Save" Then
bt.Click
End If
Next
End If
Next

veya

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

With IE
Set divs = IE.document.getElementsByTagName("div")
For Each divi In divs
    If divi.ID = "Save" Then
    Set botoes = IE.document.getElementsByTagName("BUTTON")
        For Each bt In botoes
            If bt.className = "Save" Then
            bt.Click
            
            End If
        Next bt
    End If
Next divi

End With

 

[Haluk]

Halit Bey;

IE nesnesini oluşturduktan sonra, ilgili URL'e yönlendirmek gerekmiyor mu?

    URL = "http://www.mysite.com"
    IE.Navigate URL
    
    Do Until IE.ReadyState = 4
    Loop

.

 

[halit3]

Evet Haluk Bey doğru ben o bölümleri yazmamıştım sadece buttona tıklama prosüdürü ile ilgilenmiştim
Teşekkürler iyi çalışmalar

 

[Asri]

Alternatif denemelik;


aşağıdakileri denedikten sonra, bir de tag span için aşağıdaki şekilde değişiklik yaparak deneyiniz.

Set objCollection = ie.document.getElementsByTagName("div") verilerini Set objCollection = ie.document.getElementsByTagName("span")


If objCollection(i).ID = "Save" Then verilerini If objCollection(i).innertext = "SAVE" Then

Deneme 1

IE.Document.getelementbyid("Save").fireevent ("onclick")

Deneme 2

IE.Document.getelementbyid("Save").fireevent "onclick"

Deneme 3

  Set objCollection = ie.document.getElementsByTagName("div")
    i = 0
    Do While i < objCollection.Length
     If objCollection(i).ID = "Save" Then
         objCollection(i).Click
         Exit Do
      End If
      i = i + 1
    Loop
    End With

Deneme 4

  Set objCollection = ie.document.getElementsByTagName("div")
    i = 0
    Do While i < objCollection.Length
     If objCollection(i).ID = "Save" Then
         objCollection(i).FireEvent "onclick"
         Exit Do
      End If
      i = i + 1
    Loop
    End With

Deneme 5

  Set objCollection = ie.document.getElementsByTagName("div")
    i = 0
    Do While i < objCollection.Length
     If objCollection(i).ID = "Save" Then
         objCollection(i).FireEvent ("onclick")
         Exit Do
      End If
      i = i + 1
    Loop
    End With

 

[ozerkir]

Destekleriniz için çok teşekkür ederim.

Bu kadar çok seçeneğin hiç birisi çalışmadı vba en ufak bir tepki bile vermiyor.

Ben zaten yapmam gereken işlerin hepsini yapmıştım sadece " save " butonuna basmak kalmıştı ama o da olmadı.

Araştırmaya ve denemeye devam edeceğim tekrar teşekkür ederim.