[文件] excel vba使用sendmessage
軟體:excel
版本:2007
想使用excel去取得記事本內的文字
程式碼如下，但一直得到"DLL呼叫規格錯誤"
想請問問題出在哪裡，謝謝。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2
As String) As Long
Const WM_GETTEXT = &HD
Sub aaf()
Dim winHwnd As Long
Dim s As Variant
Dim ff As String
winHwnd = FindWindow(vbNullString, "未命名 - 記事本")
btn = FindWindowEx(winHwnd, 0, "edit", NullString)
s = Space(250)
ff = SendMessage(btn, WM_GETTEXT, 250, ByVal s)
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 1.170.243.117
Office 近期熱門文章
PTT數位生活區 即時熱門文章