title image


Smiley So gehts ... aber
ich muß bisjetzt jedesmal die Site neu aufrufen, da ich ein "GetObject" einfach nicht hinbekomme.



Private Declare Sub Sleep Lib "Kernel32.dll" (ByVal SleepTime As Long)



Private Sub ...

Dim objIE As Object

Dim objIEDoc As Variant

Dim myUrl As String



myUrl = "http://www.meineadresse.com/de/mhs/hochfrequenter.cfm?code=spso"



On Error Resume Next

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate myUrl

While Not objIE.ReadyState = 4

Sleep 200

DoEvents

Wend

End If



Set objIEDoc = objIE.Document

objIEDoc.Forms(0).elements("lname").Value = Me.txtNachname

objIEDoc.Forms(0).elements("fname").Value = Me.txtVorname



objIE.Visible = True

End Sub



Vielleicht hast du ja noch eine Idee.



Gruß aus Versmold

Rolf

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: