Gegevens uit Excel naar Word

[huijb]

Is het mogelijk om gegevens (per rij) naar een Word document over te brengen d.m.v. een macro, zeg maar een soort overzichtsrapport van gegevens uit Excel. Bijgevoegd als voorbeeld is een Excel en een Word bestand waarin e.e.a. duidelijk word.

 

[bargeboer]

Ik zou zeggen door in het Word document de mogelijkheid voor samenvoegen van documenten te gebruiken.

In Word 2003: Extra -> Brieven en verzendlijsten -> Afdruk samenvoegen...

Je kunt dan jou Excel file kiezen en de velden worden dan getoond en die kun je op de door jou gewenste plaats in het Word document zetten.

 

[huijb]

Dit is inderdaad een manier maar zou het graag d.m.v. een macro geautomatiseerd zien. Dat scheelt een hoop werk.

 

[Warme bakkertje]

Beste Huijb,
Zie eens of je hier mee verder kunt. Geschreven door Andy Pope.

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
     
     ' 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

Door gebruik te maken van bookmarks in je Worddocument kan je de gegevens plaatsen waar je wil.
voeg hiervoor volgende code toe voor het Copy xl range-statement.

' goto bookmark
    objWordDoc.Bookmarks("InsertHere").Range.Select

Mvg

Rudi

 

[marfa]

Ja, je kunt gegevens van Excel naar Word koppelen d.m.v. een macro. Dit doe je door extra, macro opnemen te kiezen. Vervolgens ga je met verzendlijsten de handelingen doen die nodig zijn om de gegevens te koppelen. Als je dat gedaan hebt macro opname stoppen. Als je dan iedere volgende keer het samengevoegde document opent hoef je alleen nog op samenvoegen te klikken.

Hoop dat ik zo duidelijk ben?

Groet Marfa

 

[snb]

Dit is inderdaad een manier maar zou het graag d.m.v. een macro geautomatiseerd zien. Dat scheelt een hoop werk.

Als je een samenvoegbestand gekoppeld hebt aan een excelbestand en opgeslagen, kun je de samenvoeging in VBA uitvoeren met

Documents.add "C:\samenvoegbestand.doc" [COLOR="Teal"]'open het samenvoegbestand[/COLOR]
ActiveDocument.mailmerge.execute        [COLOR="teal"]' voeg de gegevens uit excel samen met dit bestand[/COLOR]
With Activedocument
  .saveas "C:\nieuwe samengevoegde bestanden.doc" [COLOR="teal"]' sla het samengevoegde bestand op [/COLOR]
  .close    ' sluit het samengevoegde bestand
End With
ActiveDocument.close 0   [COLOR="teal"]'sluit het samenvoegbestand[/COLOR]

Als jij het met minder dan deze 5 VBA instrukties weet te realiseren ontvang je de gele trui.

Algemene regel in Office: exporteeer niet vanuit een applicatie (Access, Excel) naar Word, maar importeer in Word.
De ingebouwde funktie afdruk samenvoegen kent heel veel faciliteiten die jij in VBA niet kunt imiteren(SQL-funkties, Query-funkties\opmaakfunkties\verzendfunkties (email), etc.). Exploreer eerst wat de programmeurs van Microsoft hebben bedacht voordat je zelf een wiel gaat uitvinden.

 

[huijb]

Ik zal eens kijken of ik met een van beide opties iets kan bereiken. Bedankt tot zo ver. :thumb: