Excel einzelnes Arbeitsblatt als PDF speichern
Hallo Gemeinde,
Ich möchte eine einzelnes Arbeitsblatt aus einer Mappe heraus als PDF speichern
ich habe ein kleines Problem und komme nicht dahinter, wo der Fehler liegt.
Folgender Code soll ausgeführt werden:
Sub edp2odp()
Dim A As Integer
A = MsgBox("Wollen Sie diese Aktion wirklich durchführen?", _
vbQuestion + vbYesNo, " EDP wird im Dropboxverzeichnis gespeichert ")
If A = vbNo Then Exit Sub
'EDP in neue Arbeitsmappe kopieren;speichern mit Dateinamen "box"
Dim box As String
box = Date & ("_ODP.pdf")
Sheets(Array("ODP")).Select
Sheets(Array("ODP")).Copy
Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:="C:\Users\Frank\Dropbox\ & box"
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
Wäre schön, wenn mich jemand in die richtige Richtung stoßen kann
LG Frank
Ich möchte eine einzelnes Arbeitsblatt aus einer Mappe heraus als PDF speichern
ich habe ein kleines Problem und komme nicht dahinter, wo der Fehler liegt.
Folgender Code soll ausgeführt werden:
Sub edp2odp()
Dim A As Integer
A = MsgBox("Wollen Sie diese Aktion wirklich durchführen?", _
vbQuestion + vbYesNo, " EDP wird im Dropboxverzeichnis gespeichert ")
If A = vbNo Then Exit Sub
'EDP in neue Arbeitsmappe kopieren;speichern mit Dateinamen "box"
Dim box As String
box = Date & ("_ODP.pdf")
Sheets(Array("ODP")).Select
Sheets(Array("ODP")).Copy
Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:="C:\Users\Frank\Dropbox\ & box"
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
Wäre schön, wenn mich jemand in die richtige Richtung stoßen kann
LG Frank
Please also mark the comments that contributed to the solution of the article
Content-Key: 279267
Url: https://administrator.de/contentid/279267
Printed on: April 24, 2024 at 15:04 o'clock
4 Comments
Latest comment
Moin,
Fehler ist hier:
Falsche Variablenverwendung ... das & box gehört nicht innerhalb von Anführungszeichen und außerdem solltest du das Datum sicher formatieren, denn auf englischen Systemen könnte dies als 07/05/2015 angezeigt werden und das würde zu einem Fehler führen weil Slashes in einem Dateinamen nicht vorkommen dürfen!
Gruß grexit
Fehler ist hier:
ActiveSheet.SaveAs Filename:="C:\Users\Frank\Dropbox\ & box"
Sub edp2odp()
Dim PATH As String, fso As Object
If MsgBox("Wollen Sie diese Aktion wirklich durchführen?", vbQuestion + vbYesNo, " EDP wird im Dropboxverzeichnis gespeichert ") = vbNo Then
Exit Sub
End If
PATH = "C:\Users\Frank\Dropbox\" & Format(Now(), "dd.mm.yyyy") & "_ODP.pdf"
On Error Resume Next
Kill "C:\Users\Frank\Dropbox\*_ODP.pdf"
On Error Goto 0
Application.DisplayAlerts = False
Sheets("ODP").ExportAsFixedFormat xlTypePDF, PATH
Application.DisplayAlerts = True
Set fso = Nothing
End Sub
Zitat von @FAAB58:
Da sich im Dropbox Verzeichnis immer nur diese eine Datei - sprich die aktuelle ohne Verlauf - befinden soll,
kann ich die zu ersetzende PDF dort auch einfach in der Routine löschen ? Das wäre das i-Tüppfelchen
Ist oben ergänzt.Da sich im Dropbox Verzeichnis immer nur diese eine Datei - sprich die aktuelle ohne Verlauf - befinden soll,
kann ich die zu ersetzende PDF dort auch einfach in der Routine löschen ? Das wäre das i-Tüppfelchen