Referencing an opened Excel Workbook

[BerkshireGuy]

I am writing an Module in Access 2000 that needs to reference an opened
Excel Workbook. Lets say the workbook is called Rankings.

How would I reference that workbook from within Access?

Thanks

[BerkshireGuy]

I tried this:

ublic Sub MakeRSMSheets()
Dim XLApp As Excel.Application, WB As Excel.Workbook
Dim ws1 As Worksheet
Dim wsNew As Worksheet
Dim rng As Range
Dim r As Integer
Dim c As Range

Set XLApp = GetObject(, "Excel.Application")
Set WB = XLApp.Workbooks("Book1.xls")
but I get subscript out of range - however sometimes I dont get an
error. An each time, the correct workbook was opened.

-Brian

[corey lawson]

BerkshireGuy wrote:

I tried this:

ublic Sub MakeRSMSheets()
Dim XLApp As Excel.Application, WB As Excel.Workbook
Dim ws1 As Worksheet
Dim wsNew As Worksheet
Dim rng As Range
Dim r As Integer
Dim c As Range

Set XLApp = GetObject(, "Excel.Application")
Set WB = XLApp.Workbooks("Book1.xls")
but I get subscript out of range - however sometimes I dont get an
error. An each time, the correct workbook was opened.

-Brian

Well, if you are sure that the given workbook is the Active one, then
try this instead:

set wb = XLApp.ActiveWorkbook