Thursday, November 10, 2011

Copy data from excel to word table

if you want to copy data from excel worksheet to a table which already exists in the word document. Snapshot below-

Here is the code-
Sub test()
Dim doc As New Word.Application

doc.Visible = True
Documents.Open "C:\Documents and Settings\achamanlalko\Desktop\WORD TABLE.doc"
' 7 is no of columns
'i= 2 because we dont have to take the header row
For i = 2 To 7
' 7 is no of rows
For j = 1 To 3
ActiveDocument.Tables(1).Cell(i, j).Range.Text = Cells(i, j).Value
'if you want to change the font size of table
ActiveDocument.Tables(1).Range.Font.Size = 15
ActiveDocument.Tables(1).Range.Font.Name = "Arial"
'if we add background color to header
ActiveDocument.Tables(1).Rows(1).Range.Shading.BackgroundPatternColorIndex = 5
End Sub

Word Document

Excel Files

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...