在Windows7环境下封装ExcelVBA代码.docx
- 文档编号:10329829
- 上传时间:2023-05-25
- 格式:DOCX
- 页数:15
- 大小:1.36MB
在Windows7环境下封装ExcelVBA代码.docx
《在Windows7环境下封装ExcelVBA代码.docx》由会员分享,可在线阅读,更多相关《在Windows7环境下封装ExcelVBA代码.docx(15页珍藏版)》请在冰点文库上搜索。
在Windows7环境下封装ExcelVBA代码
在Windows7环境下封装ExcelVBA代码
一、安装VisualBasic6.0
在Windows7下安装VisualBasic6.0安装会遇到一些兼容性问题,而WindowsXP则很顺利。
当某些程序必须要在Windows7下调试的时候,就一定要面对Windows7了。
(一)进入安装文件夹,点击“Setup.exe”运行VisualBasic6.0安装程序。
(二)出现兼容性问题提示,单击“运行程序”。
(三)进入VisualBasic6.0安装向导,单击“下一步”。
(四)出现“最终用户许可协议”对话框,选择“接受协议”,单击“下一步”。
(五)进入“产品和用户ID”对话框,在“请输入产品的ID号”处输入ID号,全部输入0至9中的任意一个,然后单击“下一步”。
(六)保持默认选择“安装VisualBasic6.0中文企业版”,单击“下一步”。
(七)选择公用安装文件夹,采取默认或自定义均可。
然后单击“下一步”
(八)再次出现兼容性问题提示,直接单击“运行程序”。
(九)进入VisualBasic6.0安装程序,单击“继续”后,单击“确定”。
(十)出现“发现了旧版本的VisualSourceSafe”提示,选择“是”
(十一)在选择安装类型对话框中,封装ExcelVBA代码选择“典型安装”即可。
(十二)出现“使用新的VisualSourceSafe数据库格式”提示,选择“是”
(十三)开始VisualBasic6.0安装。
(十四)安装完毕,单击“重新启动Windows”。
重新启动Windows后,自动弹出下面的对话框。
如果需要帮助文档,可单击“下一步”继续安装MSDN,对于VisualBasic6.0的初学者,建议安装。
在安装MSDN过程中,插入MSDN安装盘按照提示进行安装。
如果不需要帮助文档,单击“退出”,VisualBasic6.0安装完成。
二、运行VisualBasic6.0
由于在Windows7下运行VisualBasic6.0存在兼容性问题,因此必须对其进行设置才可正常运行。
(一)单击“开始→所有程序→MicrosoftVisualBasic6.0中文版”,用鼠标右击“MicrosoftVisualBasic6.0中文版”,点击“属性”。
(二)在弹出的“MicrosoftVisualBasic6.0中文版属性”对话框中,勾选“以兼容模式运行这个程序”与“以管理员身份运行此程序”其中之一,如两者都不勾选,也可在点击“MicrosoftVisualBasic6.0中文版”时以管理员身份运行,否则将弹出下面的错误:
(三)勾选“禁用视觉主题”、“禁用桌面元素”或两者均勾选,以使程序运行流畅。
至此,VisualBasic6.0可以正常运行了。
我们封闭一个ExcelVBA代码试试。
(四)运行VisualBasic6.0中文版,在自动弹出的“新建工程”对话框中选择“ActiveXDll”。
(五)在代码框中输入如下代码:
SubTest()
MsgBox"WelcometoExcelVBA!
"
EndSub
“MsgBox"WelcometoExcelVBA!
"”这段代码显示一条弹出信息,虽然很简单,但却可以测试VisualBasic6.0封装ExcelVBA代码是否正常。
代码输入完毕后,单击“工程→引用”,对封装应用程序进行设置。
在弹出的“引用-工程1”对话框中,勾选“MicrosoftExcel12.0ObjectLibrary”和“MicrosoftOffice12.0ObjectLibrary”。
这里的12.0指的是Office2007,Office2003是11.0,Office2010是14.0,Office2013是15.0,外国人认为13是不吉利的数字,因而是没有13.0的。
勾选完毕后单击“确定”。
(六)接下保存“工程1”到一个指定文件夹,然后单击“文件→生成工程1.dll”,如果没有什么提示,生成“ActiveXDll”成功。
(七)在ExcelVBA中调用刚才生成的“工程1.dll”。
进入VBA前请首先启用宏或对宏安全性进行设置。
打开或新建一个工作薄,进入VBE编辑环境,单击“工具→引用”,在弹出的“引用-VBAProject”对话框中单击“浏览”找到“工程1.dll”,单击“打开”,最后再单击“确定”。
(八)在VBE编辑环境中双击“ThisWorkbook”对象,输入如下代码:
PrivateSubWorkbook_Open()'注册工程1.dll
Shell"Regsvr32/s"&VBA.Chr(34)&ThisWorkbook.Path&"\工程1.dll"&VBA.Chr(34),vbHide
EndSub
PrivateSubWorkbook_BeforeClose(CancelAsBoolean)'反注册工程1.dll
Shell"Regsvr32/u/s"&VBA.Chr(34)&ThisWorkbook.Path&"\工程1.dll"&VBA.Chr(34),vbHide
EndSub
关闭VBE环境,在Sheet1工作表中插入一个按键,添加如下代码:
PrivateSubCommandButton1_Click()
DimkkAsNewClass1'Class1是类模块名称
kk.Test'Test是Class1中的过程名称
Setkk=Nothing
EndSub
在上述代码中,“DimkkAsNewClass1”设置一个对象kk,“kk.Test”引用kk对象中的Test过程。
(九)关闭VBE环境,单击“CommandButton1”试试。
VisualBasic6.0封装ExcelVBA代码环境安装测试完毕。
如果以后出现错误提示,错误是在VisualBasic6.0中的代码。
VisualBasic6.0最多只能在Windows7下兼容安装,在Windows8中就不能安装了。
在封装EXcelVBA代码时需注意,在Windows7环境下封装的Dll可在WindowsXP环境下运行,在高版本ExcelVBA中封装的可在低版本的ExcelVBA中运行,反之则不行。
所以,当VisualBasic6.0代码编辑完成后,尽量在Windows7和Excel2013环境下封装,这样通用性要强一些。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Windows7 环境 封装 ExcelVBA 代码