Herbers Excel-Forum - das Archiv

Daten exportieren

Bild

Betrifft: Daten exportieren
von: Stefan

Geschrieben am: 13.12.2006 15:11:05
Hallo auch an alle.
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
Bild

Betrifft: AW: Daten exportieren
von: metman
Geschrieben am: 13.12.2006 15:37:48
Würde mich auch mal interessieren weil ich grad an einem Programm arbeite das später die gleiche funktion besitzen soll.
gruß
Bild

Betrifft: Tabelle nach Word exportieren
von: Reinhard

Geschrieben am: 13.12.2006 17:01:49
Hi Stefan,
schau mal hier:
http://mypage.bluewin.ch/reprobst/WordFAQ/Tabellen.htm#Tabellen22
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Bild

Betrifft: AW: Tabelle nach Word exportieren
von: Stefan

Geschrieben am: 14.12.2006 09:01:02
Hallo Reinhard.
Also ich hab das mal soweit durchgemacht. Allerdings läuft das Makro dann auf einen Fehler.
Pfad / Bereich habe ich benannt, die DAO aktiviert.
Löse ich das Makro aus erscheint aber:
Objekterstellung durch Active-X Komponente nicht möglich.
Dann wird auf diesen Eintrag verwiesen:
Set db = OpenDatabase(Pfad, False, True, "Excel 8.0;")
Was tun ? Wäre ein klasse Lösung echt.
Danke schon mal & grüße
Stefan
Bild

Betrifft: AW: Tabelle nach Word exportieren
von: Reinhard
Geschrieben am: 14.12.2006 20:02:58
Hi Stefan,
suche mal in Herberrecherche nach
Word
Gruß
Reinhard
 Bild
Excel-Beispiele zum Thema "Daten exportieren"
Diagramm exportieren und in Tabellenblatt importieren Druckbereiche als GIF-Grafiken exportieren
Module und UserForms einer zu öffnenden Arbeitsmappe exportieren