SAP之RFC_READ_TABLE

RFC_READ_TABLE 是SAP系统自带的RFC函数，用于读取SAP数据库表的结构和数据。使用方法如下：

IMPORTING
QUERY_TABLE：读取的表名
DELIMITER：输出字段（DATA参数）之间的分隔符
NO_DATA：输入’X’时，不向传出表DATA输出数据
ROWSKIP：输出的第一条数据的行号(从0开始)
ROWCOUNT：从ROWSKIP开始，一共输出的数据行数(0代表所有数据)

TABLE
OPTIONS：表查询条件，比如SKA1表，KTOPL = 'Z900’表示查收Z900账目表的会计科目数据，留空 代表所有数据。
FIELDS：输出的表字段，留空代表输出所有字段。
DATA：输出的数据记录。

假设我们要读取 Z900 账目表有所有会计科目，只需要输出 KTOPL (账目表)和 SAKNR (会计科目)两个字段
------------------------------------------------

Public Sub Read_Table_SKA1()
Dim functions As SAPFunctionsOCX.SAPFunctions
Dim options As SAPTableFactoryCtrl.Table
Dim fields As SAPTableFactoryCtrl.Table
Dim data As SAPTableFactoryCtrl.Table

Call Logon

Set functions = New SAPFunctions
Set functions.Connection = sapConnection

Dim fm As SAPFunctionsOCX.Function
Set fm = functions.Add("RFC_READ_TABLE")

fm.Exports("QUERY_TABLE").Value = "SKA1" ' 要查询的表
fm.Exports("DELIMITER").Value = "," ' Data表要存储的数据以逗号分割

Set options = fm.Tables("OPTIONS")
Set fields = fm.Tables("FIELDS")
Set data = fm.Tables("DATA")

' 以下是表参数填充的方法
' options表参数限定要选择的数据
options.FreeTable
options.AppendRow
options(1, "TEXT") = " KTOPL = 'Z900' " '第一行列名为TEXT的列增加选择条件

' fields表参数限定要输出的列，如果不限定
' 默认输出所有列
' 我只想输出KTOPL和SAKNR两列
fields.FreeTable
fields.AppendRow
fields(1, "FIELDNAME") = "KTOPL"

fields.AppendRow
fields(2, "FIELDNAME") = "SAKNR"

fm.Call
' 如果有Exception , 说明有错误产生
If fm.Exception <> "" Then
Debug.Print fm.Exception
Exit Sub
End If

' 将DATA输出到立即窗口
Dim row As SAPTableFactoryCtrl.row
Dim col As SAPTableFactoryCtrl.Column

' 按行读取，DATA表只有一列
For Each row In data.Rows
Debug.Print row.Value("WA")
Next

Call Logoff
End Sub

------------------------------------------------

表填充的方法：
填充第一行第一列: sometable(1, 1) = “XXX”
或者根据列名：sometable(1, “FIELDNAME”) = “XXX”
因为table有一个RowCount属性，我们总是可以将RowCount用于代码中，增加灵活性。比如上面的代码可以写成：
------------------------------------------------

fields.FreeTable
fields.AppendRow
fields(fields.RowCount, "FIELDNAME") = "KTOPL"

fields.AppendRow
fields(fields.RowCount, "FIELDNAME") = "SAKNR"

------------------------------------------------

文章来源：https://blog.csdn.net/stone0823/article/details/50329257