发布时间 : 星期日 文章封装ExcelVBA代码 doc更新完毕开始阅读913ca92301f69e3143329488
封装ExcelVBA代码:[1]动态链接库的生成
有时出于代码安全性及保密性的需要,我们会对ExcelVBA代码进入加密,通常的做法是利用给工程设置密码的方法实现加密,
对于这类加密方法,由于存在安全度低、易破解等问题,因此往往起不到应有的效果。今天小编就给大家计解一种更为安全的
加密VBA代码的方法,那就是借助动态链接库技术来实现。
工具/原料
? ?
VB 6.0 Excel 2007
方法/步骤
1. 1
打开VB 6.0环境,点击“ 文件“→”新建工程“,在打开的”新建工程“窗口中选择”ActiveX(DLL)控件“,然后点击‘确定”按钮。
2. 2
添加对Excel对象库的引用
点击“工程”→“引用”,在打开的“引用”窗口中找到并选择“Microsoft Excel 12.0 Object Library”。(不同版本的Excel,其对应对象库名称可能不一致,请以实际对象名称为准)
3. 3
将\工程名称\更改为”feifeidown“,将”类模块“名称更改为”AddInfo\
4. 4
双击”类模块AddInfo“,编写如图所示的代码: Option Explicit Sub SetValue()
'创建Excel应用程序对象
Dim excelApp As New Excel.Application '创建工作簿对象
Dim excelWorkBook As New Excel.Workbook '创建工作表对象
Dim excelWorkSheet As New Excel.Worksheet '创建新工作簿
Set excelWorkBook = excelApp.Workbooks.Add '设置活动工作表
Set excelWorkSheet = excelWorkBook.Sheets(1) '给特定单元格赋值