SendKeys ve CTRL V

[erkankamilonas]

Excelde iken Google arama motorunu açıp “Deneme” yazısını yapıştırmak istiyorum.

Şöyle bir kod yazdım, ancak CTRL + V komutu çalışmıyor, nerede hata yaptım.
Sadece Excel programı ve Google arama motoru açık. Makroyu Excelden çalıştıracağım.

Sub a()
SendKeys "%{Tab}", 1
[A1].Copy
SendKeys "^v", 1
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanın. Google sayfasını kendi açacaktır.

Public Declare Function ShowWindow& Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Integer)
 
Sub googleac()
Set uygulama = CreateObject("internetexplorer.application")
With uygulama
.Visible = True
.navigate "[URL]http://www.google.com.tr[/URL]"
Do While .ReadyState <> 4: Loop
With .Document.all
.q.Value = "Deneme"
End With
End With
ShowWindow uygulama.hwnd, 3
End Sub

 

[cebelitarık]

Sayın Erkankaminolas
Dosyanız ektedir.

Ekranda Google Arama motoru açık hazır beklerken butona tıklayınız.
Saygılarımla


Option Explicit
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub a()
AppActivate "Google - windows Internet Explorer", True
Sleep (1000)
SendKeys Sheets("SAYFA1").Cells(1, 1), True
Sleep (1000)
SendKeys "{ENTER}", True
End Sub

 

[cebelitarık]

Sayın Levent Menteşoğlu
Değişik bir yol uygulamışsınız.
Lütfen koddaki satırları açıklayabilirmisiniz.
Saygılarımla

 

[erkankamilonas]

Çok Teşekkür ederim sayın Levent Menteşoğlu ve Cebelitarık

 

[Zeki Gürsoy]

Merhaba,

Levent Bey'in prosedurune bir satır daha ilave yaparsak, arama sonuçları da gelebilir..

Sub googleac()
Set uygulama = CreateObject("internetexplorer.application")

    With uygulama
        .Visible = True
        .navigate "http://www.google.com.tr"
        
        Do While .ReadyState <> 4: Loop
        
        With .Document.all
            .q.Value = "Deneme"
            [COLOR=Blue].btnG.Click[/COLOR]
        End With
        
    End With
[COLOR=DarkGreen][/COLOR]End Sub

 

[baydeniro]

Teşekkürler.