ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2099|回复: 15

[分享] 为夕阳添一抹余晖——VB6封装Dll调试方法

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-1-7 10:34 | 显示全部楼层 |阅读模式
有人说,VB6早已下山,也有人仍感觉到它的温暖,这是因为各人所处位置不同,有人在山的这边,有人在山的那边。

想交流一下VB6封装心得,有点纠结,说吧,怕拖住您的脚步,耽误您使用更好的工具。不说吧,总有人卡在这里。
还是略略说一下调试。如何封装的帖子、好帖子实在太多了,就不说了。

VBA程序调试很简单。其实,VB6调试也不难,就一句话的事,在立即窗口中输入过程名并回车启动即可。

1、模块过程的调试。

用VB6封装程序,通常类模块只是起接口作用,主要过程都在模块中,调试时,打开立即窗口,输入过程名(如ChengxuA)并回车,即可启动程序。

2、类模块过程的调试。
附件中,类模块有一过程Main(),你不能直接在立即窗口中启动它。但可以在模块中插入一过程,引用类模块并执行其中过程:

Sub Test2()
    Dim cs As New Sjh.CeShi
    Call cs.Main
End Sub

在立即窗口中,调用Text2()即可调试Main()。

3、对工作表操作的调试。
不言而喻,对Excel对象操作的调试非常重要。其实,方法也很简单,先在Excel中打开工作簿,然后如下所示写好测试过程:

Sub Test3()
    '为测试做准备
    Dim xlApp As Excel.Application, wb As Excel.Workbook
    Set xlApp = GetObject(, "Excel.Application")
    For Each wb In xlApp.Workbooks
        If wb.Name = "测试数据.xlsm" Then Exit For
    Next
    If wb Is Nothing Then Exit Sub

    '对过程ChengxuB()测试开始
    Call ChengxuB(wb.Sheets(1))
End Sub

接下来,还是在立即窗口中启动Test3()即可。

4、逐语句调试。
与VBA调试程序一模一样,在过程适当地方按F9插入断点,启动程序后便可从这里开始,按F8逐语句调试。

QQ截图20240107094803.jpg

Dll封装调试.rar

7.75 KB, 下载次数: 81

评分

9

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-1-7 11:14 | 显示全部楼层
老师,Set xlApp = GetObject(, "Excel.Application")是调用excel,但目前碰到很多只安装了wps,导致写的u程序程序(新建工作簿)的时候出错,如何判断?

TA的精华主题

TA的得分主题

发表于 2024-1-7 11:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
大神,能帮忙看看ADO怎样连接Dataverse数据吗,谢谢了

TA的精华主题

TA的得分主题

发表于 2024-1-7 11:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-1-7 16:04 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-1-7 16:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
点赞版主

TA的精华主题

TA的得分主题

发表于 2024-1-7 16:27 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-1-7 16:40 | 显示全部楼层
好久之前学了下,网上各样都有,知识杂乱,但照着来又失败。如果大神能详细铺开来讲那不愧是顶贴。

TA的精华主题

TA的得分主题

发表于 2024-1-8 09:06 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-8 09:19 | 显示全部楼层
shiruiqiang 发表于 2024-1-7 11:14
老师,Set xlApp = GetObject(, "Excel.Application")是调用excel,但目前碰到很多只安装了wps,导致写的u ...

抱歉,我也不知道。我的电脑安装的是Excel。

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 09:20 , Processed in 0.042723 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表