Tabellenblätter noch Word exportieren

Hallo Excelfreunde
Ich habe ein Problem mit dem ich mich jetzt schon länger beschäftige und nach dessen Lösung ich auch schon in der Recherche gesucht habe.
Ich habe eine Arbeitsmappe mit ca 20 Tabellenblättern und jeder Menge Code. Das Tool soll Projektbezogen eingesetzt werden und hat bereits einen Umfang von ca. 7MB.
Wenn ich es aber für jedes Projekt einzeln abspeichern würde, wäre meine Festplatte bald voll. Ich brauche im nachhinein nur die Oberfläche der Tabellenblätter und nicht mehr den hinterlegten Code.
Ich möchte über einen Button ausgewählte Tabellenblätter in Word als Grafik einfügen. Dafür müsste noch Ausführung des Befehls folgendes passieren:
- Tabellenblätter müssen ausgewählt werden
- Word wird geöffnet
- Pro Word-Seite wird eine Exceltabelle eingefügt
Ich hoffe einer von Euch kann mir weiterhelfen.
Vielen Dank
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim wdApp As Object Dim wdDoc As Object Dim sFile As String sFile = InputBox("Filename eingeben") ' Hier ein bestehendes Word File angeben Set wdApp = CreateObject("Word.Application") Set wdDoc = wdApp.Documents.Open(sFile) Range("A1:D10").Copy 'Hier den benötigten Range eingeben wdDoc.Range.Paste DoEvents wdDoc.Close savechanges:=True wdApp.Quit End Sub

Hallo Stefan,
ich habe leider etwas länger gebraucht für eine Lösung... Folgender Code erstellt ein neues Word-File und fragt die Tabellennamen ab welche zu übertragen sind. Die Tabellenauswahl ist wie du siehst nicht sehr Elegand gelöst aber du sollst ja auch noch deinen Spass an der Sache haben ;-)


Private Sub CommandButton1_Click()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim sFile As String
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
Tabellenname = InputBox("Tabellenname eingeben")
While Tabellenname <> ""
MsgBox Worksheets(Tabellenname).Range("A1:D10").Copy
wdApp.Selection.PasteExcelTable False, False, False
wdApp.Selection.InsertBreak Type:=wdPageBreak
Tabellenname = InputBox("Tabellenname eingeben")
Wend
wdDoc.Close savechanges:=True
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub

Ich hoffe das hilft dir weiter..
Gruss
Dani

Beliebteste Forumthreads (12 Monate)

Tabellenblätter noch Word exportieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblätter noch Word exportieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread