BAPI Upload Excel to SAP R/3

Question

Hello,
i don't if this is the best place to put this topic, but here he goes.
I have a excel workbook and i have 3 buttons, one to connect remotely to Sap, one to download a table from a RFC function e another to upload data to another table in a rfc function.
The download is working well but the upload no. Here is the code:
DOWNLOAD(Working):
Private Sub DOWNLOAD_Click()
    On Error Resume Next
    ' The required BAPI
    Set objTable = Nothing
    Set objTeste = objBAPIControl.Add("ZPD_TESTE_EXCEL")
    If objTeste.Call Then
        Set objTable = objTeste.Tables("T_INTER")
        For i = 1 To objTable.RowCount
            ActiveSheet.Cells(8 + i, 1) = objTable.Cell(i, 1)
            ActiveSheet.Cells(8 + i, 2) = objTable.Cell(i, 2)
            ActiveSheet.Cells(8 + i, 3) = objTable.Cell(i, 3)
            ActiveSheet.Cells(8 + i, 3) = objTable.Cell(i, 4)
            ActiveSheet.Cells(8 + i, 3) = objTable.Cell(i, 5)
        Next i
    Else
        MsgBox "Erro a chamar a função."
    End If
' objTable.AppendGridData
End Sub
UPLOAD(Not working):
Private Sub UPLOAD_Click()
    On Error Resume Next
    ' The required BAPI
    Set objTable2 = Nothing
    Set objTeste2 = objBAPIControl.Add("ZPD_TESTE_EXCEL_UP")
    If objTeste2.Call Then
        Set objTable2 = objTeste2.Tables("T_INTER")
        For i = 1 To ActiveSheet.RowCount
            objTable2.Cell(i, 1) = ActiveSheet.Cells(8 + i, 1)
            objTable2.Cell(i, 2) = ActiveSheet.Cells(8 + i, 2)
            objTable2.Cell(i, 3) = ActiveSheet.Cells(8 + i, 3)
            objTable2.Cell(i, 4) = ActiveSheet.Cells(8 + i, 4)
            objTable2.Cell(i, 5) = ActiveSheet.Cells(8 + i, 5)
        Next i
    Else
        MsgBox "Erro a chamar a função."
    End If
End Sub

Answer 1

Hi Ricardo,
Have you looked this FM <b>ALSM_EXCEL_TO_INTERNAL_TABLE</b>?
Regards,
Ferry Lianto