PDF Datei erzeugen (anstatt .xls)
24.08.2013 10:55:03
Stefan
ich bin im Bereich VBA leider etwas unerfahren, möchte aber gerne folgendes Problem lösen und bin von daher auf eure Hilfe angewiesen.
Mit folgendem Code wird bei uns eine Excel-Tabelle exportiert und in einem bestimmten Ordner gespeichert. Ist es durch eine Änderung möglich, dass zukünftig nicht mehr im .xls sondern im .pdf Format gespeichert wird? Wäre klasse, wenn ihr mir helfen könnt.
Sub Ratenblatt_exportieren()
Dim strVorgabeDateipfadAuflistung As String
Dim strVorgabeDateinameAuflistung As String
Dim strExcelFilter As String
Dim strSpeicherort As String
Dim strDateiname As String
strVorgabeDateipfadAuflistung = Range("Parameter_Speicherort_Auflistung")
strVorgabeDateinameAuflistung = Range("Rechner_Auflistung") & " - " & Date & " - " & Range(" _
Kunde") & ".xls"
strExcelFilter = "Microsoft Office Excel-Arbeitsmappe(*.xls), *.xls"
strSpeicherort = strVorgabeDateipfadAuflistung & "\" & strVorgabeDateinameAuflistung
Sheets("Auflistungsblatt").Select
Sheets("Auflistungsblatt").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
strDateiname = Application.GetSaveAsFilename(strSpeicherort, strExcelFilter)
Application.DisplayAlerts = False
If strDateiname "Falsch" Then
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlWorkbookNormal
Else
ActiveWindow.Close SaveChanges:=False
Application.DisplayAlerts = True
End
End If
Application.DisplayAlerts = True
End Sub
Vielen Dank.
Gruß Stefan
Anzeige