.CopySelection - Value skal overføres til en variable??
Hej eksperter,jeg sidder og forsøger at programmere noget VBA til WRQ Reflection.
Jeg vil gerne markere en værdi på skærmen - værdien skal så overføres til en variable så jeg kan bruge værdien til andet end bare at paste et andet sted på skærmen.
se min kode herunder: koden herunder giver selvfølgelig en fejl når den kommer til inv_umoms = ... da jeg ikke ved hvordan jeg skal smide værdien i inv_moms?
Sub BALL()
Dim inv_umoms, inv_mmoms As String
With Session
.WaitForEvent rcEnterPos, "30", "0", 3, 11
.WaitForDisplayString ":", "30", 3, 9
.TransmitTerminalKey rcIBMPf3Key
.WaitForEvent rcKbdEnabled, "30", "1", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 10, 2
.TransmitTerminalKey rcIBMPf2Key
.WaitForEvent rcKbdEnabled, "30", "1", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 10, 2
.TransmitTerminalKey rcIBMPf2Key
.SetMousePos 2, 77
.WaitForEvent rcKbdEnabled, "30", "1", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 19, 7
.SelectWord rcMouseRow, rcMouseCol
.CopySelection
.SetMousePos 12, 10
.TerminalMouse rcLeftClick, rcMouseRow, rcMouseCol
.GraphicsMouse rcLeftClick, rcCurrentGraphicsCursorX, rcCurrentGraphicsCursorY
.Paste
'lav msgbox med inv værdi
.SetSelectionStartPos 23, 10
.WaitForEvent rcEnterPos, "30", "0", 12, 23
.WaitForDisplayString "no", "30", 12, 20
.ExtendSelectionRect 23, 16
.CopySelection
inv_umoms = CopySelection.value
MsgBox "dette er en test " & inv_umoms & ""
End With
End Sub