SAP 列 ID 到数组

大佬教程收集整理的这篇文章主要介绍了SAP 列 ID 到数组，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决SAP 列 ID 到数组？

我正在尝试获取 SAP 网格的列 ID。我可以从选定的单元格中获取列的名称。

    session.findByID("wnd[0]/usr/cntlGRID1/shellcont/shell").CurrentCellColumn

这将返回“AUFNR”，这是我为所选列寻找的 ID。 如何循环遍历其余列并将 ID 放入数组以用于数据提取

上面的完整代码。

Sub Get_Column_ID()
Set SapGuiauto = Getobject("SAPGUI")
Set SAPapp = SapGuiauto.GetScriptingEngine
Set SAPCon = SAPapp.Children(0)
Set session = SAPCon.Children(0)
MyGrID = "wnd[0]/usr/cntlGRID1/shellcont/shell"

Range("A1").Value = session.findByID(MyGrID).CurrentCellColumn



End Sub

解决方法

Sub Get_Column_ID() 
 Set SapGuiAuto = GetObject("SAPGUI")
 Set SAPapp = SapGuiAuto.GetScriptingEngine
 Set SAPCon = SAPapp.Children(0)
 Set session = SAPCon.Children(0)
 set myGrid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell")

 allRows = myGrid.RowCount - 1
 allCols = myGrid.ColumnCount - 1

 Dim columns As Object
 Set columns = myGrid.ColumnOrder

 For i = 0 To allCols
  myGrid.setCurrentCell 0,columns(i)
  ActiveSheet.Cells(1,i + 1).Value = myGrid.CurrentCellColumn
 Next

 For j = 0 To allRows
  For i = 0 To allCols
   ActiveSheet.Cells(j + 2,i + 1).Value = myGrid.GetCellValue(j,columns(i))
  Next
 Next

End Sub

大佬总结

以上是大佬教程为你收集整理的SAP 列 ID 到数组全部内容，希望文章能够帮你解决SAP 列 ID 到数组所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。