AddIn - how to create?

[antelao]

Hi. I'd like to ask how to create new AddIn with my own macros. It is
easy in Excel: File - Save as ... (ms addin).

BUT I want to do this with help of another macro. I tried this:

ActiveWorkbook.SaveAs _
Filename:="C:\MyMacros\MyAddin.xla", _
FileFormat:=xlAddIn
ThisWorkbook.IsAddin = True

but it doesn't work - there is something wrong with file MyAddin.xla.

Can you help me to create correct AddIn ba macro? Thanks for help,
jiri.
Excel 2002

 

[Bob Phillips]

Why are you setting IsAddin in ThisWorkbook, not ACtiveWorkbook?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[antelao]

I rectified my script in this way:

-Workbooks.Open Filename:="C:\MyMacros\MyAddin.xls"
ActiveWorkbook.SaveAs _
Filename:="C:\MyMacros\MyAddin.xla", _
FileFormat:=xlAddIn
ActiveWorkbook.IsAddin = True
ActiveWorkbook.Save
Application.AddIns.Add ("C:\MyMacros\MyAddin.xla")
Application.AddIns("MyAddin").Installed = True-

This works until Excel is restarted. After Excel restart MyAddin isn't
installed. In my openien i need something so save, but i don't know
what. Any help?

Thanks, jiri

 

[antelao]

I found out that the problem is supposed to be in FileFormat '*xlAddIn*
. I should use '*xlIntlAddIn*' instead, but i don't know the difference
Can you help me to learn how to use 'xlIntlAddIn' fileFormat