Exportera data till Word-tabeller


Att exportera data till tabeller i MS Word kan många gånger vara enklare än att exportera till bokmärken i Word-dokument.

I exemplet visas hur vi relativt enkelt kan exportera data till en tabell.

Exemplet förutsätter att en referens till MS Word Library x.x har angivits via kommandot Verktyg | Referenser... i VB-editorn.

 

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»
 

 

(© 2002 - 2003 All rights Colo - Used by permission)

Option Explicit

 Sub Exportera_Tabell_Data()

   '© 2003 Alla rättigheter XL-Dennis

   Dim wdApp As Word.Application

   Dim wdDoc As Word.Document

   Dim wdCell As Word.Cell

   Dim i As Long

 

   Dim wbBook As Workbook

   Dim wsSheet As Worksheet

   Dim rnData As Range

   Dim vaData As Variant

 

   Set wbBook = ThisWorkbook

   Set wsSheet = wbBook.Worksheets("Sheet1")

 

   With wsSheet

      Set rnData = .Range("A1:A10")

   End With

 

   vaData = rnData.Value

 

   Set wdApp = New Word.Application

   Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\Test.doc")

 

   'Import av data till första tabellen och första kolumnen.

   For Each wdCell In wdDoc.Tables(1).Columns(1).Cells

      i = i + 1

      wdCell.Range.Text = vaData(i, 1)

   Next wdCell

 

   With wdDoc

      .Save

      .Close

   End With

 

   wdApp.Quit

   Set wdDoc = Nothing

   Set wdApp = Nothing

End Sub