- Katılım
- 6 Temmuz 2008
- Mesajlar
- 1,875
- Excel Vers. ve Dili
- OFFİCE 2010- TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 22-12-2019
Kolay gelsin ,
İnternetten veri alma hakkında çok şey araştırdım ama bu işi İEexplorer dışında yapan bir kod yazımı bulamadım.
Ekte ieesplorer ile daha önce kullandığım kodlar mevcut fakat bu işyerimde İnternetExplorer sayfaları açmıyor. o yüzden hata alıyorum.
Bu işi Chrome ile yapabileceğim kod yazan varmıdır?
Örnek kodlar daha önce Haluk beyin kodlarının uyarlanmış halidir.
İnternetten veri alma hakkında çok şey araştırdım ama bu işi İEexplorer dışında yapan bir kod yazımı bulamadım.
Ekte ieesplorer ile daha önce kullandığım kodlar mevcut fakat bu işyerimde İnternetExplorer sayfaları açmıyor. o yüzden hata alıyorum.
Bu işi Chrome ile yapabileceğim kod yazan varmıdır?
Örnek kodlar daha önce Haluk beyin kodlarının uyarlanmış halidir.
Kod:
Dim IE As Object
Dim satsay As Integer
Sub bekle()
With IE
Do Until .readyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
End Sub
Sub giriş()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "https://i-donusum.com.tr/portal/"
Call bekle
satsay = 0
Set objCollection = IE.Document.getElementsByTagName("input")
i = 0
Do While i < objCollection.Length
If objCollection(i).ID = "username" And objCollection(i).Type = "text" Then
'kullanıcı adı
objCollection(i).Value = "xxxx" 'Sheets("uyum").Range("V5").Value
End If
'parola
If objCollection(i).ID = "pass2" And objCollection(i).Type = "password" Then
objCollection(i).Value = "xxxxx" 'Sheets("uyum").Range("AE5").Value
Exit Do
End If
i = i + 1
Loop
Set objCollection = IE.Document.getElementsByTagName("input")
i = 0
Do While i < objCollection.Length
If objCollection(i).Name = "Submit" And objCollection(i).Type = "submit" Then
objCollection(i).Click
Exit Do
End If
i = i + 1
Loop
Call bekle
End Sub