Use VBA to collect information from Excel cells to av word documen

[Guest]

I have reference Office 11.0 Object lib. as a default. To get all the Excel
objects i activate the Microsoft Excel 11.0 Object library.

Then i can brows it all, by then i create a VBA code then VBA can't use the
Excel Objects as :
Dim Text as string
Text=cstr(Workbooks("BookName.xls").Worksheets("SheetName").Cells(1,1))

I have tried a line i use in VB6

Dim XLS
Dim Text as string
set XLS = GetObject(, "Excel.Application")

XLS.Workbooks("BookName.xls").Worksheets("SheetName").Cells(1,1))

This gives med tha same as
Text =cstr(Exel.Workbooks("BookName.xls").Worksheets("SheetName").Cells(1,1))

I can brows the object model, but i can't use it.

Is there an other code that enebles the Excel object model in WORD.

Best regards

 

[Tom Ogilvy]

GetObject and CreateObject are the ways to go.

IF it works in VB6, it should work in VBA

I assume you have opened BookName.xls and it has a sheet named SheetName

You may want to look at the Automation Help file

http://support.microsoft.com/default.aspx?scid=kb;en-us;260410
Microsoft Office 2000 automation Help file is available in the Download
Center

 

[Guest]

I had activated the workbook with current sheet. I read the automation help
file.
Thank you Tom.