64 bit hatası

[bydogannn67]

Merhabalar,

aşağıdaki kod ile 32 bit işletim sistemi bilgisayarda excel ile ile internet sayfası arasında veri gönderimi sağlıyabiliyorum, ama 64 bit işletim sisteminde hata alıyorum, aşağıdaki kodları 64 göre nasıl revize edebilirim

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub bildiriyirmi()
Dim URL As String

Dim IE As Object

URL = "https://uyg.sgk.gov.tr/IsvBildirimFormu/welcome.do"

Set IE = CreateObject("InternetExplorer.Application")

With IE
.navigate URL
.Visible = 1
ShowWindow IE.hwnd, 3

Do Until IE.readyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop


IE.Document.all("kullaniciAdi").Value = Cells(22, "b").Value
IE.Document.all("isyeriKodu").Value = Cells(22, "c").Value
IE.Document.all("isyeriSifresi").Value = Cells(22, "e").Value

IE.Document.all("kaydet").Click

Do Until IE.readyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop

'ie.Quit: Set ie = Nothing
End With

End Sub

 

[Korhan Ayhan]

Merhaba,

Declare ifadesinden sonra PtrSafe yazıp deneyiniz.

 

[bydogannn67]

Teşekkürler hocam