0

我有一个需要清除的查询。我正在使用 excel 2003。该表包含 12 列。我需要将数据从 excel 导出到 SAP。在导出之前我需要检查记录是否存在，如果存在则删除并插入。

我有两个BAPI，这个是导入表，需要填入参数，填完这个表后BAPI会搜索相关记录。

该列表将显示在表格中。我需要使用 excel 中的值搜索该表，然后将一个字段值导入 excel。

我编写了这段代码，但是 BAPI 提供的Error 0.

Public Function Import_Order() As Boolean

    Dim oBAPIGetOrder As Object
    Dim oBAPIVariant1 As Object
    Dim oBAPIVariant2 As Object
    Dim oBAPIVariant3 As Object
    Dim oBAPIImpOrder As Variant
    Dim oBAPIRet As Boolean
    Dim oDoNothing As Variant
    gBAPIPlanOrder = 0

    Set oBAPIGetPlOrder = sBAPIControl.Add("PLANED_GET_DET_LIST")   'BAPI
    Set oBAPIVariant1 = oBAPIGetPlOrder.exports.Item("SELECTIONCRITERIA")      'Internal table
    Set oBAPIVariant2 = oBAPIGetPlOrder.Tables.Item("DETAILEDLIST")            'Table

    oBAPIVariant1.Value("MATERIAL") = eMaterial
    oBAPIVariant1.Value("PLANT") = ePlnPlant

    lBAPIRet = oBAPIGetPlOrder.call
    If lBAPIRet Then
        'oBAPIImpOrder = oBAPIGetPlOrder.imports.Item("PLANNEDORDER_NUM")
        a = oBAPIVariant2.Rows.Count
        oBAPIImpOrder = oBAPIVariant2.Value("PLANNEDORDER_NUM")
        Import_PlannedOrder = True
    Else
        oBAPIImpOrder = 0
        Import_PlannedOrder = False
    End If

End Function

在此先感谢您的帮助...

4

1 回答 1

-3

请将调用函数语句 lBAPIRet = oBAPIGetPlOrder.call 直接放在 export 语句之后，表和 import 语句之前

于 2013-01-09T05:31:32.997 回答