Excel importeren in Word

[maze00]

Goedemorgen,

Ik heb een vraag en misschien kunnen jullie mij helpen.

Ik ben bezig om een excel sheet te importeren in Word.

En dan gaat het alleen om een bereik waar waardes staan.
(Dus ik ga in vak A1 staan en maak een blok via Cntr, shift, end)

Is dit ook te doen via VBA ?
Het gaat altijd om hetzelfde bestand die elke dag in een Word overzicht moet komen.

 

[madmuppet]

Om te beginnen... het probleem niet moeilijker maken dan het is.
Heb je de macrorecorder al geprobeerd? Daarmee kan je handingen "automatiseren". Open Word bestand, op en Excel bestand. Ga in Word naar [extra]>[macro's]>[nieuwe macro opnemen] geef het ding een naam, duk op [OK] en voer systematisch (zonder onnodige handelingen) handmatig datgene uit, wat je wilt dat de macro doet. Als je klaar bent afsluiten, en klaar.
Zonodig kan je die macro in het Word bestand aan een klnop hangen, of het zo instellen dat de macro wordt uitgevoer bij openen van het Word bestand.

 

[maze00]

Hallo,

Dit had ik al geprobeerd.

Alleen als je een excel bestand importeert stopt de macrorecorder op het moment dat je een bereik wilt aangeven. Ook stopt hij als je naar Excel gaat en daar gaat opnemen.

De moeilijkheid zit hem in het feit dat je alleen het gedeeltje wilt importeren waar dus waardes staan in het excel bestand.

 

[madmuppet]

Oh, ja.... dan krijg je natuurlijk dat gedoe over wisselen tussen 2 applicaties, gegevens weghalen uit een niet-geopend bestand bij openen van word... nee, niet handig.:evil:

Je kan het ook eens proberen met mailmerge (samenvoegbestand). Dat wordt meestal gebruikt voor adressen enzo, maar het maakt natuurlijk niet uit wat je importeert... lost dat het probleem voldoende op?

 

[Warme bakkertje]

Sub XLRangeToDoc()
     'copy range to table in word doc
     '
    Dim objWordApp As Object
    Dim objWordDoc As Object
    Dim rngData As Range
     
    Set rngData = Range("A1:G40")
     
     ' create instance of word and open doc
    Set objWordApp = CreateObject("Word.application")
    objWordApp.Visible = True
    Set objWordDoc = objWordApp.Documents.Add
    'of als het steeds hetzelfde document is
    'Set objWordDoc = objWordApp.Documents.Open("D:\Mijn documenten\Document.doc")
    
    ' goto bookmark verwijst naar een eventuele bladwijzer om de data te plaatsen
    'anders komt de data bovenaan links op pagina
    'objWordDoc.Bookmarks("Invoegen").Range.Select
     
     ' Copy xl range
    rngData.Copy
     
     ' Paste the range
    objWordApp.Selection.PasteSpecial Link:=False, DataType:=1, _
    Placement:=0, DisplayAsIcon:=False
     
    objWordDoc.Save
    objWordDoc.Close
    objWordApp.Quit
     
    Set objWordDoc = Nothing
    Set objWordApp = Nothing
     
End Sub

Mvg

Rudi