Merhaba,
Aşağıdaki kod ile Windows Server 2010'a RDP ile bağlanıp, web sayfasından istediğim veriyi hücreye yazabiliyorum. Aynı işlemi yerel bilgisayarımda yapmak istediğimde hata veriyor.
Excel sürümleri her ikisinde de aynı.
Hatayı ilk satır "Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems" kısmında alıyorum. Bu sebeple sleep kodunu kullanamıyorum.
Sleep kodunu sayfanın yüklenmesini beklemek için kullanıyorum.
Konu hakkında yardımcı olabilir misiniz? Teşekkürler
Aşağıdaki kod ile Windows Server 2010'a RDP ile bağlanıp, web sayfasından istediğim veriyi hücreye yazabiliyorum. Aynı işlemi yerel bilgisayarımda yapmak istediğimde hata veriyor.
Excel sürümleri her ikisinde de aynı.
Hatayı ilk satır "Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems" kısmında alıyorum. Bu sebeple sleep kodunu kullanamıyorum.
Sleep kodunu sayfanın yüklenmesini beklemek için kullanıyorum.
Konu hakkında yardımcı olabilir misiniz? Teşekkürler
Kod:
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
Sub Button12_Click()
On Error Resume Next
Dim IE As Object
Dim i As Integer
For i = 2 To [a65536].End(3).Row
If Cells(i, 4) = "Kapatıldı" Then
Cells(i, 10) = "kapatıldı"
Else
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.navigate "https://site.com.tr" & Cells(i, 1)
Do Until .readyState = 4: DoEvents: Loop
End With
Sleep 3000
Cells(i, 11) = IE.document.getElementById("summary").getElementsByTagName("td")(1).innertext
IE.Quit
Set IE = Nothing
End If
Next i
End Sub