加载宏安装包的制作
一、需要的程序：
（1） 一个加载宏
（2） 一个安装包制作工具，我用的是setup factory 9
二、安装包的制作
第一部分：初始设置
(1) 启动setup factory 9，选择“Create a new project”
(2) 在弹出对话框的what's your product name or title?项下（第二个文本框）输入软件名称
(3) 选择平台，一般默认都是32 位
(4） 单击“Browse”按钮后，选择需要安装的加载宏所在的文件夹（你需要把加载宏用一个文件夹单独保存起来）
(5) 设置安装向导的主题风格。我对外观神马的不讲究，就默认wizard好了
(6) 此后就各种默认，一直到完成就行了。需要注意就是选择安装界面的语言，最好选择简体中文，要不然安装向导显示的就是英文
第二部分：设置加载宏的安装路径
（1） 完成上述新建的初始设置过程后，右击我们添加的加载宏文件，在子菜单中单击“File Properties”（最后一个选项）
（2） 在弹出的对话框中，在Install项下（倒数第二个文本框）设置路径为C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns，此安装路径是Excel程序中加载宏的默认保存路径。进行完此设置后，我们的加载宏就会安装到这个文件夹中。
第三部分：注册表的修改
（1） 主界面右边的Actions选项，可以为安装过程中的各个环节设置操作，各个环节分别是“启动时”、“预安装”、“安装出错时”、“安装后”、“关机时”
（2） 下面要为我们的加载宏写一点代码，这样,安装完程序，加载宏就可以被自动加载。其实质就是通过代码修改注册表。点击Actions项下的“On Post Install”（安装后）选项，将下述代码粘在弹出对话框的文本编辑处，把文件名改为你的加载宏文件名即可（注：代码中注册表路径内的11.0指Excel2003，Excel 2007为12.0 ，Excel 2010为14.0）
filename=Registry.GetValue(HKEY_CURRENT_USER, "Software\\Microsoft\\Office\\11.0\\Excel\\Options", "OPEN", true);
fnl = String.Length(filename);
if fnl>0 then
i= 1;
repeat
valuename = String.Concat("OPEN", i);
filename=Registry.GetValue(HKEY_CURRENT_USER, "Software\\Microsoft\\Office\\11.0\\Excel\\Options", valuename, true);
fnl = String.Length(filename);
i= i + 1;
until fnl==0;
Registry.SetValue(HKEY_CURRENT_USER, "Software\\Microsoft\\Office\\11.0\\Excel\\Options", valuename, "加载宏文件名", REG_SZ);
else
Registry.SetValue(HKEY_CURRENT_USER, "Software\\Microsoft\\Office\\11.0\\Excel\\Options", "OPEN", "加载宏文件名", REG_SZ);
end
第四部分：设置安装向导界面
(1) 主界面右边screens选项下的四个选项分别是“主题”，“安装前”，“正在安装”，“安装后”,可以设置安装向导的界面
(2) 以“安装前”为例，单击Screens项下的Before Installing选项，在弹出的对话框中，左边是各种安装向导对话框的列表，右边可以看到所选对话框相应的界面，可以通过“Remove”铵钮删掉一些对话框（我觉得setup factory给得提示很全，一般最好删掉一些，要不然太啰嗦），“Edit”可以编辑窗口中显示的文字
（3） 如上一步所述，可对安装前后各界面进行设置
第五部分：设置卸载程序
（1） 主界面右边Unistall中各种选项可以对卸载诸过程进行设置
（2） 单击Unistall项下的“Settings”选项，在弹出对话框中，将“Create unistall”前面的勾去掉，即不创建一个卸载程序，加载宏是个小程序，没有必要装卸载程序了
第六部分：生成安装文件
(1) 单击主菜单中的“Publish”铵钮，在下拉菜单中选择“Build”选项
（3） 保持默认设置，点“Next”
（4） 第一个文本框设置输出的安装文件的保存路径，第二个文本框设置安装文件的名称
（5） 单击“Next”，程序开始生成安装文件，请耐心等待一会儿，完成后你的加载宏安装包就生成了。
(6) 赶紧打开你的EXE文件，试试看安装效果吧！
后记：
我原来有一点VB的基础，之后发现VBA，现在处于初学阶段，学得不系统，什么功能感兴趣学什么,一边编程序一边学。
帮老妈编了一个小程序用于工作，可是老妈确实是“笨”得可以。没办法，想办法把加载宏做成安装包吧，打开装好就能用啊！加之，觉得做成安装包，也便于推荐给朋友用。
注册表的知识我是一点都不会，这个概念也是因为要做安装包才逐渐理解。我瞎猫碰上死耗子，误打误撞找着了加载宏注册表的修改方法，惊喜地发现setup factory的编程语言还是VB，于是费了点力气转化成程序语言。有句话叫“授人以鱼不如授人以渔”，我直接上代码，一点说明也没有，自己有 “授人以鱼”的愧疚，但是在计算机的世界里，没有人是什么都会的，很多东西拿来用就好。
自己做安装包费了些脑筋，百度、谷歌了各种贴子都没有解决办法，现在自己解决了，特写此教程，和大家分享一下，解决和我有同样需要的VBA爱好者的问题。
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2014-2-7 15:10
楼主
