VBA封装为Dll的例子、方法与总结【逐步完善中...】

a19410593

iamgxc 发表于 2011-8-19 12:36
dll文件名为sqltools
在标准模块中
dim t as new sqltools

你讲的是在模块中的运用。
dim t as new sqltools
call t.mysql(cnn)

但是在VB里怎么定义cnn变量？能不能把整个如何封装dll的VB代码都发出来下。非常感谢。

river_t

这样的招一定要学会，哈哈！
就算VBA没学好，这招也要学会。
很脑火那些暴力破解的软件。。。一点有尊重别人的知识产权。。。

liyunfei099

哪位好心人，能够把下面的代码封装成DLL？我很需要在VB6.0封装DLL的原代码。这段代码的功能其实就是在Sheet1表中自动部分，然后复制到Sheet2表，Sheet1表中A列是姓名，用x = Range("a1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row来得到学生人数，但本人水平太低，无法对此封装，希望高手帮忙解决。现附所有代码
Sub 自动总分并复制到sheet2表()
Sheets("Sheet1").Select
Cells.Select
Dim ObjTmp As Object
Set ObjTmp = Selection.Find(What:="总分", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False)
If ObjTmp Is Nothing Then
      MsgBox "找不到总分字段!"
Else
        ObjTmp.Activate
        IRow = ActiveCell.Row
        ICol = ActiveCell.Column
End If
x = Range("a1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
Cells(IRow + 1, ICol).FormulaR1C1 = "=SUM(RC3:RC[-1])"
Cells(IRow + 1, ICol).Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & x - 1)
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

jsmr3d

学习了，谢谢分享

lxlaner

做个标记，下次学习

jicqj

liyunfei099 发表于 2011-10-10 13:14
哪位好心人，能够把下面的代码封装成DLL？我很需要在VB6.0封装DLL的原代码。这段代码的功能其实就是在Sheet ...

封装2.rar (12.58 KB, 下载次数: 192)

2011-11-23 23:16 上传

点击文件名下载附件

封装好了 看看

qczvba

jicqj 发表于 2011-11-23 23:17
封装好了 看看

最好执行后再加一句 set a=nothing 较好。

jicqj

qczvba 发表于 2011-11-24 08:49
最好执行后再加一句 set a=nothing 较好。

有道理 这是个好的编程习惯

qczvba

jicqj 发表于 2011-11-24 11:06
有道理 这是个好的编程习惯

哪里，你的VB6学习得不错，想学习VB6，以后多多指教。能分享一下代码吗？或用SQL编一下，即以表一为数据库，有空分享下？

cloudpm

好东西，谢谢分享