vb如何调用用dll(vb编写的动态链接库)_ExceL对接用友金蝶

http://blog.sina.com.cn/u/5831663924

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

vb如何调用用dll(vb编写的动态链接库)

(2016-03-12 23:07:07)

标签：

vb调用dll

vb调用dll的过程

vb调用dll的sub

vba学习

vba

分类： VB学习

网址:http://blog.sina.com.cn/s/blog_15b9821340102w6c3.html

这里我们先只介绍用vb的标准工程调用dll中的过程(sub)(不含参数的传递)

1. 比如:我们用vb编写了一个dll,名字叫:A01_mdf_vba(并且已经注册了)<注册方法可以参考如何注册dll的文章>

2. A01_mdf_vba中被调用的过程在类模块:"jch01_05_明细表"

3. 被调用的过程(sub),的名字叫:"jch01_05_明细表_页签_执行_实时刷新的_SQL语句_并_查询出数据"

---------------------------------------

在vb的标准工程中,的书写方式如下:

public sub vb的某某工程()

'---调用dll:---类模块:<<span style="line-height: 21px;">jch01_05_明细表>---过程:<<span style="line-height: 21px;">jch01_05_明细表_页签_执行_实时刷新的_SQL语句_并_查询出数据>

'1. 定义一个object对象变量

Dim MingCheng_LeiMoKuai_03 As Object

'2. 给变量赋值为:dll中的类模块

Set MingCheng_LeiMoKuai_03 = CreateObject("A01_mdf_vba.jch01_05_明细表")

'3. 调用dll中的过程

Call MingCheng_LeiMoKuai_03.jch01_05_明细表_页签_执行_实时刷新的_SQL语句_并_查询出数据

end sub

-------------------------------

这里要注意:dll中的sub过程,必须是public才行

具体代码举例:

Private Sub Command1_Click()

'---开始实时刷新按钮

'---数据刷新用到的dll中的过程,设置的变量

Dim MingCheng_LeiMoKuai_03 As Object '定义一个object对象变量

Set MingCheng_LeiMoKuai_03 = CreateObject("A01_mdf_vba.jch01_05_明细表") '给变量赋值为:dll中的类模块

'---通过循环判断,打开个工作簿是不是,数据工厂的文件,如果是,则进行数据的刷新

Dim EL_App As Excel.Application '定义excelapp的工程(用来调用excel时使用)

Set EL_App = New Excel.Application

Set EL_App = GetObject(, "Excel.Application")

EL_App.Visible = True '显示excel

EL_App.ScreenUpdating = False '停止屏幕刷新

Tingzhi = False

Dim Wb As Workbook

'---判断该路径的文件是否已经打开(通过循环),判断

For Each Wb In EL_App.Workbooks

Wb.Activate '激活该工作簿

'---调用"指定的dll中"---的"某个类模块"中的--某个"对应的过程"

Call MingCheng_LeiMoKuai_03.jch01_05_明细表_页签_执行_实时刷新的_SQL语句_并_查询出数据

Tingzhi = False

EL_App.ScreenUpdating = True '开启屏幕刷新

Set MingCheng_LeiMoKuai_03 = Nothing '释放类资源

End Sub

-----------------------------------------------------------------------

---------------------------

用友数据分析

欢迎访问:http://www.df-bi.com
更多数据分析模型,欢迎扫描"微信公众号"
或者查找微信公众号:"DF数据工厂" 或 "data_f"

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：VB在编写调用数据库程序时,经常使用"引用"和"部件"

后一篇：vb窗体上如何显示当前的日期和时间

新浪BLOG意见反馈留言板　欢迎批评指正