Office: Excel-Tabelle in Word-Vorlage einfügen

Schönen Nachmittag,

Ich versuche gerade, über einen Command-Button ein Word-Dokument zu öffnen, in welches jene Daten eingefügt werden, die auf dem Tabellenblatt, auf dem sich auch der Command-Button befindet, zu sehen sind.

Das Öffnen der entsprechenden Datei gelingt mir reibungslos mit folgendem Code: *grins (Diesen Code habe ich vor einiger Zeit mal im Access verwendet.)

Code:

Aber jetzt stehe ich vor dem Problem, wie ich die Tabelle einfügen kann!? Wenn das für den Code von Bedeutung ist: in dieser Tabelle werden nicht alle Zeilen angezeigt, sondern nur jene, in denen sich Werte befinden. Der Rest wird ausgeblendet. Ich möchte daher natürlich nur jene Zeilen übertragen, in welchen sich Werte befinden.

Kann mir jemand dabei helfen?

Danke für die kommenden Ratschläge!

sG,

Harald

:)

 

Moin, harald,

willst Du die Tabelle eingefügt haben oder nur die Daten der Tabelle? Letzteres liesse sich wie folgt umsetzen:

Code:

 

Ciao Harald,

mit diesem folgendem Code fügst du die Tabelle sowie deren Daten ( Inhalt ) in Word ein:

Sub ExcelnachWord_BeiKlick()
Dim WordObj As Object
Dim WordDoc As Object
Dim i As Integer

Sheets("Tabelle1").Activate ' Tabelle1 musst du mit der deiner anpassen
i = ActiveSheet.UsedRange.Rows.Count
Range("A1:E1").Copy 'hier musst du die Range eintragen, in deren die Daten stehen

Set WordObj = CreateObject("word.application")

WordObj.Visible = True
Set WordDoc = WordObj.Documents.Add
With WordObj.Selection
.TypeParagraph
.TypeParagraph
End With
WordObj.Selection.PasteSpecial link:=True
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub

Ciao Silvestro

 

hallo jinx und silvestro,

danke euch beiden, dass ihr euch um mein problem gekümmert habt. leider konnte ich es aber trotzdem nicht ganz lösen.

@ jinx: deinen code habe ich nicht ausprobiert, da ich die ganze tabelle ins word übertragen möchte. trotzdem danke.

@ silvestro: habe deinen code ausprobiert. funktioniert grundsätzlich auch. *Smilie nur möchte ich auf eine bestimmte datei zugreifen. Das funktioniert allerdings nicht. *frown.gif* Beim fett-markierten Teil stellt es mich auf. Folgende Fehlermeldung erhalte ich: "Objektvariable oder With-Blockvariable nicht festgelegt". Wenn ich nicht blind bin, dann passt die Objektvariable. Bei der With-Variable bin ich ein bisserl verwirrt, da du in deinem code nicht anders vorgehst als ich.

Code:

Wäre toll, wenn ihr mir nochmal helfen könntet.

Harald

 

Hallo Harald,

irgendwie ist das ein wenig durcheinander.

versuchs mal so:
Code:

 

hi knee,

danke vorerst für die hilfe. funzt leider noch nicht ganz:
Nach der Angabe des Dateipfades stellt es mich auf

Code:

Da meldet der Debugger "Objekt unterstützt diese Eigenschaft oder Methode nicht."

hast du eine ahnung, warum ihm das nicht gefällt!?

danke schon mal,

harald

 

Hallo Harald,

Code:

wenn das hinhaut musst du das einfügen (die Zeile mit PasteSpecial) genauso anpassen.

 

Ciao Harald,

du schreibst in deinem Code:

Set WordObj = WordDoc.Documents.Add(Template:="X:\XXX\XXX.dot")

versuch aber nur dies:

Set WordObj = WordDoc.Documents.Add

Ich habe das so bei mir ausprobiert und es klappt einwandfrei!
Wenn du es weg läßt, dann müsste es eigentlich auch bei dir funktionieren!

Ciao Silvestro

P.S. Wie macht ihr, dass euer Code in blau steht?

 

*yelrotflmao

herzlichen dank! *hands
funktioniert einwandfrei!!!

wünsche dir noch einen schönen tag.

harald

 

Ciao Harald,

war nun mein Vorschlag richtig oder der von Knee?
Nur damit ich dann Bescheid weiß, ob ich diesen Code dann weiter so verwenden kann oder mit dem von Knee ändern muss?

Gruß Silvestro