Makro som skickar Exceldata till Word
Även fast Excel fungerar bra för att skapa presentationer så händer det att mottagare vill ha informationen i ett Word-dokument.
Följande makro exporterar Exceldata automatiskt till ett nytt Word-dokument. De uppgifter som exporteras är de celler på kalkylbladet som är markerade, och resultatet blir alltså ett nytt Word-dokument med Exceldatan inklistrad som en tabell.
Som ett exempel kan vi anta att du har följande tabell i Excel:
Makrot som utför exporten ser ut så här:
'kopiera markerat område
Selection.Copy
'skapa nytt Word-objekt
Dim appWord As Word.Application
Set appWord = New Word.Application
With appWord
.Visible = True
.Activate
End With
'skapa det nya Word-dokumentet
appWord.Documents.Add
'klistra in Exceldatan
appWord.Selection.Paste
'förstöra Word-objektet
Set appWord = Nothing
End Sub
För att Excel skall kunna skapa ett Word-objekt så måste vi skapa en koppling till Words objektsamling. Detta gör du i VBA-editorn på menyn Tools - References. Följande fönster öppnas där du alltså markerar
Microsoft Word xx.x Object Library.
Körningen av makrot kopierar över de markerade cellerna till Word, och resultatet blir en snygg tabell i det nya Word-dokumentet.
RSS feed