vba - Sendkeys Crtl+C and clipboard

[cimerio]

hello, everybody.

I need to test if a value stored in clipboard (got by Crtl+C) meet a certain condition. The macro is dependent ot that.

But nothing ot I tried worked so far. I need help.
The macro is for manipulate a java terminal emulator (IBM HOD)


My current code is below. I reduced to better undertanding:


Sub atucredor()


Dim cpf As String
Dim bco As String
Dim ag As Integer
Dim cta As Double
Dim clipboard As String



AppActivate "Terminal 3270 - A - AWVL6661"
Application.Wait (Now + TimeValue("0:00:01"))

For i = 2 To 2
cpf = Worksheets("atucredor").Cells(i, 1)
bco = Worksheets("atucredor").Cells(i, 3)
ag = Worksheets("atucredor").Cells(i, 4)
cta = Worksheets("atucredor").Cells(i, 5)

Application.Wait (Now + TimeValue("0:00:01"))
SendKeys cpf, True
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{ENTER}", True
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}", True
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "+{RIGHT}", True
Application.Wait (Now + TimeValue("0:00:01"))
clipboard = "^c"
SendKeys clipboard, True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "+{ESC}"


If clipboard = "A" Then


SendKeys "{F12}", True
clipboard = ""
Else
Debug.Print clipboard
End If
Next

[Logit]

Here is a resource : https://www.mrexcel.com/board/threads/vba-check-clipboard-text-before-pasting.889605/

It is possible. First, go to the VBA Editor. In the menu, click on Tools --> References, then put a check next to Microsoft Forms 2.0 Object library. Then paste this code:


( Untested here )

Sub PasteWOc()
Dim MyText As String

Set MyData = New DataObject
MyData.GetFromClipboard
MyText = MyData.GetText

If Left(MyText, 2) <> "WO" Then Exit Sub

Sheets("wo").Range("a1") = MyText
End Sub

[arnelgp]

IMHO, the OP code will definitely not work.
you Activate the External prog, yes.
But also use "worksheet", which will then shift focus to
your Workbook/worksheet.

you must first gather all info to the variable, then
set focus on the external prog and do the Sendkeys.

also, there are times that simple AppActive will not
activate the app, you need to "find" the window handler
of the app and put that window handler in the "foreground".

[cimerio]

can I attach a videoscreen?

I am trying attach a zip file and doesn't works.

it's 9mb

[cimerio]

maybe if I explain my objective, it's easiest to find a solution. I attached pictures.
Basically, the macro is to register creditors in our system (very dated) that use the IBM Terminal). So, he get the data of first collumn (our id) and put inthe terminal (pic1). after it, there are two options:
if thecreditor is already registered, the terminal open the window for change (see in the pic2_ ( A-ALTERACAOE-EXCLUSAO ) ). notice that (pic3) shift + right select the field of the cursor in second screen.

that option is not what I want. only so, I use F12 in the macro to return to first screen (pic1) and get the second line of excel.
if the creditor is not registered ( pic4, notice OPCAO : I - INCLUSAO), so, that macro proceeds to insert otherdata (other columns). but the field in that case is not empty (why? well, because the terminal pull the data from other database)
I thought, ifI test the field after first screen, shift+right, crtl+c, variable (if = 0,it's the screen for change. if <> 0, its the screen for insert), I would find a solution.


but maybe there are another form of test . could I test the position of cursor?? I don'tunderstant much of vba.

28937289382893928940