Pages

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
' TOOL -> REFRENCE-> MICROSOFT WORD
Documents.Open "C:\Documents and Settings\achamanlalko\Desktop\WORD TABLE.doc"
Documents(ActiveDocument.Name).Activate
' 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
Next
Next
'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