Intervallaktualisierung eines NAV Excel Addins

Hallo werte Com,

wir nutzen das COM Addin „Microsoft Dynamics NAV Add-in“. Exportierte Daten können hiermit durch einen Button „refreshed“ werden.

Ich bin VBA seitig nicht sonderlich bewandert, daher wende ich mich an Euch.

Ich benötige ein Skript wo das Addin bzw der Refresh Button im Intervall automatisiert ausgelöst wird.

Wenn ich den Vorgang aufzeichne, kommt für mich leider nichts Verständliches bei rum.

Sub Makro1()

'

' Makro1 Makro

'

'

    ActiveWorkbook.Names("ConnectionInfo").Delete

    ActiveWorkbook.Names.Add Name:="ConnectionInfo", RefersToR1C1:= _

        "=Sheet1!R1C1:R1C11"

    ActiveWorkbook.Names("ObjectInfo").Delete

    ActiveWorkbook.Names.Add Name:="ObjectInfo", RefersToR1C1:= _

        "=Sheet1!R2C1:R2C11"

    ActiveWorkbook.Names("ConnectionInfo").Delete

    ActiveWorkbook.Names.Add Name:="ConnectionInfo", RefersToR1C1:= _

        "=Sheet1!R1C1:R1C11"

    ActiveWorkbook.Names("ObjectInfo").Delete

    ActiveWorkbook.Names.Add Name:="ObjectInfo", RefersToR1C1:= _

        "=Sheet1!R2C1:R2C11"

    With ActiveWorkbook.Worksheets("Sheet1").ListObjects("NavDataRegion").Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    ActiveSheet.ListObjects("NavDataRegion").AutoFilter.ApplyFilter

    Selection.AutoFilter

    ActiveSheet.ListObjects("NavDataRegion").Resize Range("$A$3:$K$5")

    Range("I13").Select

    Selection.ListObject.ListRows(1).Delete

    Selection.AutoFilter

End Sub

Sollte der Speicherort des Makros hilfreich sein: C:\Program Files (x86)\Microsoft Dynamics NAV\90\RoleTailored Client\Microsoft.Dynamics.Nav.ExcelAddIn.vsto|vstolocal

Beste Grüße

Robert