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

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

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

4、双击”类模块AddInfo“，编写如图所示的代码：Option ExplicitSub 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 = xlSheetVisibleEnd Sub

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