Why Excel Addins is Wrong?

[daiweisc]

the Code is

Code: Select all

#SingleInstance,Force
objExcel := ComObjCreate("Excel.Application") 
objExcel.Application.Visible := True
objExcel.DisplayAlerts := False
objExcel.AddIns("PI DataLink").Installed := True
Workbook := "C:\Users\DWBJB\Desktop\导入表\01催化剂导入表.xlsx"
objWorkbook1 :=objExcel.Workbooks.Open(Workbook)

when the code run with Line 5 (Having AddIns), it is wrong.
the code change

Code: Select all

objExcel.AddIns("PI DataLink").Installed := ComObjType(oxB,-1)

It is still wrong.

[daiweisc]

I find "PI DataLink" is a COMAddIn, so i change the code

Code: Select all

objExcel.COMAddIns.("PI DataLink").Installed := True

but the wrong is still in. Is there any way to open or close COMAddIn in Excel?

[White_Whale]

what is COMAddIns ?

[White_Whale]

try to add .Application

[daiweisc]

I change the code

Code: Select all

#SingleInstance,Force
objExcel := ComObjCreate("Excel.Application") 
objExcel.Application.Visible := True
objExcel.DisplayAlerts := False
objExcel.Workbooks.Add
objExcel.COMAddIns(6).Connect := True
status := objExcel.COMAddIns(6).Connect
MsgBox,%Status%

the code run well with no problem ,but COMAddIn is still 0,not change to 1.

[boiler]

It looks like it may need to be Application.COMAddIns.

[daiweisc]

Add Apllication

objExcel.Application.COMAddIns(6).Connect := True
status := objExcel.Application.COMAddIns(6).Connect
MsgBox,"COMAddIns" %Status%

it is still 0.

[teadrinker]

Code: Select all

objExcel := ComObjCreate("Excel.Application") 
objExcel.Application.Visible := True
objExcel.DisplayAlerts := False
objExcel.Workbooks.Add
Loop % objExcel.COMAddIns.Count
   MsgBox, % objExcel.COMAddIns.Item(A_Index).Description

[White_Whale]

from time to time people do not understand the differences between AHk vs VBA
if you are not clear about VBA you have to Google it at MS sites not at AHk site.

For instance..
COMAddIns members (Office)
https://docs.microsoft.com/en-us/office/vba/api/overview/library-reference/comaddins-members-office
COMAddIn members (Office)
https://docs.microsoft.com/en-us/office/vba/api/overview/library-reference/comaddin-members-office

[Datapoint]

try to add .Application

It looks like it may need to be Application.COMAddIns.

No. Wrong.
objExcel in the posted code contains an application object.
objExcel.Application is the same as Application.Application

from time to time people do not understand the differences between AHk vs VBA
if you are not clear about VBA you have to Google it at MS sites not at AHk site.

@daiweisc I don't have Excel handy at the moment, but I'll try later

[boiler]

It looks like it may need to be Application.COMAddIns.

No. Wrong.
objExcel in the posted code contains an application object.
objExcel.Application is the same as Application.Application

It doesn't hurt to include it either. Thanks for adding the facepalm emoji, though. Very cordial.

[White_Whale]

ah, You are quite right.
I see this ComObjCreate("Word.Application") again. It has Application inside of it already. Thanks

[White_Whale]

ah, it works.. Good.

Code: Select all

myExcel.COMAddIns("myAddIn").Object.myMethod

Code: Select all

Loop % myExcel.COMAddIns.Count
	myResult .= myExcel.COMAddIns.Item(A_Index).Description "`n"
MsgBox % myResult
; Inquire
; Microsoft Office PowerPivot for Excel 2013
; Microsoft Power Map for Excel
; myAddIn
; Power View
; Team Foundation Add-in
; Visual Studio Tools for Office Design-Time Adaptor for Excel