web te arama yapmak

[nacila2323]

googlede arama yapmak için şöyle bir kod buldum daha önceki sorularda.
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

benim sıkıntım şu. arama yapmak istediğim sayfa sadece işyerinden girilebiliyor. kamu kurumuna ait.başka yerden o sayfalar açılmıor.
mesela.
ana sayfa: www.google.com
arama yapılınca:www.google.com/search?hl=en&ie=UTF-8&q= şeklindeoluyor. yani sonuna .../search?hl=en&ie=UTF-8&q= kısmı ekleniyor.
üstteki komut bu nedenle işe yarıyor.
ama işyerimdeki sayfa böyle değil. mesela
ana sayfa:www.google.com gibiyken arama yaptıktan sonra yine www.google.com olarak kalıyor. sayfada hangi menuyu tıklarsam tıklayayım hep www.google.com gibi kalıyor.yani sonunda .../search gibi şeyler gelmiyor.
baştaki kodu o nedenle iş yerimde uygulayamıyorum.

nasıl bir çözüm bulunabilir. teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Sub giris()
Dim URL As String
Dim IE As Object
URL = "www.google.com"
Set IE = CreateObject("InternetExplorer.Application")

With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("q").Value = "Excelll"
SendKeys "{ENTER}", True
End With

Set IE = Nothing
End Sub

. . .

 

[nacila2323]

bu yazdıgınız kod tam olarak ne demek oldu anlayamadım

 

[nacila2323]

butona basınca google de hep excell kelimesini arıyor.
ben ise hangi hücreyi seçip butona basınca o hücredeki kelimeyi arasın istiyorum.

 

[Emir Hüseyin Çoban]

O kısım basit, istediğimiz değeri aratabiliriz.
Siz kısıtlı olan internetinizde bu şekilde arama yapıyor mu deneyiniz.

.

 

[nacila2323]

onun için yarın işyerinde denemem gerek.deneme sonucunu iletirim.
sanırım işyerindeki site asp veya jsp mi ne. öyle bir site. arama uzantılarını göstermiyor. onları görme şansım varmı acaba

 

[nacila2323]

hüseyin çoban.
verdiğin kodu denedim ama olmuyor .arama yerine excelll yazmalıyken hiç bişi yazmıyor. ana sayfa açılıyor sadece.
napabilirim

 

[Emir Hüseyin Çoban]

Kısıtlamasız sistemde çalışıyor.

İşyeriniz Hangi program veya sistemle yönetiliyor bilmiyorum.
Sistem yöneticinizden google sitesine erişimi açmasını talep edebilirsiniz.

.