Avalados por :
Prezados,
Saudações! Deixo aqui os passos de um pequeno exemplo sobre como importar do Excel usando a DI API através de uma simples macro.
1.- O primeiro passo é abrir uma planilha do Excel
2.- Em seguida, abrimos a janela de edição do Visual Basic que o Excel traz para programar macros
3.- Adicionamos as referências da DI API da SAP ao trabalho atual
4.- Inserimos o código, alteramos os parâmetros de conexão correspondentes ao seu servidor e executamos o 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
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute