|
#1
|
|||
|
|||
actualizar excel con datos de sap automaticamente
Hola a todos,
Les cuento que soy novato en sap, pero me manejo mucho en programacion vb macros excel etc, mi duda es la siguiente: En el trabajo me pidieron que mediante alguna funcion en macros excel, trajera informacion de sap automaticamente una vez al dia, del las transacciones son FBL1N y SCIV. Existe alguna manera de conectar excel con sap para que me traiga estos datos automaticamente?. Pido por favor a alguien que me oriente un poco en este tema, y si tienen alguna documentacion sobre esto estaria muy agradecido. Saludos a todos. |
#2
|
|||
|
|||
Alguien please que ayude a conectar excel y sap
Alguien tiene el código vba mediante macros en excel conectar con el SAP, para obtener reportes... gracias por su ayuda ...
|
#3
|
|||
|
|||
Te paso algo simple que esta en la web
Sub GetCLientes()
'Declaration Dim objBAPIControl As Object 'Function Control (Collective object) Dim sapConnection As Object 'Connection object Dim Total ' Assign. Set objBAPIControl = CreateObject("SAP.Functions") Set sapConnection = objBAPIControl.Connection 'Logon with initial values Credenciales de conexcion sapConnection.Client = "111" sapConnection.User = "DESADM" sapConnection.Password = "xxxxx" sapConnection.SystemNumber = 0 sapConnection.System = "DES" sapConnection.HostName = "serverxxx" sapConnection.Language = "ES" If sapConnection.logon(1, True) <> True Then MsgBox "No connection to R/3!" Exit Sub End If 'Prepare output to the EXCEL worksheet Worksheets(2).Select Cells.Clear Set objTableSAP = objBAPIControl.Add("ZCLIENTES") 'call the 1st BAPI to retrieve the list of clients' returnFunc = objTableSAP.Call If returnFunc = True Then Dim objTable As Object Set objTable = objTableSAP.Tables("ZCLIENTES") Total = objTable.RowCount ActiveSheet.Cells(1, 1) = "Cantidad :" & Total For i = 1 To Total ActiveSheet.Cells(2 + i, 1) = objTable.Cell(i, 1) ActiveSheet.Cells(2 + i, 2) = objTable.Cell(i, 2) ActiveSheet.Cells(2 + i, 3) = objTable.Cell(i, 3) ActiveSheet.Cells(2 + i, 4) = objTable.Cell(i, 4) ActiveSheet.Cells(2 + i, 5) = objTable.Cell(i, 5) ActiveSheet.Cells(2 + i, 6) = objTable.Cell(i, 6) ActiveSheet.Cells(2 + i, 7) = objTable.Cell(i, 7) Next i End If Columns("A:Z").EntireColumn.AutoFit 'Close connection to R/3 ! ' objBAPIControl.Connection.logoff ' 'Release the objects to free storage space ' Set sapConnection = Nothing Set functionCtrl = Nothing MsgBox "Program terminated!", 0, "Exit" End Sub |
#4
|
|||
|
|||
Que archivos .OCX debo registrar ya que me conecto con SAP desde una maquina virtual?
deseo usar el CreateObject("SAP.Functions"), pero me salta el siguiente #error <El componente activeX no puede crear el objeto>
Saludos y muchas gracias |
#5
|
|||
|
|||
Sap Gui
Por lo que yo he visto, en donde se ejecute la macro (equipo) debe tener instalado el SAP GUI, y dados de alta los servidores a los que se requiere el acceso.
Espero te funcione esta información. si alguien sabe como hacerlo si tener instalado el SAP GUI por favor compartalo. |
#6
|
||||
|
||||
actualizar excel con datos de sap automaticamente
Hola!
Y no es mejor crear el reporte directamente en sap y luego exportarlo a excel? Si son solamente datos de dos tablas con un QuickView lo tendrías que resolver! Sds, |
#7
|
|||
|
|||
Si lo que necesito es importar de la transaccion CS12 a excel como lo hago?
Estos 3 datos donde los puedo obtener: sapConnection.SystemNumber = 0 sapConnection.System = "DES" sapConnection.HostName = "serverxxx" Gracias! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|