封装ExcelVBA代码：[1]动态链接库的生成

1、打开VB 6.0环境，点击“ 文件“→”新建工程“，在打开的”新建工程“窗口中选择”ActiveX（DLL）控件“，然后点击‘确定”按钮。

2、添加对Excel对象库的引用

点击“工程”→“引用”，在打开的“引用”窗口中找到并选择“Microsoft Excel 12.0  Object Library”。（不同版本的Excel，其对应对象库名称可能不一致，请以实际对象名称为准）

3、将"工程名称"更改为”feifeidown“，将”类模块“名称更改为”AddInfo".

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)

   '给特定单元格赋值

   excelWorkSheet.Cells(1, 1) = "百度ID"

    excelWorkSheet.Cells(1, 2) = "feifeidown"

   '显示工作表

   excelWorkSheet.Visible = xlSheetVisible

End Sub

5、对工程进行相关描述设置

点击”工程“→”feifeidown属性“，在打开的”工程属性“窗口中，切换到”生成“选项卡，将“应用程序”的标题设置为“封装VBA代码”，产品名称设置为”通过DLL对EXCEL VBA进行封装 “，最后点击”确定“按钮。

6、打包生成DLL文件

点击”文件“→”生成feifeidownDll文件“，在打开的”生成工程“窗口中，选择文件的保存地址，然后点击”确定“按钮，至此，DLL文件生成完成。