Hallo Dawyqui,
lege deine Daten stattdessen in eine Excel-Mappe (z.B. MeineDaten.xlsx) und zeichne das Skript so auf, damit jeder Datensatz aus Excel in einer zu durchlaufenden Programmschleife ausgeführt werden kann. Wenn das Ende einer Programmschleife nicht wieder automatisch am Anfang der nächsten stehen sollte, müsste in die Skriptaufzeichnung auch noch der Transaktionaufruf aufgenommen werden.
z.B.
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
Set xclapp = CreateObject("Excel.Application")
Set xclwbk = xclapp.Workbooks.Open("c:\tmp\MeineDaten.xlsx")
set xclsht = xclwbk.Sheets("Tabelle1")
for i = 2 to xclapp.ActiveCell.SpecialCells(11).Row
for j = 1 to xclapp.ActiveCell.SpecialCells(11).Column
if j=1 then AV_ANLG = xclsht.Cells(i,j).Value
if j=2 then AV_ART = xclsht.Cells(i,j).Value
if j=3 then AV_TP = xclsht.Cells(i,j).Value
if j=4 then AV_EQ = xclsht.Cells(i,j).Value
next
session.findById("wnd[0]/usr/subSUBSCREEN_HEAD:SAPLIWP3:6000/txtRMIPM-WPTXT").text = AV_ART & "_" & AV_ANLG
session.findById("wnd[0]/usr/subSUBSCREEN_MITEM:SAPLIWP3:8002/tabsTABSTRIP_ITEM/tabpT\11
/ssubSUBSCREEN_BODY2:SAPLIWP3:8022/subSUBSCREEN_ITEM_1:SAPLIWO1:0100/ctxtRIWO1-TPLNR").text = AV_TP
session.findById("wnd[0]/usr/subSUBSCREEN_MITEM:SAPLIWP3:8002/tabsTABSTRIP_ITEM/tabpT\11
/ssubSUBSCREEN_BODY2:SAPLIWP3:8022/subSUBSCREEN_ITEM_1:SAPLIWO1:0100/ctxtRIWO1-EQUNR").text = AV_EQ
session.findById("wnd[0]/usr/subSUBSCREEN_MITEM:SAPLIWP3:8002/tabsTABSTRIP_ITEM/tabpT\11
/ssubSUBSCREEN_BODY2:SAPLIWP3:8022/subSUBSCREEN_MAINT_ITEM_TEXT:SAPLIWP3:6005/txtRMIPM-PSTXT").text = AV_ART & "_ME_INSP_" & AV_ANLG
. . .
'Hier könnte ein möglicher Rest des VBScriptes stehen.
next
msgbox "Alle " & cstr(xclapp.ActiveCell.SpecialCells(11).Row - 1) & " Excel-Zeilen sind verarbeitet worden."
Set xclwbk = Nothing
Set xclsht = Nothing
xclapp.Quit
set xclapp = Nothing
Grüße, ScriptMan