Заполнение параметра таблицы импорта BAPI в EXCEL с использованием VBA

У меня есть запрос для меня, который требует очистки. Я использую 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

Заранее благодарю за любую помощь...

1 ответ

Пожалуйста, поместите оператор вызова функции lBAPIRet = oBAPIGetPlOrder.call после непосредственно оператора экспорта и перед таблицами и importtatements

Другие вопросы по тегам