首頁(yè) 猿問 VBA中引用API函數(shù)提示&ldq...

VBA中引用API函數(shù)提示“提示子過程或函數(shù)未定義”？

Redis

蠱毒傳說 2019-02-05 15:07:25

VBA中引用API函數(shù)提示“提示子過程或函數(shù)未定義”，是否需要勾選工具->引用當(dāng)中某個(gè)選項(xiàng)？或有其他方法？

查看完整描述

3 回答

Smart貓小萌

TA貢獻(xiàn)1911條經(jīng)驗(yàn) 獲得超7個(gè)贊

代碼貼出來吧 API不需要引用什么直接寫聲明然后調(diào)用即可
Private Declare Function getwindowlong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nindex As Long) As Long
Private Declare Function setwindowlong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long
Private Declare Function findwindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpwindowname As String) As Long
Alias 后面的函數(shù)名有大小寫區(qū)別

反對(duì) 回復(fù) 2019-03-15

慕妹3146593

TA貢獻(xiàn)1820條經(jīng)驗(yàn) 獲得超9個(gè)贊

不需要，需要在程序的Option中聲明這個(gè)API就可以了，你看看書，應(yīng)該是少了聲明，形如
Declare Function API名字 Lib "API庫(kù)名，一般是kernel32等" (ByVal 參數(shù)列表) As 返回值

反對(duì) 回復(fù) 2019-03-15

慕容森

TA貢獻(xiàn)1853條經(jīng)驗(yàn) 獲得超18個(gè)贊

估計(jì)是你復(fù)制的時(shí)候聲明里面包含了非法字符或某些地方?jīng)]有空格，我以前經(jīng)常遇到這種情況
建議用vb自帶的工具 “API 文本瀏覽器”來查找并復(fù)制API函數(shù)
****************************
復(fù)制了你代碼，在我這邊我刪除了其中的下劃線，使一個(gè)聲明占一行
運(yùn)行測(cè)試沒問題！

反對(duì) 回復(fù) 2019-03-15