I am trying to open Excel through Access. The problem is it will not
automatically load all those Add-Ins. Is there anyway to solve the problem?
I used the following code but the addins not really loaded into test.xls.

please give some help... thanks

Dim xlsapp As Excel.Application
Dim wkb As Workbook
Set xlsapp = CreateObject("Excel.Application")
xlsapp.Visible = True

Set wkb = xlsapp.Workbooks.Open("C:\test.xls")


wkb.Application.AddIns.Add ("C:\Program Files\Microsoft Office\Office10\XLStart\PwdMonikerConverter.xla")
wkb.Application.AddIns.Add ("C:\Program Files\Microsoft Office\Office10\XLStart\CDExcelXP.xla")
wkb.Application.AddIns("CDExcelXP").Installed = True