Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

pptx.Datei via VBA öffnen


Betrifft: pptx.Datei via VBA öffnen von: Marcus
Geschrieben am: 24.04.2017 17:31:01

Hallo zusammen,

ich nutze ein Makro und verschiedene xlsx.Dateien zentral zu öffnen.

Der Pfad setzt sich immer aus der Anpassung einer Inputbox zusammen. Für xlsx. Dateien funktioniet es auch super. Bei pptx. muss ich scheinbar noch Anpassungen machen, da immer ein Anwenungsfehler auftaucht. Kann mir hier jm helfen?

Sub Alte_WAPräsi_öffnen()
Dim Dateiname As String
Dateiname1 = InputBox("Jahr angeben! -> z.B.: 2017")
Dateiname2 = InputBox("Monat angeben! -> Für März: 03")
If Dateiname1 = "" Then Exit Sub
If Dir("S:Test\" & Dateiname1 & "Test\" & Dateiname1 & " " & Dateiname2 & " Test" & ".pptx") <>  _
"" Then
Workbooks.Open Filename:="S:Test\" & Dateiname1 & "Test\" & Dateiname1 & " " & Dateiname2 & "  _
Test" & ".pptx"
Else
MsgBox "Datei nicht vorhanden", vbInformation, "Fehler..."
End If
End Sub
Viele Grüße

  

Betrifft: AW: pptx.Datei via VBA öffnen von: Nepumuk
Geschrieben am: 24.04.2017 17:40:16

Hallo,

ein Beispiel wie das geht:

Option Explicit

Public Sub Test()
    Dim objPowerPoint As Object
    Set objPowerPoint = CreateObject(Class:="PowerPoint.Application")
    objPowerPoint.Visible = True
    Call objPowerPoint.Presentations.Open(Filename:="G:\Eigene Dateien\Eigene Präsentationen\Test.pptx")
    Set objPowerPoint = Nothing
End Sub

Gruß
Nepumuk


  

Betrifft: AW: pptx.Datei via VBA öffnen von: Luschi
Geschrieben am: 24.04.2017 17:40:43

Hallo Marcus,

1. Fehler: If Dir("S:Test\"... statt If Dir("S:\Test\"...
2. Problem: InputBox(...) ist Asche, wenn es um Dateinamen in bestimmten Ordnern geht;
   dafür gibt es doch Datei-Öffnen-Dialoge
   z.B: Application.GetOpenFilename(...)

Gruß von Luschi
aus klein-Paris



  

Betrifft: AW: pptx.Datei via VBA öffnen von: Marcus
Geschrieben am: 26.04.2017 12:18:55

Danke für den Hinweis. Funkioniert jetzt super!!


Beiträge aus den Excel-Beispielen zum Thema "pptx.Datei via VBA öffnen"