Data analysis doesnt appear in the Tools menu

[Sai]

Hi,

When I open an excel workbook programatically data analysis doesnt
appear in the tool menu, whereas when I open workbook by
double-clicking it works fine. Following is the code how I open excel
workbook from VB app.

Dim objExl As Excel.Application
Dim strDocName As String

strDocName = "C:\test.xls"
Set objExl = CreateObject("Excel.Application")
objExl.Workbooks.Open strDocName
For Each ai In objExl.AddIns
If ai.Installed Then
objExl.Workbooks.Open(ai.FullName).RunAutoMacros 1
objExl.Workbooks.Open(ai.FullName).RunAutoMacros 3
End If
Next
objExl.Visible = True
objExl.Workbooks("test.xls").Activate


What needs to be done to make data analysis appear on the tools menu?

Appreciate your help.

Thanks
SAI

 

[Sai]

never mind, I found out what the issue is.

Add-Ins Don't Load When Using CreateObject, look at the following
article how to load add-in when using createobject.

http://support.microsoft.com/kb/108888/

Thanks
SAI