Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Starting Excel
Message
 
To
25/10/2005 15:43:28
Gary Foster
Pointsource Consulting LLC
Chanhassen, Minnesota, United States
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01062014
Message ID:
01062024
Views:
10
Probably add-ins are not invoked (or they look like not installed) when you start with Excel Automation.

Try something like this, and for "your" addins titles.
oExcel= CREATEOBJECT("Excel.Application")

oExcel.Workbooks.add()		&& any workbook MUST be opened

lnAddins=0
for ia=1 to oExcel.Application.Addins.Count
	if oExcel.Application.Addins(ia).Title $"Analysis ToolPak, Analys32"
		lnAddins=ia
	endif
endfor

if lnAddins=0
	wait wind time 1.0 "Terminating. 'Analysis ToolPak' or 'Analys32' addins are not are available!"
	return
endif

with oExcel.Application.Addins(lnAddins)
	if not .Installed
   	         .Installed=.t.
	endif
endwith
......
>Hi all,
>We have some add-ins for Excel that show up automatically as toolbars when Excel is started from Explorer or a shortcut. I need them to show up when started from CreateObject('Excel.Application') or some other progid. The add-ins are visible on the add-in Tools/Add-Ins dialog but not in the toolbar list and I have no idea how to make the wretched buttons appear in the Excel toolbar space. I suppose I could start Excel with ShellExecute() and then do a GetObject(), but I'd rather just start with COM and stay there.
>
>Any hints on how to do this?
>
>Thanks.
>
>Gary
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform