Daten-Aktualisierung mehrerer Excel-Duko

Hallo,
ich habe folgendes Problem:
In einem Ordner befinden sich mehrere Excel-Dokumente, welche alle per Abfrage (Power Query) Daten abrufen. Jedes Excel Dokument steht für ein Projekt. Kurz gesagt, die Anzahl der Excel-Dokumente variiert in meinem Ordner.
Im Moment sind es 30 Dateien. Ich möchte nun, wenn es irgendwie geht, z.B. per VBA mit einem Knopfdruck alle Dateien öffnen - dann die Abfrage aktualisieren - und wieder schließen und speichern.
Da ich mich mit VBA nicht auskenne, fällt mir nur ein Weg mittels Makro-Aufzeichnung ein. Ich müsste dann natürlich, wenn Projekte beendet sind, diese aus dem Makro rausnehmen und neue Projektdateien einpflegen.
Hier nun die Frage in die Runde der Fachleute, hat jemand eine bessere Idee?
Viele Grüße
Ronald

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Worksheets("Dateiverzeichnis") Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _ Rows.Count) + 1 ' Dateien auslesen ' Dateiname schreiben If Chk_Datei_schreiben Or Chk_Hyperlink Then ChDir "Z:\HDFB GmbH" Workbooks.Open FileName:= _ "Z:\HDFB GmbH\700000 - Uni Kita HGW Rohbau - Kostenstellenstand - v05.xlsx" ActiveWorkbook.RefreshAll Sheets("Auswertung-Std").Select Range("A3").Select ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh Sheets("Übersicht").Select ActiveWorkbook.Save ActiveWindow.Close Next FI If StTyp = "*" And Chk_Datei = True Then With .Cells(Loletzte - 1, 6) .Formula = "=SUM(D" & LoJ & ":D" & Loletzte - 1 & ")" .NumberFormat = "#,##0" End With End If Else

Hallo Ronald,
eine leere Mappe mit meinem Makro habe ich nicht gebraucht.
Mir ist aber noch etwas eingefallen. Teste mal:

Option Explicit

Private lastrFiles() As String
Private lialngIndex As Long
Private lobjWorkbook As Workbook

Public Sub UpdateFiles()

    Const FOLDER_PATH As String = "Z:\HDFB GmbH\"

    Dim strFilename As String
    Dim ialngIndex As Long

    Application.ScreenUpdating = False

    Erase lastrFiles
    lialngIndex = 0
    Set lobjWorkbook = Nothing

    strFilename = Dir$(FOLDER_PATH & "*.xlsx")

    Do Until strFilename = vbNullString

        Redim Preserve lastrFiles(ialngIndex)

        lastrFiles(ialngIndex) = FOLDER_PATH & strFilename

        strFilename = Dir$

    Loop

    Call OpenWorkbook

    Application.ScreenUpdating = True

End Sub

Private Sub OpenWorkbook()
    If lialngIndex <= UBound(lastrFiles) Then
        Set lobjWorkbook = Workbooks.Open(Filename:=lastrFiles(lialngIndex), UpdateLinks:=3)
        Call RefreshLinks
    Else
        Call MsgBox("Fertig.", vbInformation, "Information")
    End If
End Sub

Private Sub RefreshLinks()
    Call Application.OnTime(EarliestTime:=Now + TimeSerial(0, 0, 3), Procedure:="RefreshPivot", Schedule:=True)
    Call lobjWorkbook.RefreshAll
End Sub

Private Sub RefreshPivot()
    Call Application.OnTime(EarliestTime:=Now + TimeSerial(0, 0, 3), Procedure:="CloseWorkbook", Schedule:=True)
    Call lobjWorkbook.Worksheets("Auswertung-Std").PivotTables("PivotTable1").PivotCache.Refresh
End Sub

Private Sub CloseWorkbook()
    Call lobjWorkbook.Close(SaveChanges:=True)
    Set lobjWorkbook = Nothing
    lialngIndex = lialngIndex + 1
    Call OpenWorkbook
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Daten-Aktualisierung mehrerer Excel-Duko

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread