Goedenavond allen,
Weer een vervolg van vorige vraag betreffen een variabele overbrengen van een excel document naar een word document.
Ben in vorige vraag eruit hoe men een variabele overbrengt onder Excel-Word 2003.
Ook een array overbrengen is gelukt.
Nu zou ik graag iets wat ik gekopieerd heb in Excel, plakken in een bestaande (geopende) Word document.
Heb het volgende gedaan onder Excel VBA:
Dit werkt dus niet.
Ben er niet achter wat ik precies moet neerzetten om het gekopieerde in Excel neer wordt gezet in het geopende Word document.
Heeft iemand hier een idee over?
Vr. Gr.
Dutch
Weer een vervolg van vorige vraag betreffen een variabele overbrengen van een excel document naar een word document.
Ben in vorige vraag eruit hoe men een variabele overbrengt onder Excel-Word 2003.
Ook een array overbrengen is gelukt.
Nu zou ik graag iets wat ik gekopieerd heb in Excel, plakken in een bestaande (geopende) Word document.
Heb het volgende gedaan onder Excel VBA:
Code:
Application.ScreenUpdating = False ' tegen flikkeren van beeldscherm
Run KasboekKolom() ' leest de kolommen v-d maand in
Worksheets("Kasboek").Visible = 1
ActiveWorkbook.Worksheets("Kasboek").Activate ' wb "PrintXDoc" geactiveert om Document te printen
With Worksheets("Kasboek")
.Range(KBK1 & 46 & ":" & KBK6 & 81).Select:
Selection.Copy ' kopieert deze maand Kasboek
End With
Set Word = CreateObject("word.basic") ' Set Word
Word.fileopen WrdBestand ' opent een Word document met het Path & Naam file & extensie
Word.appshow ' toont het document
With GetObject(WrdBestand) ' Update variabelen van Excel --> Word doc.
With GetObject(WrdBestand) ' Update variabelen van Excel --> Word doc.
WrdBestand.Activate
' .PasteSpecial
' .PasteSpecial xlValues
' .Selection.Paste
End With
Dit werkt dus niet.
Ben er niet achter wat ik precies moet neerzetten om het gekopieerde in Excel neer wordt gezet in het geopende Word document.
Heeft iemand hier een idee over?
Vr. Gr.
Dutch
Laatst bewerkt: