从 SAP 获取特定单元数据到 excel

Question

我正在尝试使用 VBA 从 SAP 中的一行中的特定单元格中获取数据，并将其放入 excel table 中。当我录制一个我点击我需要的 5-6 个项目的宏时，它只给我点击了一个。此外，我看不到任何方法可以将数据从单元格中获取到 SAP 中。 SAP 代码在这里：

Dim W_Ret As Boolean

W_Ret = Attach_Session
If Not W_Ret Then
    Exit Sub
End If

startrow = 10

On Error GoTo myerr

objSess.findById("wnd[0]").maximize
objSess.findById("wnd[0]/tbar[0]/okcd").Text = "/nymm_pricelist"
objSess.findById("wnd[0]").sendVKey 0
objSess.findById("wnd[0]/usr/ctxtS_MATNR-LOW").Text = Cells(currentline, 1).Value
objSess.findById("wnd[0]/usr/ctxtS_VKORG-LOW").Text = Cells(currentline, 4).Value
objSess.findById("wnd[0]/usr/ctxtS_VKORG-LOW").SetFocus
objSess.findById("wnd[0]/usr/ctxtS_VKORG-LOW").caretPosition = 4
objSess.findById("wnd[0]").sendVKey 8
Set myGrid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell")
Cells(currentline, 5).Value = myGrid.GetCellValue(0, "MAKTX")
Cells(currentline, 6).Value = myGrid.GetCellValue(0, "GLOBALSALES_KBETR")
Cells(currentline, 7).Value = myGrid.GetCellValue(0, "GLOBALSALES_KONWA")
Cells(currentline, 8).Value = myGrid.GetCellValue(0, "GLOBALTRANSFER_KBETR")
Cells(currentline, 9).Value = myGrid.GetCellValue(0, "GLOBALTRANSFER_KONWA")


' Setting the line status to completed
Cells(currentline, 2).Value = 1
Exit Sub

myerr:
' Some error occured
' Setting the line status to Failed
Cells(currentline, 2).Value = 2

感谢任何帮助！

Answer 1

我解决的问题如下

首先，我记录一个帮助脚本。在这样做时，网格的相关列被一个接一个地标记，例如按升序排列。这样处理完所有感兴趣的列后，就可以发现录制脚本中的所有列名了。
帮助脚本应如下所示：

. . . session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").currentCellColumn = "GLOBALTRANSFER_KONWA" session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectColumn "GLOBALTRANSFER_KONWA" session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").pressToolbarButton "&SORT_ASC"
在正确的脚本中，例如以下：

. . . session.findById("wnd[0]").maximize session.findById("wnd[0]/tbar[0]/okcd").text = "/nymm_pricelist" session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/usr/ctxtS_MATNR-LOW").text = Cells(currentline, 1).Value session.findById("wnd[0]/usr/ctxtS_VKORG-LOW").text = Cells(currentline, 4).Value session.findById("wnd[0]/usr/ctxtS_VKORG-LOW").setFocus session.findById("wnd[0]/usr/ctxtS_VKORG-LOW").caretPosition = 4 session.findById("wnd[0]").sendVKey 8 set myGrid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell") 'myPar_1 = myGrid.getcellvalue (0 , "X") 'myPar_2 = myGrid.getcellvalue (0 , "Y") 'myPar_3 = myGrid.getcellvalue (0 , "Z") 'myPar_4 = myGrid.getcellvalue (0 , "U") 'myPar_5 = myGrid.getcellvalue (0 , "V") myPar_6 = myGrid.getcellvalue (0 , "GLOBALTRANSFER_KONWA")

对于字符串 X - V，要使用有效的列名。

此致，脚本人

Answer 2

脚本人的回答很有效。一开始没看懂的小伙伴：

您可以通过在 SAP 中指定文本位置来创建存储文本的变量。示例：

value = session.FindById("wnd[0]/usr/tblSAPL/ctxtAFVGD[4,0]").Text

这会将 SAP 文本保存到值变量中。

用简单的英语：

value =  session.FindById("wnd[0]/usr/TableElement/CellElement[x,y]").Text

' where
' wnd[0]/usr is your SAP window, starting with 0 for the first open window 
' TableElement and CellElement are the table and cell name, respectively
' x is column number
' y is row number
' By recording a SAP script and clicking around on the table you can figure out how the elements are named

从 SAP 获取特定单元数据到 excel

Getting specific cell data from SAP to excel

excel

sap

vba