Macro to copy table from excel to word

[thisisrahul]

I am using the below code in MS Word to copy a table from excel file to word file.

..................................
Private Sub Document_Open()




Set wdapp = GetObject(, "Word.Application")
Dim tbl As Excel.Range
Dim wordoc As Word.Document


Dim xlApp As Object
Dim xlWB As Object
Dim BookmarkArray As Variant




BookmarkArray = Array("Rahul")


Set xlApp = CreateObject("Excel.Application")
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
Set xlWB = xlApp.Workbooks.Open("\\edenaswcmfps001\IE\ADD\Rahul Mishra\Add\Bulk Deals Database.xlsm", , , , "feelgood", "feelgood")
xlApp.Visible = True


With xlWB
'.Run "SelectHD1"
.Sheets("Aggregate").Selection.Copy
End With




Selection.GoTo What:=wdGoToBookmark, _
Name:="Rahul"


wdapp.Selection.Paste


'xlApp.CutCopyMode = False








End Sub
.......................................

The above code is working fine except the pasting of table as picture. I have selected the table in excel but stuck with copying the same and paste as picture on word file.
Also suggest me to save as the word file with "User_Name 30Nov2015.doc" where date is variable.


_________
Rahul

 

[thisisrahul]

any help is welcome.

 

[NdNoviceHlp]

You could either manually create the table in Word or VBA it, then open XL, gather the contents of the table in an array then populate the Word table. Else copy only the relevant range containing the table in XL (not the whole sheet). As far as file naming, it's just a matter of creating the string that U want...

Dim FLName as String, Month as String, Year as String
Month= "Nov"
Year = "2015"
FLName = "User_Name 30" & Month & Year & ".doc"

HTH. Dave

 

[thisisrahul]

thanks for your help.