请教:在VB中能够象Excel那样 set a=GetOjbect; set b=a.GetB 的com实现


通过GetObject得到对象之后，怎么才能正确地得到其它对象。
※CreateObject时是没有问题的。已经可以通地定个接口指针来取得另一个接口指针.
比如：通过GetObject得到Excel.Application,如果通过前面的Excel.Application来得到Excel.Workbook?Private Sub Test_GetObject()
  Dim excel_app As Excel.Application
  Dim excel_wb As Excel.Workbook
  Set excel_app = GetObject(, "Excel.Application") '假定已经打开
  Set excel_wb = excel_app.ActiveWorkbook '成功
  Debug.Print excel_wb.Name
    
  Dim self_app As Self.Application
  Dim self_wb As Self.Workbook
  Set self_app = GetObject(, "Self.Application") '假定已经打开
  Set self_wb = self_app.ActiveWorkbook '失败
End SubPrivate Sub Test_CreateObject()
  Dim excel_app As Excel.Application
  Dim excel_wb As Excel.Workbook
  Set excel_app = CreateObject("Excel.Application") '成功
  Set excel_wb = excel_app.ActiveWorkbook '成功
  Debug.Print excel_wb.Name
    
  Dim self_app As Self.Application
  Dim self_wb As Self.Workbook
  Set self_app = CreateObject("Self.Application") '成功
  Set self_wb = self_app.ActiveWorkbook '成功
End Sub
原贴:
请教：自制Com组件,CreateObject成功，GetObject失败
http://topic.csdn.net/u/20100430/08/ae328ee1-490b-4227-9b0a-eedd0e8f7dbe.html