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
|