【VBA】RFC_READ_TABLE(SAP连携)

Public SAP As Object                                                    

'---------------------------------------------------------------*
' Sap_Logon
'---------------------------------------------------------------*
Function Sap_Logon() As Boolean
    
    Sap_Logon = True                                                    
    Set SAP = CreateObject("SAP.Functions")
  
    With SAP.Connection
        .Applicationserver = Cell_Server                                'xx.xx.xxx.xxx
        .SystemNumber = "00"                                            '00
        .client = Cell_Client                                           '100
        .USER = Cell_User                                               'xxxx
        .PASSWORD = Cell_Password                                       'xxxxxx
        .Language = Cell_Language                                       'JA
        .