Hallo liebe Leutz,
leider bin ich kein Guru für VBA Programmierung und bin deshalb ein wenig überfordert.
Ich habe hier ein Progrämmchen geschrieben, dass unter XP und IE 6 problemlos läuft.
Das Prg macht folgendens.
Es nimmt aus einer Session die 5 Werte und überträgt diese auf den IE zur Weiterverarbeitung.
Als ich es jetzt es auf Win7 und IE8 testen wollte, geht die Webseite zwar auf aber es kommt ein Object Error und die Daten werden nicht
übertragen.
Hier der CODE
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
Könnt ihr mir bitte helfen.
Danke
|