ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[yurttutan]

hocam buradaki id ye tıklayınca açılmasını istiyorum

<a tabindex="0" class="cstree-clicked" id="H706a49415c68b-1100" draggable="true" href="#">Belge İşlemleri</a>

IE.Document.getelementsbytagname("H3acf8aeeca865-1100")(3).Click
IE.Document.getElementsByClassName("H3acf8aeeca865-1100")(3).Click
IE.Document.GetElementById(""H3acf8aeeca865-1100").Click

Bu üçünü denedim hocam olmadı ne yapmam lazım.

[Tarkan VURAL]

Merhaba,
Href kısmında hiçbir yere gitmediği görülüyor. Ayrıca kullandığınız olayların içerikleri hatalı.

getelementsbytagname
getElementsByClassName
GetElementByID

Bu kavramları iyi anlamak lazım. Koyu işaretlediğim kısımlar, neye göre çalışacağını ifade eder.

Kod: Tümünü seç

<a tabindex="0" class="cstree-clicked" id="H706a49415c68b-1100" draggable="true" href="#">Belge İşlemleri</a>

Bu satırda;
• Tag bölümü en başta a 'dır.
• Class bölümü cstree-clicked 'dir.
• ID bölümü H706a49415c68b-1100 'dır.

Zaten parametre başlıklarına bakıldığında da ne oldukları anlaşılıyor. Kodları doğru yorumlarsanız daha kolay ilerlersiniz.

[yurttutan]

hocam bilgileriniz için teşekürler

Benim soru sorusoşumdan belli olduğu üzere amatörce uğraşıyorum ve bana gerekli olan bazı küçük proğramları yapa biliyorum bazen sizce çok basit gibi görünen ama bence dağ gibi bazı proplemler ile karşılaşa biliyorum.
Bu da benim daha yolun başında olduğumu için ,sizin gibi bu işde profesyonellerin yanında bir şeyler öğrene bilirsek ne ala.
Eğer yardım ederseniz sevinirim
şimdiden teşekür ederim.

[natsu05]

merhabalar buralarda yeniyim konu açmak mantıklı gelmediği için buradan soruyorum bende web sitesinde bir tane butona tıklatmaya çalışıyorum fakat excel vba da fakat site kodlarını incelediğimde taglar ve class isimleri aynı yan yana bir kaç tane düğme var ve value site kodlarında görünmüyor fakat value değeri zaten buton üzerinde yazıyor ve site js ile yazılmış nasıl bir kod kümesi yazmalıyım yardımlarınızı rica ederim

[yurttutan]

merhabalar buralarda yeniyim konu açmak mantıklı gelmediği için buradan soruyorum bende web sitesinde bir tane butona tıklatmaya çalışıyorum fakat excel vba da fakat site kodlarını incelediğimde taglar ve class isimleri aynı yan yana bir kaç tane düğme var ve value site kodlarında görünmüyor fakat value değeri zaten buton üzerinde yazıyor ve site js ile yazılmış nasıl bir kod kümesi yazmalıyım yardımlarınızı rica ederim

üstat lar cevap yazarlarsa beraber öğreniriz

[Tarkan VURAL]

Yapılan çalışmanızın örneğini paylaşınız. Kodlarda ne çalışıyor, ne çalışmıyor görüp yardımcı olmaya çalışalım.

[natsu05]

'Set doc_eles = IE2.Document.getElementsByTagName("input")
'm = 0
'While m < doc_eles.Length
'If doc_eles(m).getAttribute("value") = ("Excel'e Aktar") Then

'Set objElement = doc_eles(m).Click(0)
'End If
'm = m + 1
'Wend

YUKARIDAKİ DÖNGÜ YADA AŞAĞIDAKİ DÖNGÜ FARKETMEZ ÇALIŞAN LAZIM
'<input type="button" class="btn btn-success" value="Excel'e Aktar" data-bind="click: $root.excelExport">
TIKLATMAK İSTEDİĞİM BUTON BU AŞAĞIDAKİ CLİCK ÖNÜNE M KOYMA NEDENİM KOYMAZSAM HİÇ ÇALIŞMIYOR

Set doc_eles = IE2.Document.getElementsByTagName("input")

For Each m In doc_eles
If (m.getAttribute("value") = "Excel'e Aktar") Then
doc_eles(m)(0).Click (m)
Exit For
End If
Next m

End Sub

[natsu05]

BU SADECE BİTANESİ VE AYNI ŞEKİLDE SİTE KODLARINI PAYLAŞCAM MÜSAİT OLUNCA BİR TÜRLÜ TIKLATAMADIM GİRİŞ YAPARKEN KULLANICI ADI ŞİFREYİ YAZIP GİRİŞ YAPIYOR AMA AYNI MANTIĞI SİTEYE GİRDİKTEN SONRA KURAMADIM

[yurttutan]

Yapılan çalışmanızın örneğini paylaşınız. Kodlarda ne çalışıyor, ne çalışmıyor görüp yardımcı olmaya çalışalım.

hocam size dosyayı özelden göndersem olurmu

[Tarkan VURAL]

Olur. Dosyanız özel bilgi içeriyor ise, genel kısımda paylaşmayın zaten. E-posta gönderebilirsiniz.

[gokanayz]

For Each element In IE.getelementsbytagname("'input")
d=d+1
if d=1 then
if element.getattribute("type")="button" Then
element.click
Exit For
End if
elseif d=2 then
if element.getattribute("type")="button" Then
element.click
Exit For
End if
elseif d=3 then
if element.getattribute("type")="button" Then
element.click
Exit For
End if
end if
Next element

[responsecode]

Merhaba,

Benzer sorunu yaşadığım için başlık açmak istemedim.

Buton HTML : <button onclick="getData()">Get</button>

Excelde bir türlü click yaptıramadım. Yardımcı olursanız sevinirim.

teşekkürler.

[Tarkan VURAL]

Merhaba,
Class, Value, ID, Name gibi özellik parametreleri olmayan butonlarda aşağıdaki gibi bir yöntem izlenebilir :

Kod: Tümünü seç

ie.document.querySelector("input[type='submit']")(0).Click

Kod: Tümünü seç

ie.document.querySelectorAll("button[type='submit']")(0).Click

Ya da TAG özelliğinden gidip :

Kod: Tümünü seç

dugme= ie.document.getElementsByTagName("button")
ie.document.getElementsByTagName("dugme")(0).Click

[responsecode]

malesef hepsini denedim olmadı, direk kopyalayıp yapıştırdım herhangi bir değişiklik yapmam gerekiyor muydu?

[Tarkan VURAL]

Internet nesnenizin adı ie değilse güncellemeniz gerekiyordu.

[Tarkan VURAL]

Bir ihtimal ile tüm documenti for each ile döndürüp innertext değerini GET yakaladığınızda, o nesne element id değerine click deneyebilirsiniz. Bu çözer diye düşünüyorum.

[yurttutan]

hocam for döngüsü ikullanarak
bir sayfada değişi ad'li bir kaç tane buton var bunları sıra ile nasıl açabilirim

[gokanayz]

Dim IE As Object
Set IE = CreateObject("internetexplorer.application")

for each ele in IE.document.getattribute("onclick")
if ele="getData()" then
IE.document.parentWindow.execScript "getData()", "JavaScript"
exit for
end if
next ele