Conexión Excel-SAP

Report en Excel que usa una RFC para capturar la información de SAP. Esto se consigue con VBA (Visual Basic para Aplicaciones)  de Excel y ABAP para crear la función RFC.

 

Aquí os pongo un ejemplillo de cómo se ha hecho la conexión Excel-SAP, por si sirve de algo en un futuro o por si hay alguien aburrido sin asignación y quiere curiosear un poco… Con esto se puede deducir que aparte de hacerlo con VBA de Excel, se puede hacer lo mismo con VBA Word/Access, Visual Basic 6, VBScript en alguna pagina web, etc.

 

SAP

Crear una funcion RFC que tenga de entrada PI_CODIGO, de tablas PT_TABLA y PT_OUTPUT.

 

Microsoft Excel:

 

Tools / Macro / Visual Basic Editor

 

Visual Basic Editor:

 

Insert / Module

 

Creáis una subrutina (por ej. Conectar) con el siguiente código. Esto luego se lo asignáis a un botón como los macros.

 

Sub Conectar()

 

‘************************************************************************

‘ Declaración de datos

‘************************************************************************

 

‘ Conectores a SAP.Functions.

Dim R3 As Object

Dim MyFunc As Object

 

‘ Parametros para exportar a la función RFC

Dim PI_CODIGO As Object

 

‘ Tablas para exportar a la función RFC

Dim PT_TABLA As Object

 

‘ Tablas para importar de la función RFC

Dim PT_OUTPUT As Object

 

‘ Resultado de la conexión con SAP

Dim Result As Boolean

 

‘ Otras variables

Dim iRow, iRowAux As Integer

 

‘************************************************************************

‘ Flujo de proceso

‘************************************************************************

 

‘ Establecer la conexión con los SAP add-ins

Set R3 = CreateObject(“SAP.Functions”)

 

‘ Ejecutar la función RFC en modo visible (te saldrá el popup de SAP GUI para poner usuario y contraseña

If R3.Connection.logon(0, False) <> True Then

    MsgBox(“Error conectando al sistema”)

    End

Else

       

‘   Indicar la función RFC

    Set MyFunc = R3.Add(“ZFUNCION_RFC”)

 

 

‘   Cargar parametros a ser enviados a la RFC – EXPORTING

    Set PI_CODIGO = MyFunc.exports(“PI_CODIGO”)

    PI_CODIGO.Value = Range(“A1″).Value

 

‘   Cargar tablas a ser enviadas a la RFC – TABLES

    Set PT_ TABLA = MyFunc.Tables(“PT_ TABLA “)

    PT_ TABLA.Rows.Add

    PT_ TABLA.Value(1, “CAMPO1″) = Range(“B1″).Value

    PT_ TABLA.Value(1, “CAMPO2″) = Range(“B2″).Value

    PT_ TABLA.Value(2, “CAMPO1″) = Range(“C1″).Value

    PT_ TABLA.Value(2, ” CAMPO2″) = Range(“C2″).Value

 

‘   Llamar a la función RFC y guardar el resultado

    Result = MyFunc.CALL

 

    If Result = False Then

        MsgBox (“Error llamando a la función”)

    Else

‘       Recuperar las tablas de salida – TABLES

        Set PT_OUTPUT = MyFunc.Tables(“PT_OUTPUT”)

 

        For iRow = 1 To PT_OUTPUT.RowCount

           

            Range(“F” & iRowAux).Value = PT_OUTPUT(iRow, “VALOR1″)

            Range(“F” & iRowAux).Value = PT_OUTPUT(iRow, “VALOR2″)

            Range(“F” & iRowAux).Value = PT_OUTPUT(iRow, “VALOR3″)

     

        Next

 

‘       Salir del sistema SAP

        R3.Connection.logoff

 

    End If   

 

End If

 

End Sub.