Office 2003 te çalışmayan kod

Katılım
6 Mart 2008
Mesajlar
282
Excel Vers. ve Dili
2021 Türkçe
sitemizdeki değerli büyüklerimden aldığım yardımlarla yazmış olduğum kod benim bilgisayarımda gayet iyi çalışmaktadır. fakat office 2003 yüklü Win 7 li bir bilgisayarda yandex açılıyor sonra hata veriyor. sebebini anlayamadım. yardımlarınızı bekliyorum.(diğer bilgisayarda doğru yandex adresini yazıyorum)
Kod:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub ggbs_giris()
DosyaAdi = "C:\Users\samet\AppData\Local\Yandex\YandexBrowser\Application\browser.exe"
    ShellExecute 0, "Open", DosyaAdi, "", "", vbNormalNoFocus
    Application.Wait (Now + TimeValue("0:00:02"))
    SendKeys Range("s5").Value
     Application.Wait (Now + TimeValue("0:00:04"))
    SendKeys "{ENTER}"
    Application.Wait (Now + TimeValue("0:00:01"))
    SendKeys "{ENTER}"
    Application.Wait (Now + TimeValue("0:00:04"))
    SendKeys Range("T2").Value
            SendKeys "{TAB}"
            SendKeys Range("T3").Value
            SendKeys "{TAB}"
            
            SendKeys "{ENTER}"
            SendKeys "{NUMLOCK}"
End Sub
 
Üst