Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel vba Code 2: Afo aktivieren, deaktivieren und Daten aktualisieren

11.02.2019 (👁770)

Excel vba Code: Afo aktivieren, deaktivieren und Daten aktualisieren

Vba Code zum anschalten und ausschalten der Afo in Excel

File://C:\Program Files (x86)\SAP BusinessObjects\Office Addin\SapExcelAddin.vsto|vstolocal

Option Explicit

'***********< SAP >****************

'*Fehlerbehebung SAP nach SAPExecuteCommand:

'*Die Ausführung des Codes wurde unterbrochen

'*Behebung auf vba Codeseite: Strg+Pause, Strg+Pause, F5

'*behebt das Fehlerverhalten. Scheint ein Bug in vba zu sein

Public Sub SAP_Afo_An_Daten_aktualisieren()

    SAP_Analysis_aktivieren

    SAP_Daten_aktualisieren

End Sub

Public Sub SAP_Afo_AnAus_Daten_aktualisieren()

    SAP_Analysis_aktivieren

    SAP_Daten_aktualisieren

    SAP_Analysis_deaktivieren

End Sub

  

Public Sub SAP_Analysis_aktivieren()

    '------------< SAP_Analysis_aktivieren() >------------

    '*Suche COM-Addin=Analysis und aktiviere mit Connect=true

    Application.StatusBar = "suche Afo.."

   

    Dim addin As COMAddIn

    For Each addin In Application.COMAddIns

        Dim sAddin As String

        sAddin = addin.Description

        If sAddin = "Analysis" Then

            '< anschalten >

            Application.StatusBar = Now & " Afo wird aktiviert.."

            addin.Connect = True

            Application.StatusBar = Now & " Afo ist aktiviert."

            Exit Sub    'abbruch

            '</ anschalten >

        End If

    Next

   

    MsgBox "Afo Addin wurde nicht gefunden", vbInformation, "AfO check"

    Application.StatusBar = Now & " Afo Addin nicht gefunden."

    '------------</ SAP_Analysis_aktivieren() >------------

End Sub

Public Sub SAP_Analysis_deaktivieren()

    '------------< SAP_Analysis_deaktivieren() >------------

    '*Suche COM-Addin=Analysis und aktiviere mit Connect=true

    Dim addin As COMAddIn

    For Each addin In Application.COMAddIns

        Dim sAddin As String

        sAddin = addin.Description

        If sAddin = "Analysis" Then

            Application.StatusBar = Now & " Afo wird deaktiviert.."

           

            '< anschalten >

            addin.Connect = False

            Application.StatusBar = Now & " Afo wurde deaktiviert"

            Exit Sub    'abbruch

            '</ anschalten >

        End If

    Next

   

    MsgBox "Afo Addin wurde nicht gefunden", vbInformation, "AfO check"

    Application.StatusBar = Now & " Afo Addin nicht gefunden."

    '------------</ SAP_Analysis_deaktivieren() >------------

End Sub

Public Sub SAP_Daten_aktualisieren()

    '------------< SAP_Daten_aktualisieren() >------------

   

    Application.StatusBar = Now & " Daten auf Afo-Blättern werden aktualisiert.."

    DoEvents

   

    Dim sap_Result  As Long

    sap_Result = Application.Run("SAPExecuteCommand", "Refresh")  ', "All"

   

    If sap_Result <> 0 Then

        Application.StatusBar = Now & " Problem beim Aktualisieren der SAP Daten "

        MsgBox "Fehler beim Aktualisieren der SAP Daten. SAPCode= " & sap_Result, vbCritical

    Else

        Application.StatusBar = Now & " Fertig: SAP Daten wurden erfolgreich aktualisiert "

    End If

    '------------</ SAP_Daten_aktualisieren() >------------

End Sub