Public ERP As Object
Public connect As Object
Public sapModule As Object
Public renturn As Object
Public tab As Object
Public Function Logon() As Boolean
If connect Is Nothing Then
Set ERP = CreateObject("SAP.Functions")
Set connect = ERP.Connection
connect.system = "システムID
connect.Applicationserver = "サーバ
connect.Client = "クライアント
connect.Language = "言語
connect.user = "ユーザID
connect.Password = "PASSWORD
connect.codepage = "codepage
If connect.Logon(0, True) <> True Then
Set connect = Nothing
Logon = False
Exit Function
End If
Else