makro chrome açma

[lejoner7]

Private Sub CommandButton1_Click()
Set ie = CreateObject("internetexplorer.application")
With ie
.Navigate "https://earsivportal.efatura.gov.tr/intragiris.html"
.Visible = 1
Do While .ReadyState <> 4: DoEvents: Loop
.document.getElementById("userid").Value = "deneme"
.document.getElementById("password").Value = "12345"

.document.all("action").Click
End With
End Sub



bu kodun chorem de açılmasını istiyorum yardımcı olurmusunuz

 

[Muzaffer Ali]

Merhaba.

Sub Test()
  Dim Chrome As String
  Dim Url As String

  Chrome = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
  Url = "https://earsivportal.efatura.gov.tr/intragiris.html"
 
  Shell (Chrome & " -url " & Url)
End Sub

 

[lejoner7]

hata veriyor artı çalıştığı zaman kullanıcı adı şifreyi otomatik girmesi lazım

 

[dost]

Merhaba,

1- chromedriver inidirin.
2- Selenium Basic Kurulum izle

Sub Earsiv_Chrome()
'References: Selenium type library
Dim obj As New Selenium.ChromeDriver

obj.Get "https://earsivportal.efatura.gov.tr/intragiris.html"
While obj.ExecuteScript("return document.readyState") <> "complete"
    obj.Wait (5000)
Wend

obj.FindElementById("userid").SendKeys "deneme"
obj.FindElementById("password").SendKeys "12345"
obj.FindElementByXPath("//button[@type='submit']").Click

End Sub

 

[lejoner7]

Merhaba,

1- chromedriver inidirin.
2- Selenium Basic Kurulum izle

Sub Earsiv_Chrome()
'References: Selenium type library
Dim obj As New Selenium.ChromeDriver

obj.Get "https://earsivportal.efatura.gov.tr/intragiris.html"
While obj.ExecuteScript("return document.readyState") <> "complete"
    obj.Wait (5000)
Wend

obj.FindElementById("userid").SendKeys "deneme"
obj.FindElementById("password").SendKeys "12345"
obj.FindElementByXPath("//button[@type='submit']").Click

End Sub

Teşekkürler dost
Ama Kodu Çalıştırdığım zaman chorem açılıp hemen kapanıyor.Birde birden fazla giriş yapıyorum o yüzden commanbuton koyuyorum hiç tepki vermiyor