-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Soru Web sayfasına excelden veri gönderme
- Konuyu Başlatan Harun0610
- Başlangıç tarihi
-
- Etiketler
- web sayfasına excelden veri gönderme
Ali ÖZ
Uzman
- Katılım
- 28 May 2021
- Mesajlar
- 404
- Çözümler
- 109
- Aldığı beğeni
- 594
- Excel V
- Office 365 TR
Deneyin.
Kod:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Url = "https://secure.sahibinden.com/kayit"
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("name").Value = Range("a2").Value 'isim
IE.document.all("surname").Value = Range("b2").Value ' soyisim
IE.document.all("email").Value = Range("c2").Value ' eposta
IE.document.all("password").Value = Range("d2").Value ' şifre
End With
Set IE = Nothing
Application.ScreenUpdating = True
End Sub