- 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