Google Üzerinde Arama Yapma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
64 bit kullanıyorsanız, chromePath kısmındaki yolu tanımlamanız yeterli olacaktır.
Kodu çalıştırdığınız bir InputBox nesnesi açılacak ve yazacağınız arama Google Chrome tarayıcısı ile Google üzerinden yapılacaktır.
Bilgisayarınızda Chrome yüklü değilse kod hata verir, hemen "kod hatalı" diye yorum yazmayın
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub SearchWindow32()
Dim chromePath As String
Dim search_string As String
Dim query As String
query = InputBox("Aramak istediğiniz kelimeyi yazın", "Google Arama")
search_string = query
search_string = Replace(search_string, " ", "+")
'Uncomment the following line for Windows 64 versions and comment out Windows 32 versions'
'chromePath = "C:Program FilesGoogleChromeApplicationchrome.exe"
'Uncomment the following line for Windows 32 versions and comment out Windows 64 versions
chromePath = "C:Program Files (x86)GoogleChromeApplicationchrome.exe"
Shell (chromePath & " -url https://www.google.com/search?q=" & search_string)
End SubAçıklama
Üstteki kod 32 bit için geçerli yola göre eklenmiştir.64 bit kullanıyorsanız, chromePath kısmındaki yolu tanımlamanız yeterli olacaktır.
Kodu çalıştırdığınız bir InputBox nesnesi açılacak ve yazacağınız arama Google Chrome tarayıcısı ile Google üzerinden yapılacaktır.
Bilgisayarınızda Chrome yüklü değilse kod hata verir, hemen "kod hatalı" diye yorum yazmayın
Faydalanılması temennisiyle
