vba da aldığım hatalar hakkında destek lütfen

[halilsimsek79]

Öncelikle merhabalar kodum aşağıdaki gibidir

Sub WhatsAppMsg()
Dim LastRow As Long
Dim i As Integer
Dim strip As String
Dim strPhoneNumber As String
Dim strmessage As String
Dim strPostData As String
Dim IE As Object

LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow

strPhoneNumber = Sheets("Data").Cells(i, 1).Value
strmessage = Sheets("Data").Cells(i, 2).Value
ActiveSheet.Shapes(1).Copy

'IE.navigate "whatsapp://send?phone=phone_number&text=your_message"


strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strmessage
Set IE = CreateObject("InternetExplorer.Application")

IE.navigate strPostData
Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys("{Enter}", True)

'Application.Wait Now() + TimeSerial(0, 0, 5)
'SendKeys "~"

Next i

End Sub



fakat makro çalıştırdığım süreçte Bu web sitesinin bilgisayarınızda uygulama açmasına izin vermek istiyormusunuz ?

Hatayı aldığım durum İnternet Explorer şeklinde gözüküyor kodumda ie yerine chrome şeklinde çalıştıma nasıl yapabilirim anladığım kadarı ile ie eskiden kalan bir çalışma olduğu için alıyorum ama güncelleme yapamadım şimdiden teşekkür ederim

Uygulama : WhatsApp şeklinde uyarı veriyor evet dediğim şekilde çalışıyor fakat direkt olarak bu uygulama hatası almadan çalıştıma mantığı yada bu hata çözümü bilen var mı dır ?

 

[Asri]

Excel vba ile chrome yada firefox gibi farklı tarayıcıları kullanmak için Selenium konusu araştırın.

Downloads | ChromeDriver | Chrome for Developers

chromedriver.chromium.org

Selenium VBA Excel Tutorial: Chrome Web Scraping Example

What is Data Scraping using selenium? Selenium can be classified as the automation tool that facilitates scraping of information from the HTML web pages to perform web scraping utilizing google chrome

www.guru99.com

Release SeleniumBasic v2.0.9.0 · florentbr/SeleniumBasic

CHANGELOG.txt

github.com

 

[halilsimsek79]

Asri hocam teşekkür ederim verdiğiniz bilgi için fakat çözüm bulamadım kod karşılığı yardım etme şansınız varmıdır ben kütüphane yüklemesi yaptım fakat çözüm üretemedim şimdiden teşekkür ederim

 

[Asri]

Asri hocam teşekkür ederim verdiğiniz bilgi için fakat çözüm bulamadım kod karşılığı yardım etme şansınız varmıdır ben kütüphane yüklemesi yaptım fakat çözüm üretemedim şimdiden teşekkür ederim

VBA Reference larda "Selenium Type Library" seçili olmalı.

Kurulumları doğru yaptıysanız bu kod google ı açıp arama kutusuna Selenium yazıp arama yaptıracaktır.
Chromedriver sürümünüz chrome tarayıcınız ile aynı sürüm değil ise sorunlar çıkabilir.

Whatsapp için size program yazamam ancak bu yolu takip ederseniz istediklerinizi yapabilirsiniz.

driver.findElementById
driver.findElementByName gibi seçimler bazen sorun çıkarabiliyor.
Ben aşağıdaki kodda .click olayında sorun yaşadım. Xpath ile tıklama yapabildim.

Sizde xpath konusunu araştırıp bunun üzerinden ilerleryebilirsiniz.

Public Sub SearchByGoogle()
  Dim driver As New Selenium.WebDriver
  driver.Start "chrome", "https://www.google.com/"

  driver.get ("/")
  driver.findElementById("APjFqb").SendKeys "Selenium"
  driver.FindElementByXPath("/html/body/div[1]/div[3]/form/div[1]/div[1]/div[4]/center/input[1]").Click
  Application.Wait (Now + TimeValue("0:00:05"))
End Sub

 

[Asri]

SeleniumBasic i yüklemeyi de unutmayın. Bu linki eksik yazmışım.

Release SeleniumBasic v2.0.9.0 · florentbr/SeleniumBasic

CHANGELOG.txt

github.com