Programar una macro para importar desde excel usando la DI API

[felipe_loyolarodriguez]

Estimados,

Junto con saludar les dejo los pasos de un pequeño ejemplo sobre como importar desde excel usando la DI API mediante una simple macro.

1.- El primer paso consiste en abrir una hoja de calculo excel

2.- Luego abrimos la ventana de edicion de visual basic que trae excel para programar macros

3.- Agregamos las referencias de la DI API  de SAP al trabajo actual

4.- Insertamos el código, cambian los parámetros de conexión que corresponden a su servidor y ejecutan el código

Public Sub Imp_Items()

    Dim oCompany As SAPbobsCOM.Company

    Dim lRetCode, ErrorCode As Long

    Dim ErrorMessage As String

    Set oCompany = New SAPbobsCOM.Company

    oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2008

    oCompany.DbUserName = "sa"

    oCompany.DbPassword = "********"

    oCompany.Server = "localhost"

    oCompany.CompanyDB = "SBODemoCL"

    oCompany.UserName = "manager"

    oCompany.Password = "manager"

    oCompany.UseTrusted = False

    lRetCode = oCompany.Connect()

    Dim Retval As Long

    Dim vItem As SAPbobsCOM.Items

    Set vItem = oCompany.GetBusinessObject(oItems)

    Row = 2

    Do While ActiveSheet.Cells(Row, 1) <> ""

        vItem.ItemCode = ActiveSheet.Cells(Row, 1)

        vItem.ItemName = ActiveSheet.Cells(Row, 2)

        If vItem.ItemCode <> "" Then

            Retval = vItem.Add

        End If

    Row = Row + 1

    Loop

    oCompany.Disconnect

End Sub

Luego en SAP buscamos los articulos

Saludos y espero les haya gustado.

Felipe