Hallöchen,
ich habe eine kurze Frage:
Ich habe ein Modul das zum Speichern in das PDF Format verwendet wird. Nun wollte ich das so erweitern, dass alle Tabellenblätter davon erfasst werden.
Gefunden habe ich dazu folgende ungetestete Idee und meine daraus resultierende Frage:
Kann ich das xyz umformen in ein "erkenne alle Blätter" ?
Freue mich über eine Rückmeldung.
Spoiler anzeigen
ich habe eine kurze Frage:
Ich habe ein Modul das zum Speichern in das PDF Format verwendet wird. Nun wollte ich das so erweitern, dass alle Tabellenblätter davon erfasst werden.
Gefunden habe ich dazu folgende ungetestete Idee und meine daraus resultierende Frage:
Kann ich das xyz umformen in ein "erkenne alle Blätter" ?
Freue mich über eine Rückmeldung.
VB.NET-Quellcode
- Option Explicit
- Sub PDF_AutoSave()
- Dim Dateiname As String, Speicherort As String, Sicherheitsabfrage As Long, Vorhanden As String, Name As String
- Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
- Dateiname = Name & ".pdf"
- Speicherort = Application.ActiveWorkbook.Path & "\" & Dateiname
- Sicherheitsabfrage = MsgBox("Möchtest du das Dokument jetzt abspeichern?", vbYesNo)
- Vorhanden = Dir(Speicherort)
- Select Case Sicherheitsabfrage 'Erste Abfrage: Speichern
- Case vbYes
- If Len(Vorhanden) <> 0 Then 'Prüfen: Datei ist noch nicht vorhanden
- If MsgBox("Möchtest du das Dokument wirklich überschreiben?", vbYesNo) = vbYes Then 'Zweite Abfrage: Überschreiben
- ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, Quality:=xlQualityStandard, _
- IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=False
- End If
- Else 'Prüfen: Datei ist schon vorhanden
- ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, Quality:=xlQualityStandard, _
- IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=False
- End If
- Case vbNo
- Exit Sub
- End Select
- End Sub