窗体代码封装DLL方法发布！带源码

桃花岛岛主

终于搞定了！现在发布这个方法！

在EXCEL里面做好VBA程序！执行没有问题的话就可以计划转到DLL了！

首先你要安装VB6.0企业版！

打开VB6.0，新建DLL!救会出现类模块了！方法跟一般的DLL封装一样！

然后再把VBA里面的窗体，再在VB6.0里面做一次！

然后把代码修改一下！

然后DLL！！OK了！

下面是我的源码1！

YLZGfi8H.rar (16.77 KB, 下载次数: 2841)

2006-12-11 12:42 上传

点击文件名下载附件
窗体代码封装DLL方法发布！带源码

桃花岛岛主

Sub dc()
Dim xlapp As Object, xlbok As Object, xlsht1 As Object, t As Integer
 Set xlapp = GetObject(, "Excel.Application")  '取得Excel实例
 Set xlbok = xlapp.activeworkbook           '取得Excel实例下活动工作簿
 Set xlsht1 = xlbok.Worksheets("wo")
 
 xlsht1.Cells(1, 1) = userForm1.Textbox1.Text

 End Sub

上面的代码就是要把VB6.0里面的窗体弄到EXCEL里面过程了！在控件前面加一个窗体名称！就是这个很有突破！！

Aeolian-Vox

好。多谢分享你的东东。拜读中。

stonerain

看看，学习！

stx1980710

QUOTE:

以下是引用桃花岛岛主在2006-12-11 12:48:58的发言：

Sub dc()
Dim xlapp As Object, xlbok As Object, xlsht1 As Object, t As Integer
 Set xlapp = GetObject(, "Excel.Application")  '取得Excel实例
 Set xlbok = xlapp.activeworkbook           '取得Excel实例下活动工作簿
 Set xlsht1 = xlbok.Worksheets("wo")
 
 xlsht1.Cells(1, 1) = userForm1.Textbox1.Text

 End Sub

上面的代码就是要把VB6.0里面的窗体弄到EXCEL里面过程了！在控件前面加一个窗体名称！就是这个很有突破！！

多谢分享！

原来这个在VB6中的代码编写方法类似于

在VBA中编写类模块。

桃花岛岛主

这东西绝对是震撼人心的啊！昨晚都没有睡觉！凭这家伙，俺绝对是VIP级别的HOME成员！

zhoujibin1

恭喜恭喜, 成就来于坚持.

建议: 类的定义中有重复性,是否简化些,窗体中又定义了一次类,觉得不需要再定义啦. 你试验下,我没时间去做,做好再交流.

这是你的学习成绩,不错不错,继续努力. 不过不要太高兴,这些东西其实都是已有的,所以不是绝对是震撼人心的.

桃花岛岛主

对于新人来说很震撼！当然也离不开你们元老的指点！在实际应用中遇到向例子里面简单的做做还可以！但是复杂的也要去钻研啊！

桃花岛岛主

类，这个窗体里面的类一定要加的◎！不然在执行里面的过程无法执行了！

其实用VB6.0操作EXCEL就不存在要在类模块编写代码了！直接在窗体俩民编辑好代码，因为生成DLL后只有一个DLL文件，所以在窗体里面的代码也是看不到了！建议直接在窗体里面编写代码，就好了！

stx1980710

QUOTE:

以下是引用zhoujibin1在2006-12-11 13:16:14的发言：

恭喜恭喜, 成就来于坚持.

建议: 类的定义中有重复性,是否简化些,窗体中又定义了一次类,觉得不需要再定义啦. 你试验下,我没时间去做,做好再交流.

这是你的学习成绩,不错不错,继续努力. 不过不要太高兴,这些东西其实都是已有的,所以不是绝对是震撼人心的.

周博士，在使用类的时候，应该要先声明吧！

在上面的例子中，窗体中使用类时，需要再定义吧！

不熟悉VB，不过在VBA中，在使用类的时候，应该要先声明！