- Katılım
- 18 Nisan 2008
- Mesajlar
- 304
- Excel Vers. ve Dili
-
excel 365
Office 365
- Altın Üyelik Bitiş Tarihi
- 14-11-2024
Merhabalar,
Arkadaşlar aşağıdaki gibi bir makro yazdım (web yardımıyla) bu makro ile bir web sayfasına veri göndermek istiyorum.
Makro ile web sayfasına kullanıcı adı / şifre ile giriş yapabiliyorum TAB tuşunu kullanabiliyorum fakat makro içerisinde aşağıdaki yöntemleri nasıl yapacağımı bilmiyorum yardımcı olabilirmisiniz
yön tuşlarını kullanmak (alt,sağ,sol,yukarı)
slash tuşunu kullanmak (boşluk tuşu)
enter tuşuna basmak
A1 hücresinden veri kopyalayıp yapıştırmak istiyorum
nasıl yapabilirim acaba? veya bu yöntemin daha kolay olanı var mı ?
kod şu şekilde;
Private Sub CommandButton1_Click()
'Web Sitesine girme işlemi
On Error Resume Next 'Hataları gizleme komutu
ActiveWorkbook.FollowHyperlink Address:="http://deneme/giris.html"
'5 Saniye sitenin açılması için bekleme komutu
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys(TextKullanici.Value, True) 'kullanıcı Adını yazdırma
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys(TextSifre.Value, True) 'Şifre yazdırma
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys("~", True) 'Şifre Gönderme
Application.Wait (Now + TimeValue("00:00:01"))
'Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys("{RETURN}", True) ' Gönderme
Exit Sub
Arkadaşlar aşağıdaki gibi bir makro yazdım (web yardımıyla) bu makro ile bir web sayfasına veri göndermek istiyorum.
Makro ile web sayfasına kullanıcı adı / şifre ile giriş yapabiliyorum TAB tuşunu kullanabiliyorum fakat makro içerisinde aşağıdaki yöntemleri nasıl yapacağımı bilmiyorum yardımcı olabilirmisiniz
yön tuşlarını kullanmak (alt,sağ,sol,yukarı)
slash tuşunu kullanmak (boşluk tuşu)
enter tuşuna basmak
A1 hücresinden veri kopyalayıp yapıştırmak istiyorum
nasıl yapabilirim acaba? veya bu yöntemin daha kolay olanı var mı ?
kod şu şekilde;
Private Sub CommandButton1_Click()
'Web Sitesine girme işlemi
On Error Resume Next 'Hataları gizleme komutu
ActiveWorkbook.FollowHyperlink Address:="http://deneme/giris.html"
'5 Saniye sitenin açılması için bekleme komutu
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys(TextKullanici.Value, True) 'kullanıcı Adını yazdırma
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys(TextSifre.Value, True) 'Şifre yazdırma
Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys("~", True) 'Şifre Gönderme
Application.Wait (Now + TimeValue("00:00:01"))
'Call SendKeys("{TAB}", True) 'Tab tuşuna basma
Call SendKeys("{RETURN}", True) ' Gönderme
Exit Sub