NAV Addin Intervallautomatisierung
17.08.2021 15:36:19
RHag
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
Beste Grüße