vba 中调用api函数出现问题

用Excel vba调用api的时候出现红色错误，如图所示，我是64位的系统，是不是需要安装什么软件呀

举报该问题

其他回答

第1个回答 2013-04-04

窗体中声明API函数必须加 Private 前缀

第2个回答 2013-04-05

在窗体里面必须声明为私有的用Private 省略后默认是Public，声明的时候要加Private

第3个回答 2013-04-04

你这个是在窗体里面声明还是在模块里声明

在窗体里面必须声明为私有的用Private 省略后默认是Public

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long本回答被提问者采纳

第4个回答 2013-04-04

把 long 换成 integer 试试

相似回答

最近在VBA中使用API时遇到若干问题,期待强人一一解惑 SendMessage、SetW...答：1.记事本标题部分和内容部分的句柄是不一样的，你用setwindowtext对操作标题部分的句柄当然没反应 2.sendmessage模拟鼠标左击时需要用到鼠标左键的键码 Private Const VK_LBUTTON = &H1 SendMessage hwd0, WM_LBUTTONDOWN, VK_LBUTTON, 0 SendMessage hwd0, WM_LBUTTONUP, 0, 0 3.IE的控件(菜...

vba 中调用api函数出现问题答：窗体中声明API函数必须加 Private 前缀

VBA中引用API函数提示“提示子过程或函数未定义”,是否需要勾选工具...答：不需要，需要在程序的Option中声明这个API就可以了，你看看书，应该是少了声明，形如 Declare Function API名字 Lib "API库名，一般是kernel32等" (ByVal 参数列表) As 返回值

求助VBA调用系统API报错,怎么解决答："sheet1").Range("D6") = Application.Min(Range("A1:B4"))这种调用形式，函数参数的数据区域及工作表名称，属于普通型，灵活性不够。③种调用方法Worksheets(1).Range("C6") = Application.Max(Worksheets("Sheet1").Range("A1:B4"))此类调用方法，直接指明工作表名称及数据范围，...

VBA 调用API函数Rectangle画矩形时会有一个黑色的边框,请问怎么设置...答：需要先设置当前画笔的参数（颜色、线宽）。

VB6.0中调不出API函数怎么回事答：调用api函数方法：1：使用声明每个api函数都有声明，声明可以在百度上找，也可以用vb6.0自带的api文本浏览器。将类似 Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)的声明加入代码中（单独列为一行，不要放到其他代码块中）2：使用函数 声明过的api函数就...

excel vba public函数调用相关问题?答：1）只能在本工作表中使用。（你同时打开2张表，注意看一下模块所属的表，会发现模块是属于特定工作表的）2）是需要写全。这个问题其实和第一个问题有点类似。每个函数是有其自己的作用域的。程序中叫名字空间。把sheet1，sheet2比喻成2个班级。sheet1中有个叫Func1的同学。而sheet2中没有。所以你...

哪们大侠看看我这个VBA运行速度超慢的原因在哪,该怎么优化?答：避免使用 Select 和 Activate：在代码中避免使用 Select 和 Activate 语句，以减少 Excel 的无响应和卡顿。避免使用 Find 函数：在代码中使用 Find 函数来查找单元格，会增加代码的复杂性和运行时间。建议直接使用循环来遍历单元格。使用数组：对于大量数据的操作，可以使用数组来存储数据，以减少对 Excel ...

在VBA里调用API答：)Dim Test As StringTest = "ABCDE" '输入值FWnd = FindWindow(vbNullString, "Test.txt - Notepad")'获取弹窗句柄hwndT = FindWindowEx(FWnd, 0, "Edit", vbNullString)'获取输入框句柄m = SendMessage(hwndT, &HC, 0&, Test)'发送值给输入框End Sub'我测试了是可以的，你试试看 ...

大家正在搜

excelvba调用api数据 vba 调用函数 vba调用功能函数 vba怎么调用api vba调用api excelvba调用api vba调用api多线程 vbs调用api excel vba 调用打印