双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VBA内如何处理调用dll里的Null参数

2016-09-21 02:29:05 304 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

bluesnail1986 墨衍会员 · AI 创作全网分发关注 + 加入社区

【Excel VBA 编程】文件操作API函数声明及其应用 VBA中与基础文件操作相关的API函数（CreateFile、WriteFile、CloseHandle）及典型示例阅读详情

VBA里调用dll里的函数，这些函数有可能有指针类型的参数，而有时候调用时这些参数不能传有效值进去。例如ReadFile，最后一个参数如果是Null就代表用同步的方式去读取COM口数据。问题是，在VBA里调用这种函数时，怎么将ByRef传递的参数写成空呢？

...全文

C++封装Excel操作DLL：基于OLE自动化实现高性能批量处理在数据处理与自动化领域，动态链接库（DLL）作为一种高效的代码复用和模块化技术，广泛应用于系统集成和性能关键型场景。其核心原理在于将特定功能封装为二进制模块，供不同编程语言调用，从而提升开发效率和运行性能。在Windows平台上，COM（组件对象模型）技术为应用程序间的互操作提供了标准化接口，而OLE（对象链接与嵌入）自动化则是基于COM实现应用程序（如Microsoft Excel）自动化控制的关键机制。通过OLE自动化，开发者可以编程方式驱动Excel，执行读写、格式设置、公式计算等完整操作，这为需要深阅读详情

bluesnail1986

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

bluesnail1986 2016-09-22

打赏
举报

引用 4 楼 Chen8013 的回复:

你要把参数类型改为Long、　或者 Any 。调用时 Byval 0　就表示“NULL”。

嗯，今天找到方法了，是我自己把指针和ByRef理解混淆了。不过你说的是对的。

舉杯邀明月 2016-09-21

打赏
举报

你要把参数类型改为Long、　或者 Any 。调用时 Byval 0　就表示“NULL”。

bluesnail1986 2016-09-21

打赏
举报

引用 1 楼 of123 的回复:

试试直接写 0。例： Private Declare Function SendMessagebyString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long SendMessagebyString cboFile.hWnd, CB_SETDROPPEDWIDTH, DROPPEDWIDTH, 0

回错帖子了，回给我自己了... 试过了，会报错，提示与ByRef类型不匹配不止是0，Null/Nothing也都试过，都不行 Private Declare PtrSafe Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long 最后一个参数，怎么写成空？

bluesnail1986 2016-09-21

打赏
举报

引用楼主 bluesnail1986 的回复:

VBA里调用dll里的函数，这些函数有可能有指针类型的参数，而有时候调用时这些参数不能传有效值进去。例如ReadFile，最后一个参数如果是Null就代表用同步的方式去读取COM口数据。问题是，在VBA里调用这种函数时，怎么将ByRef传递的参数写成空呢？

试过了，会报错，提示与ByRef类型不匹配不止是0，Null/Nothing也都试过，都不行 Private Declare PtrSafe Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long 最后一个参数，怎么写成空？

of123 2016-09-21

打赏
举报

试试直接写 0。例： Private Declare Function SendMessagebyString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long SendMessagebyString cboFile.hWnd, CB_SETDROPPEDWIDTH, DROPPEDWIDTH, 0

✦双11狂欢大促✦

VBA内如何处理调用dll里的Null参数

相关推荐

双11狂欢大促