PP-Dateien auswählen und speichern
01.08.2018 19:14:25
JuMa
Ich habe schon einige Anläufe und Möglichkeiten versucht, jedoch bin ich noch zu keiner funktionierenden Lösung gekommen.
Ich versuche Folgendes per Makro zu progammieren:
Durch Anklicken eines CommandButtons einer Userform soll der "Datei-Auswählen"-Dialog geöffnet werden. Die hier ausgewählte Datei soll anschließend unter vorgegebenem Namen in einem ebenfalls vorgegebenen Ordner gespeichert werden.
In der Exceldatei auf der die Userform, bzw. das Makro basiert, soll ein Link eingefügt werden, über den die gespeicherte Datei geöffnet werden kann.
Für Excel-Dateien habe ich das bereits programmiert und es funktioniert auch astrein. Die gleiche Funktionalität wird allerdings auch für andere Dateiformate (Powerpoint- und PDF-Dateien) benötigt. Und hier bin ich am verzweifeln.
Ich kann die Dateien zwar öffnen und auch den FileDialog zum Auswählen der Dateien anpassen, dass ich z.B: im Powerpoint-FileDialog bin, jedoch weiß ich nicht wie ich die Dateien dann zum speichern im Code auswählen, bzw. anschreiben kann :/
Über den folgenden Code habe ich die Fuktionalität für Excel-Dateien progammiert. Ich wäre euch mega dankbar wenn mir hier jemand helfen könnte oder mir sagen könnte, dass es nicht umsetzbar ist in vba. Dann könnte ich aufhören es verzweifelt zu versuchen ;)
Vielen lieben Dank euch schon mal! :)
Private Sub Excel_Click()
Dim Datei As String
Datei = Application.GetOpenFilename("Excel-Dateien(*.xlsx),*xlsx")
' wenn Abbruch --> keine Datei ausgewählt
If Datei = "Falsch" Then
Exit Sub
End If
Workbooks.Open Filename:=Datei
Application.Visible = False
' Speichern
Dim FName As String
FName = UserForm1.TextBox1.Text & " " & "_Anhang" & ".xlsx"
ActiveWorkbook.SaveCopyAs Filename:="D:..Pfad zum Speicherort.." & FName
ActiveWorkbook.Close
MsgBox "Anhängen der Datei erfolgreich", vbOKOnly
End Sub