Thema Datum  Von Nutzer Rating
Antwort
Rot Makro um ExcelBereiche in Powerpoint zu kopieren
01.06.2022 11:29:59 DerAnfänger
NotSolved
01.06.2022 18:11:35 ralf_b
NotSolved
03.06.2022 09:22:11 Gast31743
NotSolved
03.06.2022 16:39:19 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
DerAnfänger
Datum:
01.06.2022 11:29:59
Views:
112
Rating: Antwort:
  Ja
Thema:
Makro um ExcelBereiche in Powerpoint zu kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro um ExcelBereiche in Powerpoint zu kopieren
01.06.2022 11:29:59 DerAnfänger
NotSolved
01.06.2022 18:11:35 ralf_b
NotSolved
03.06.2022 09:22:11 Gast31743
NotSolved
03.06.2022 16:39:19 ralf_b
NotSolved