Hallo Ralf
danke erstmal, dass du mir versuchst hier zu helfen.
Also Fehlermeldung ist Object Error , Line 48
Also hier ich zeichne es an mit ----------------------
Sub Main()
Dim Sys as Object, Sess As Object
Set Sys = CreateObject("Extra.System")
If Sys is Nothing then
MsgBox ("Could not create Extra!.System...is E!PC installed in this machine?")
Exit Sub
End If
Set Sess = Sys.ActiveSession
If Sess Is Nothing then
MsgBox ("No Session Available...Stopping Macro playback.")
Exit Sub
End If
Dim IEkabou as Object
If UCase(Sess.Screen.GetString(3, 2, 6)) = "CLIENT" Then
For nimp%=15 to 21
linebuf$ = Sess.Screen.GetString(nimp%, 5, 75)
screenbuf$ = screenbuf$ + linebuf$ + Chr$ (13) + Chr$ (10)
Next
Set IEkabou = CreateObject("InternetExplorer.Application")
With IEkabou
.AddressBar = False
.StatusBar = False
.MenuBar = False
.Resizable = False
.Toolbar = 0
.Visible = True
.Height = 590
.Navigate "link"
End With
While IEkabou.Busy
DoEvents
Wend
-----------------------------------------------------------------------------------------------------------------------------------------
IEkabou.Document.Forms.kabouweb.client_nom.value = Sess.Screen.GetString(7,2,35)
IEkabou.Document.Forms.kabouweb.client_agence.value = Sess.Screen.GetString(7,78,2)
IEkabou.Document.Forms.kabouweb.client_ville.value = Sess.Screen.GetString(10,8,20)
IEkabou.Document.Forms.kabouweb.client_intervention.value = screenbuf$
Set IEkabou = Nothing
Else
MsgBox "la la la la"
End If
End Sub
Ich habe schon die IE 8 Einstellungen so geändert dass wirklich alles durchgehen müßte.
Daran hab ich auch schon natürlich gedacht, dass IE 8 ja andere Sicherheitseinstellungen hat.
Ist schon ein harter Brocken, vor allem es funktioniert locker auf xp und IE6 auf win7 und IE8 nicht.
Danke nochmal für deine Hilfe
Gruss
Sigi
|