Daten exportieren
13.12.2006 15:11:05
Stefan
Wie kann ich denn Daten aus Excel exportieren ? Ich müßte eine best. Range ( A1 bis C223) in ein Word-Dokument oder auch in PDF bringen.
Ein Makro für PDF habe ich gefunden - leider tut´s nicht so. es wird immer der Dialog von FreePDF XP angezeigt.
Dieses habe ich mir mal angesehen:
Sub PDF_erstellen()
Dim sPrinter As String
Dim NewDateiname As String
Dim NewPfad As String
NewDateiname = ActiveSheet.Range("CA6").Value
NewPfad = ActiveSheet.Range("CA7").Value
Application.ScreenUpdating = False
sPrinter = Application.ActivePrinter
Application.ActivePrinter = "FreePDF XP auf Ne01:"
Drucker = Application.ActivePrinter
prtcmd = NewPfad & NewDateiname
Application.SendKeys (prtcmd), True
Application.SendKeys "{ENTER}", True
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Drucker
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
'MsgBox "Datei " & prtcmd & " erstellt!"
End Sub
Alternativ würde auch eine Word-Datei gehen - aber wie mache ich das ?
Danke schon mal für Eure Hilfe & Gruß
Stefan
Anzeige