Export data from Excel to Word

[darkwraith]

Hi, I'm doing a macro starting form MS Word that open a given file xls and copy the content of some cells into a table in the Word document.
After I've opened the file Excel from the Word ile, how can I import the data?
Thanks in advance
Elena

 

[PHV]

How do you open the Excel file ?
I guess you simply have to take a look at OLE Automation.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[darkwraith]

Hi PH, I've used
Set MyXL = GetObject(, "Excel.Application")
Set MyXL = GetObject("c:\myFile")
to get the xls file. Now I have to select some cells in excel and to put them in a table in word.
Elena

 

[PHV]

Something like this ?
Set MyWB = GetObject("c:\myFile.xls")
MsgBox "A2=" & MyWB.ActiveSheet.Cells(2 , 1)
MyWB.Application.Quit


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[SkipVought]

Hi,

Here's a simple example...

    Set MyWB = GetObject("C:\MyWorkbook.xls")
    ThisDocument.Tables(1).Rows(1).Cells(1).Range.Text = MyWB.Worksheets(1).Cells(1, "D").Value
    Set MyWB = Nothing

Check out the HELP on GetObject. You ALSO need to wheck for the existance of the Excel Application running or not.

Skip,

_{[red]Be advised:[/red] It's been reported that a wee psychic is roaming the countryside.
Small Medium @ Large!}