MS Query Abruf mit Makro
Markus
Über folgende Thematik stolpere ich seit vielen Stunden. Nachstehendes Makro habe ich mit dem Recorder aufgezeichnet. Allerdings scheint der Recorder keine Abrufe mittels Query aus der AS400 aufzuzeichnen. Da ich von VBA keine Ahnung habe benötige ich eure Hilfe. Kann mir jemand einen Tipp geben, wie die Aktualisierung der Daten mit einem Makro möglich ist?
Mit diesem Makro werden die Daten mittels MS-Query aus der AS400 aktualisiert
Sheets("Diagramm_Pressenkapa.").Select
Sheets("PressKapa_Pivot").Visible = True
Range("A7").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveWorkbook.Save
Sheets("PressKapa_Pivot").Select
ActiveWindow.SelectedSheets.Visible = False
Application.Goto Reference:="Diagramm_Pressenkapa.!R[-62]C[-3]"
Range("I1").Select
ActiveWorkbook.Save
Vielen Dank im Voraus
Gruß Markus