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

imagen1

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

imagen2

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

imagen3

imagen4

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

imagen5

Saludos y espero les haya gustado.

También te podría gustar...

49 Respuestas

  1. kizi4 dice:

    I read this post completely regarding the comparison of most recent and
    preceding technologies, it’s remarkable article.

  2. fails dice:

    bookmarked!!, I love your blog!

  3. Casey dice:

    In the meantime you possibly can watch a group of streamers testing out the sport’s new island map and Battle Pass
    on DrLupo’s Twitch channel.

  4. Hi there, yup this paragraph is in fact nice and I have learned lot of things from it on the topic
    of blogging. thanks.

  5. Hi there mates, its impressive article concerning educationand fully explained,
    keep it up all the time.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *