小编Sid*_*dvi的帖子

将特定单元格数据从 SAP GUI 获取到 Excel

我正在尝试使用 VBA 将 SAP GUI 中的一行中的特定单元格中的数据获取到 Excel 表中。当我录制一个单击我需要的 5-6 个项目的宏时,它只显示我单击了一个。此外,我看不到任何从单元格获取数据到 SAP GUI 的方法。SAP GUI 代码在这里:

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, …
Run Code Online (Sandbox Code Playgroud)

excel vba sap-gui

1
推荐指数
1
解决办法
2万
查看次数

标签 统计

excel ×1

sap-gui ×1

vba ×1