• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Soru Web Sayfası içine girmek

bulentkars

Yeni Üye
Katılım
30 May 2022
Mesajlar
605
Çözümler
5
Aldığı beğeni
95
Excel V
Office 365 TR
Merhaba,

baglantı Makrosu ile web adresini açıyorum, kullanıcı adı ve şifre otomatik geliyor. Ben Oturumu aç butonunu makro ile tıklayıp giriş yapmak için ne yapmalıyım acaba.. Yardımcı olursanız sevinirim. Şimdiden Teşekkürler..

Bağlantı Makrosu
Sub baglanti()
Shell "explorer ""'https://qliksense.com.tr"""
End sub

Oturumu Aç'an Html Kod bilgisi
<input type="submit" id="loginbtn" class="lui-button qlik-submit" value="Oturum aç" _mstvalue="139932">
 

Ekli dosyalar

  • Oturum Aç.JPG
    Oturum Aç.JPG
    18.8 KB · Gösterim: 8
Merhabalar

Kod:
Sub baglanti()

Dim HTMLdoc As MSHTML.HTMLDocument

Shell "explorer ""'https://qliksense.com.tr"""



 HTMLdoc.getElementById("loginbtn").Click



End sub
 
Merhaba

Microsoft HTLML ObJect Library' i
referanslara ekleyiniz
 
Merhaba;

Referansı ekledim. Bu sefer aşağıdaki hatayı alıyorum. anlaığım kadarıyla zamandan dolayı yetişemiyor mu?

HTMLdoc.getElementById("loginbtn").Click
 
Application.Wait Now + TimeValue("00:00:05")
 
Aynı hatayı alıyorum.. Web sayfası açılıyor ancak giriş yapmıyor
 

Ekli dosyalar

  • hata.JPG
    hata.JPG
    24 KB · Gösterim: 9
Kod:
Sub baglanti()

Dim HTMLdoc As New MSHTML.HTMLDocument

Shell "explorer ""'https://qliksense.com.tr"""



 HTMLdoc.getElementById("loginbtn").Click



End sub
 
Merhaba;

Önceki kodun aynısı
HTMLdoc.getElementById("loginbtn").Click
satırda hata alıyorum.
Microsoft Edge açılıyor.
ancak giriş butunu tıklamıyor.
 
Microsoft Edge yi ayarlarla explorer olarak açılmasını sağlamanız gerekir internette bu bilgiyi bulabilirsiniz.
 
önceki kodda new kelimesi yoktu
 
kodu çalıştırdığımda
HTMLdoc.getElementById("loginbtn").Click
satırda hata veriyor.
ama web sayfası açılıyor. ama giriş yapmıyor.
 
HTML kodumu yanlış acaba
'<input type="submit" id="loginbtn" class="lui-button qlik-submit" value="Oturum aç" _mstvalue="139932">

Kodun Son Hali

Sub baglanti()

Dim HTMLdoc As New MSHTML.HTMLDocument

Shell "explorer ""Qlik Sense login page"""

HTMLdoc.getElementById("loginbtn").Click

End Sub
 
10 . mesaj
 
Merhaba,

Kodu Microsoft Edge de veya Cherome' ye göre uyarlayabilirmiyiz acaba..
Microsoft Expolorerde olmuyor. ekteki gibi hata veriyor
 

Ekli dosyalar

  • expolorer.JPG
    expolorer.JPG
    23.4 KB · Gösterim: 2
Geri
Üst