Kod ile google da arama

[acar6783]

Sub Google_Arama()
Dim newsite As Object
Set newsite = CreateObject(“InternetExplorer.application”)
newsite.Visible = True
newsite.Navigate _
“http://www.google.com/search?hl=en&ie=UTF-8&q=” _
& ActiveCell.Text
End Sub

Arkadaşlar kolaygelsin araştırmalarım sonucu bu şekilde bir kod buldum fakat calışmıyor pek anlamadığımdan dolayı sormak istiyorum.
"Kod google da arama yapacak bir kod olarak düzenlenmiş.. "

 

[Murat OSMA]

Hücreye aramak istediğinizi yazın, o hücreyi seçin ve öyle bir deneyin;

Bu kodu deneyin;

Sub Google_Arama()
    Dim newsite As Object
    Set newsite = CreateObject("InternetExplorer.application")
    newsite.Visible = True
    newsite.Navigate "http://www.google.com/search?hl=en&ie=UTF-8&q=" & ActiveCell.Text
End Sub

 

[Ömer]

Merhaba,

Kodlarda sorun yok, sadece tırnak işaretleri kopyalamadan ötürü farklı biçimde gelmiş.

Bu şekilde deneyin.

Sub Google_Arama()
Dim newsite As Object
Set newsite = CreateObject("InternetExplorer.application")
newsite.Visible = True
newsite.Navigate "[URL]http://www.google.com/search?hl=en&ie=UTF-8&q[/URL]=" _
& ActiveCell.Text
End Sub

Not: Geç kalmışım.

 

[acar6783]

Hocam teşekkürler şimdi anladım fakat benim asıl elde etmek istediğim bu değil imiş..
Bizim fiyat aldığımız bir site var ve ben bu site üzerinden barkod aratıp karşılık gelen verileri sırasıyla almak istiyorum bu şeilde bir sey denendi mi?

Ekte resim olarak sitenin görüntüsü mevcut.