Hallo,
ich möchte eine PDF aus einer Arbeitsmappe erzeugen lassen, die dann abgespeichert werden soll.
Der Code funktioniert, mit der Einschränkung, dass die PDF genau am Speicherpfad der bestehenden Arbeitsmappe abgelegt wird. Das Problem hierbei ist, dass in meinem Fall (ich nutze Office 365) immer nach meinen Zugangsdaten gefragt wird. Ich möchte den Pfad daher selbst auswählen können.
Leider fehlen mir hierzu jegliche Kenntnis.
Wer kann mir helfen, dass der Speicherpfad selbst gewählt werden kann?
Dim strFile As String
Dim oWs As Worksheet
If Len(ActiveWorkbook.Path) Then
strFile = ActiveWorkbook.FullName
strFile = Left(strFile, InStrRev(strFile, ".") - 1) & " Brief 1"
Set oWs = ActiveSheet
Sheets(Array("Brief 1 (G)", "Brief 1 (M)", "Brief 1 (E)")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile, OpenAfterPublish:=True
oWs.Select
End If
Herzlichen Dank!