|
楼主 |
发表于 2009-10-21 23:05
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
1、(本帖里)图1 就是vb6.0在桌面的图标,双击它
2、弹出窗口后,先选择ActiveX DLL(图2的红框),再点击打开(图2的蓝框)
3、起个名字(图3蓝色框内文字改为 ABC)
4、先保存一下,桌面新建个文件夹,点击图3红框里的保存标志,弹出另存为对话框,选择桌面》双击刚刚建立的那个文件夹(图4蓝色框)》保存(图4红色框)》保存
5、写代码,模块里输入下面代码
Sub def()
Dim EL As Object
Set EL = GetObject(, "Excel.Application")
With EL.ActiveSheet
.Cells(1, 3) = .Cells(1, 1) & .Cells(1, 2)
End With
Set EL = Nothing
End Sub
(如图5所示)
6、点击文件(图5红色框),在出现的下拉菜单中点击 生成工程1.dll(k)...》(默认保存位置)点击确定
至此,Dll就制作完成了
四、使用dll
1、新建一个excel,A1单元格输入"你",B1单元格输入"好"
2、打开VBE,工具》引用》浏览》找到刚刚创建的文件夹 点击工程1.dll(图6)》点击打开》点击确定
3、插入一个模块,输入下面代码
Sub test()
Dim a As New ABC
a.def
Set a = Nothing
End Sub
4、运行一下代码,C1单元格出现"你好"
至此,一个由制作到使用dll的简单示例全部完成
[ 本帖最后由 HHAAMM 于 2009-10-22 12:09 编辑 ] |
|