点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

0

我正在尝试从表中获取表计数以及每个表中可用的列。 我需要使用表格名称，计数，字段名称在Excel工作表中获取此信息。 我已经生成了VBA脚本。 我没有太多访问SAP GUI的权限。 我运行 SE16 来获取表计数。 下面是生成的脚本。

很难一一进入表格并进行计数。 我们正在使用S4hana。

我正在寻找将表名作为文件传递给SAP GUI并将结果输出为包含"表名"，"计数"和"字段名"的文件的方法。

以下代码进行登录，运行 SE16 ，进入表 QPRS ，按Enter，然后按Ctrl + F7键以显示表的条目数， 并对接下来的表 TQ43 ， TQ43T ， TQ45 和 TQ45T 进行相同操作。

  IfNot IsObject（application）ThenSet SapGuiAuto = GetObject（" SAPGUI"）Set application = SapGuiAuto.GetScriptingEngine
 EndIfIfNot IsObject（connection）ThenSet连接= application.Children（0）EndIfIfNot IsObject（session）ThenSet session = connection.Children（0）EndIfIf IsObject（WScript）Then
     WScript.ConnectObject会话，"开启"
     WScript.ConnectObject应用程序，在" EndIf"上

 session.findById（" wnd [0]"）。maximize
 session.findById（" wnd [0]/usr/txtRSYST-MANDT"）。text =" 900"
 session.findById（" wnd [0]/usr/txtRSYST-BNAME"）。text =" 12345"
 session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。text =" *****"
 session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。setFocus
 session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。caretPosition = 12
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [0]/okcd"）。text ="/img/nse16"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/usr/ctxtDATABROWSE-TABLENAME"）。text =" QPRS"
 session.findById（" wnd [0]/usr/ctxtDATABROWSE-TABLENAME"）。caretPosition = 4
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [1]/btn [31]"）。按
 session.findById（" wnd [1]/tbar [0]/btn [0]"）。按
 session.findById（" wnd [0]/tbar [0]/okcd"）。text ="/img/nse16"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/usr/ctxtDATABROWSE-TABLENAME"）。text =" TQ43"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [1]/btn [31]"）。按
 session.findById（" wnd [1]/tbar [0]/btn [0]"）。按