加载宏安装包的制作
一、需要的程序:
(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爱好者的问题。