0

クリアする必要がある質問があります。Excel 2003 を使用しています。シートには 12 列が含まれています。ExcelからSAPにデータをエクスポートする必要があります。エクスポートする前に、レコードが存在するかどうかを確認する必要があります。存在する場合は、削除して挿入します。

これには 2 つの BAPI があります。これはパラメーターを入力する必要があるインポート テーブルです。このテーブルに入力した後、BAPI は関連するレコードを検索します。

リストが表に表示されます。そのテーブルを Excel の値で検索し、1 つのフィールド値を 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

call function ステートメント lBAPIRet = oBAPIGetPlOrder.call を exports ステートメントの直後、tables および import ステートメントの前に配置してください。

于 2013-01-09T05:31:32.997 に答える