Hallo zusammen,

Ich erklär kurz mal die Situation:

1) Ich habe einen Ordner auf den ich zugreifen will.

2) Dieser Ordner beinhaltet mehrere Ordner und in diese sind Excel-Dateien unterteilt.

3) Ich will nun einen Button in Powerpoint, der aus den Excel-Dateien Reihenweise einen bestimmten Bereich kopiert und auf eine neue Folie in Powerpoint kopiert. Der Button ist sozusagen eine Aktualisierung der Datei

Bis jetzt habe ich folgenden Code, der leider nur aus einem bestimmten Ordner die Exceln durchgeht aber nicht in die unterteilten Ordner und die Excel-Dateien dort rausnimmt. Und das mit dem copy paste hat einmal geklappt aber seitdem funktioniert es leider aus welchem Grund auch nicht mehr.

Danke schonmal!

Private Sub CommandButton1_Click()

 Const FOLDER_PATH As String = "FileXX"
 
    Dim objSlide As Slide, objLayout As CustomLayout
    Dim objExcel As Object, objWorkbook As Object
    Dim lngIndex As Long
    Dim strFilename As String

    Set objExcel = CreateObject(Class:="Excel.Application")

    lngIndex = 1

    Set objLayout = ActivePresentation.Slides(lngIndex).CustomLayout

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

    Do Until strFilename = vbNullString

        lngIndex = lngIndex + 1

        Set objWorkbook = objExcel.Workbooks.Open(FileName:=FOLDER_PATH & strFilename)

        Call objWorkbook.Worksheets("Sheet1").Range("D5:Q28").Copy

        Set objSlide = ActivePresentation.Slides.AddSlide(lngIndex, objLayout)

        Call objSlide.Shapes.Paste

        Call objWorkbook.Close(SaveChanges:=False)

        strFilename = Dir$

    Loop

    Call objExcel.Quit

    Set objSlide = Nothing
    Set objLayout = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing

End Sub