GetObject {Resolved}

I have created a dll in VB 6.0. I am using the GetObject method to get the path of the excel file that called the dll. However, I have just realized that if there are two different excel files open, this will return the first file path that was opened, not necessarily the file that called the dll. Is there another method that I can use...like GetThisObject, or something similar?

Below is an example of what I am using.


Dim ExcelTest As Excel.Application

Set ExcelTest = GetObject(, "Excel.Application")


In addition, when I try to use this method in a simular method in Access 97, I get a "Run-Time Error '429': ActiveX component can't create object" error. However, this will work in Access 2000.

The code being used for the Access application is

Dim AccessTest As Access.Application

Set AccessTest = GetObject(, "Access.Application")


Any ideas??

Thanks!

Quote:

---

Originally Posted by thedude1972

I have created a dll in VB 6.0. I am using the GetObject method to get the path of the excel file that called the dll. However, I have just realized that if there are two different excel files open, this will return the first file path that was opened, not necessarily the file that called the dll. Is there another method that I can use...like GetThisObject, or something similar?

Below is an example of what I am using.


Dim ExcelTest As Excel.Application

Set ExcelTest = GetObject(, "Excel.Application")

---

The code above will only get you the application, and is probably either giving you the first window that Excel has open, or the currently active workbook. Once you get your Excel object, you need to switch workbooks, something like:

VB Code:

Dim oExcelBook As Excel.Workbook
Set oExcelBook = ExcelTest.Workbooks("MyBook.xls")

If you aren't sure if it will be open, you can enumerate open workbooks too, like:

VB Code:

Dim oExcelBook As Excel.Workbook
Dim oLookinFor As Excel.Workbook
 
For Each oExcelBook In ExcelTest.Workbooks
    If oExcelBook.Name = "MyBook.xls" Then
        Set oLookinFor = oExcelBook
        Exit For
    End If
Next oExcelBook

I don't think Access97 was designed to be used as an ActiveX Object the way Access2000 is.