Question

执行一个事务后，我得到一堆用户ID，然后我将其复制并粘贴到事务的另一部分我希望在VBA的帮助下做到这一点，但是＆＃34; UIPOAD FROM CLIPBOARD＆＃34;似乎不起作用。有人可以帮忙吗？

设置SAPGUIAuto = GetObject（＆＃34; SAPGUI＆＃34;）

Set SAPapplication = SAPGUIAuto.GetScriptingEngine
Set Connection = SAPapplication.Children(0)

Set session = Connection.Children(0)

session.findById（＆＃34; WND [0]＆＃34）。最大化 session.findById（＆＃34; wnd [0] / tbar [0] / okcd＆＃34;）。文字=＆＃34; suim＆＃34;

session.findById（＆＃34; wnd [0]＆＃34;）。sendVKey 0

######第一部分######

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。expandNode＆＃34; 02 1 2＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。topNode =＆＃34; 01 1 1＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。expandNode＆＃34; 03 2 7＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。selectItem＆＃34; 04 2 8＆＃34;，＆＃34; 1＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。ensureVisibleHorizontalItem＆＃34; 04 2 8＆＃34;，＆＃34; 1＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。topNode =＆＃34; 01 1 1＆＃34; session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。clickLink＆＃34; 04 2 8＆＃34;，＆＃34; 1＆＃34;

session.findById（＆＃34; WND [0]的/ usr / BTN％ ACTGRPS ％ APP ％ - VALU_PUSH＆＃34）。按

session.findById（＆＃34; wnd [1] / usr / tabsTAB_STRIP / tabpSIVA / ssubSCREEN_HEADER：SAPLALDB：3010 / tblSAPLALDBSINGLE / ctxtRSCSEL_255-SLOW_I [1,0]＆＃34;）。Text =＆＃34; *******＆＃34;

session.findById（＆＃34; wnd [1] / usr / tabsTAB_STRIP / tabpSIVA / ssubSCREEN_HEADER：SAPLALDB：3010 / tblSAPLALDBSINGLE / ctxtRSCSEL_255-SLOW_I [1,1]＆＃34;）。Text =＆＃34; ***********＆＃34;

session.findById（＆＃34; wnd [1] / usr / tabsTAB_STRIP / tabpSIVA / ssubSCREEN_HEADER：SAPLALDB：3010 / tblSAPLALDBSINGLE / ctxtRSCSEL_255-SLOW_I [1,2]＆＃34;）。Text =＆＃34; ************＆＃34;

session.findById（＆＃34; WND [1]的/ usr / tabsTAB_STRIP / tabpSIVA / ssubSCREEN_HEADER：SAPLALDB：3010 / tblSAPLALDBSINGLE / ctxtRSCSEL_255-SLOW_I [1,2]＆＃34）。SetFocus的

session.findById（＆＃34; wnd [1] / usr / tabsTAB_STRIP / tabpSIVA / ssubSCREEN_HEADER：SAPLALDB：3010 / tblSAPLALDBSINGLE / ctxtRSCSEL_255-SLOW_I [1,2]＆＃34;）。caretPosition = 18

session.findById（＆＃34; WND [1] / TBAR [0] / BTN [8]＆＃34）。按 session.findById（＆＃34; WND [0] / TBAR [1] / BTN [8]＆＃34）。按

session.findById（＆＃34; wnd [0] / usr / cntlGRID1 / shellcont / shell / shellcont [1] / shell＆＃34;）。currentCellRow = -1

session.findById（＆＃34; wnd [0] / usr / cntlGRID1 / shellcont / shell / shellcont [1] / shell＆＃34;）。selectColumn＆＃34; BNAME＆＃34;

#####获得一堆用户ID并在Ctrl + C的帮助下复制它######

session.findById（＆＃34; WND [0] / TBAR [0] / BTN [3]＆＃34）。按 session.findById（＆＃34; WND [0] / TBAR [0] / BTN [3]＆＃34）。按

######第二部分###### session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。expandNode＆＃34; 02 1 10＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。topNode =＆＃34; 01 1 1＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。selectItem＆＃34; 03 3 1＆＃34;，＆＃34; 1＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。ensureVisibleHorizontalItem＆＃34; 03 3 1＆＃34;，＆＃34; 1＆＃34;

session.findById（＆＃34; wnd [0] / usr / cntlTREE_CONTROL_CONTAINER / shellcont / shell＆＃34;）。clickLink＆＃34; 03 3 1＆＃34;，＆＃34; 1＆＃34;

session.findById（＆＃34; WND [0]的/ usr / BTN％ USER ％ APP ％ - VALU_PUSH＆＃34）。按

session.findById（＆＃34; WND [1] / TBAR [0] / BTN [24]＆＃34）。按 session.findById（＆＃34; WND [1] / TBAR [0] / BTN [8]＆＃34）。按

在这里，我在第一部分复制用户ID并将其存储到BNAME中。但是VBA无法从第二部分的剪贴板上传

也许是因为它不喜欢第一部分中的Ctrl + C

Answer 1

您可以尝试以下方法：

'...    
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").selectColumn "BNAME"
'---------------------- new -----------------------------------------
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").contextMenu
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").selectContextMenuItemByPosition "0"
'---------------------- new -----------------------------------------
'#####Got Bunch of User Ids and copied it with the help of Ctrl+C ######
'...

从剪贴板上传不在VBA Excel

1 个答案: