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

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

Stefan Schnell

我是普通用户

现在我正在使用getcellvalue方法捕获T代码（例如FBL5N）中的所有单元，以提高效率。

我正在使用的vba代码如下。

现在面临的问题是：

1.is 还有其他方法，例如getcolumnvalue可以提高效率

2当我使用下面的代码时，我在arr中发现从row76到row258，它们都是空的！table.rowcount应该是1000+。 我不知道为什么细胞中间丢失了？？

非常感谢您。

昏暗arr（）

设置SapGuiAuto = GetObject（" SAPGUI"）

设置SAP_applic = SapGuiAuto.GetScriptingEngine

设置连接= SAP_applic.Children（0）

设置会话= Connection.Children（0）

设置表= session.findById（" wnd [0]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell"）

tablerow = table.RowCount ReDim arr（1到tablerow，1到12）

对于i = -1到桌席-2

arr（i + 2，1）= table.GetcellValue（i，" BUKRS"）

arr（i + 2，2）= table.GetcellValue（i，" KONTO"）

arr（i + 2，3）= table.GetcellValue（i，" BELNR"）

arr（i + 2，4）= table.GetcellValue（i，" KONTO"）

arr（i + 2，5）= table.GetcellValue（i，" SGTXT"）

arr（i + 2，6）= table.GetcellValue（i，" U_BKTXT"）

arr（i + 2，7）= table.GetcellValue（i，" XBLNR"）

arr（i + 2，8）= table.GetcellValue（i，" BLDAT"）

arr（i + 2，9）= table.GetcellValue（i，" FAEDT"）

arr（i + 2，10）= table.GetcellValue（i，" WRSHB"）

arr（i + 2，11）= table.GetcellValue（i，" XBLNR"）

arr（i + 2，12）= table.GetcellValue（i，" WAERS"）

下一个

Range（Cells（1，1），Cells（tablerow，12））= arr

设置表格=什么

设置SapGuiAuto =否

设置SAP_applic = Nothing

设置连接=无

设置会话=无