SAP总结

1. 获取session(窗口)
Set SapGuiAuto = GetObject("SAPGUI")  'Get the SAP GUI Scripting object
Set SAPApp = SapGuiAuto.GetScriptingEngine 'Get the currently running SAP GUI
Set SAPCon = SAPApp.Children(0) 'Get the first system that is currently connected
Set session = SAPCon.Children(0) 'Get the first session (window) on that connection

2. 遍历当前excel表
For i = 2 To ActiveSheet.UsedRange.Rows.Count
    
'Exit For
Next i

3. 进入tcode
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nme22n"

4. 回车
session.findById("wnd[0]").sendVKey 0

5. 菜单/按钮/标签页
session.findById("wnd[0]/mbar/menu[3]/menu[7]").Select
session.findbyid("wnd[0]/tbar[1]/btn[21]").press
session.findbyid("wnd[0]/usr").FindByNameEx("TABHDT1", 91).Select

6. 字段
6.1 输入
session.findById("wnd[0]/usr/txtEINE-PEINH").Text = price_per
session.findbyid("wnd[0]/usr/tblSAPDV70ATC_NAST3/cmbNAST-NACHA[3,0]").Key = "1"

6.2 取值
price_per = session.findById("wnd[0]/usr/txtEINE-PEINH").Text

6.3 检测是否可编辑
If session.findbyid("wnd[0]/usr/tblSAPDV70ATC_NAST3/cmbNAST-NACHA[3,0]").changeable = True Then

8. 系统消息
8.1 消息类型：错误E,警告W,消息S
session.findById("wnd[0]/sbar").MessageType
8.2 消息文本
session.findById("wnd[0]/sbar").Text

9. 表格(SAPMV50ATC_LIPS_PICK 是表格名)
9.1 获取表格控件对象
set grid = session.findById("wnd[0]/usr").findByNameEx("SAPMV50ATC_LIPS_PICK", 80)

9.2 总行数
Total_items = session.findById("wnd[0]/usr").findByNameEx("SAPMV50ATC_LIPS_PICK", 80).VerticalScrollbar.Maximum + 1  '
If Total_items = 0 Then Total_items = 1

9.3 每屏(页)行数
PageSize = session.findById("wnd[0]/usr").findByNameEx("SAPMV50ATC_LIPS_PICK", 80).VerticalScrollbar.PageSize

9.4 翻页
For j = 1 To Total_items
	pageindex = (j - deleted_rows) Mod PageSize
	If pageindex = 1 Then
		If j > 1 Then session.findById("wnd[0]/tbar[0]/btn[82]").press   '点翻页按钮
		currentrow = 0
	Else
		currentrow = currentrow + 1
	End If
Next j	
	
9.5 竖向滚动条，需在输入当前行数据后回车并处理警告提示，否则系统自动滚回第0(1)行
Position = session.findbyid("wnd[0]/usr").FindByNameEx("SAPLMEGUITC_1211", 80).verticalScrollbar.Position
session.findbyid("wnd[0]/usr").FindByNameEx("SAPLMEGUITC_1211", 80).verticalScrollbar.Position = Position + 1

9.6 当前行(行号从0开始，录制时产生的[列，行],)
Set cur_row = session.findById("wnd[0]/usr").findByNameEx("SAPMV50ATC_LIPS_PICK", 80).Rows(行号)

9.7 当前格(i是列序号，从0开始，),
cell = cur_row(列序号)
可以取文本值 cell.Text，可以SetFocus等

9.8 报表类 如COOIS shell grid 遍历取数
Set grid = session.findById("wnd[0]/usr/cntlCUSTOM/shellcont/shell/shellcont/shell")
For i = 1 To grid.VisibleRowCount
   Cells(i, 1) = grid.getcellvalue(i - 1, "AUFNR")
   Cells(i, 2) = grid.getcellvalue(i - 1, "MATNR")
Next i

10. 弹窗
10.1 检测
session.ActiveWindow.Name = "wnd[1]"

10.2 提取显示的内容
session.ActiveWindow.PopupDialogText
另一种提取方法
If session.findbyid("wnd[1]").Text Like "Release*" Then 

10.3 关闭
session.findbyid("wnd[1]/").Close

11. 异常处理(试错法)
On Error Resume Next
   session.findById ("wnd[1]/usr/btnSPOP-VAROPTION1")
If Err.Number = 0 Then
	session.findById("wnd[1]/usr/btnSPOP-VAROPTION1").press
End If

12. 提取消息文本中的单据号
If InStr(Result, "has been saved") > 0 Then
	array1 = Split(Result, " ")
	Cells(i, 10) = array1(UBound(array1) - LBound(array1) - 3)     'extract delivery number from status text "FZ delivery 3333330 has been saved"
End If

13. 方法
Function 方法1(参数)
	方法1 = 111
End Function

14. 常见问题
14.1 处理非预期的弹窗与出错，警告，特别是表格行处理时，每一行输入数据后要按回车并处理可能出现的警告提示(回车)
14.2 动态屏幕，
14.3 表格字段的位置(列序号），用名称定位，MIGO，ME2N中每一行都因业务数据(K库存)不同，各列的序号也不一样
有多少个列就设多少个代表列序号的变量，用名称去匹配,需循环每行时都重新获取列序号

'Excel requires that the session number is an integer, so you can use the type conversion from Cint(). 
'Strange that this is advised/required even when SessionNumber is defined as an integer.
'替换下面的表名SAPLMIGOTV_GOITEM、字段名GOITEM-LOGLEVEL及字段名变量col_log_level
Set cur_row = session.findById("wnd[0]/usr").FindByNameEx("SAPLMIGOTV_GOITEM", 80).Rows(0)
col_count = 0 
For ii = 0 To cur_row.Count - 1     'get the col index due to different user settings
	col_count = col_count + 1		'默认找到了列
	If cur_row(ii + 0).Name = "GOITEM-LOGLEVEL" Then '+0 强制转整数以免出Bad index type for collection access
		col_log_level = ii + 0
	ElseIf cur_row(ii + 0).Name = "GOITEM-MAKTX" Then
		col_mat_desc = ii + 0
	Else
		col_count = col_count - 1		'没找到就不计数
	End If
	If col_count >= 2 Then	'全部找到就退出
		Exit For
	End If
Next ii
Set cur_row = Nothing

15. 调试
在弹出出错对话框，点debug按钮，进入代码调试界面，鼠标悬停可显示变量值，也可右键添观察变量，在底下窗口查看变量详情，
特别是对象变量的可用属性,在代码中可使用Debug.Print输出变量内容，在immediate窗口中查看变量输出

16. 常见出错
The method got an invalid argument
输入了字段不支持的值，如超过长度的文本，数值字段输入了文本，下拉选单输入了非选单值(内部只接受key值)

17. 如何动态选择物料主数据中的视图，完整代码请参考MM02那篇文章
        For ii = 0 To 18
                On Error Resume Next  'in case view not yet created/available for change
                    session.findById ("wnd[1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW-DYTXT[0," & CStr(ii) & "]")
                If Err.Number <> 0 Then Exit For
                If session.findById("wnd[1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW-DYTXT[0," & CStr(ii) & "]").Text = "General Plant Data / Storage 1" Then
                    session.findById("wnd[1]/usr/tblSAPLMGMMTC_VIEW").getAbsoluteRow(ii).Selected = True  'select Purchase Order Text view
                    Exit For
                End If
            Next ii