Programar una macro para importar desde excel usando la DI API

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 edición 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 artículos

Saludos y espero les haya gustado.