调用系统自带计算器的代码是什么？

CHABEI

RT

taller

shell("calc.exe")

yuanzhuping

QUOTE:

以下是引用taller在2006-12-26 21:27:57的发言：
shell("calc.exe")

学习了。请问能否把计算结果直接赋到单元格中？

taller

QUOTE:

以下是引用yuanzhuping在2006-12-26 21:31:35的发言：

学习了。请问能否把计算结果直接赋到单元格中？

Excel本身就可以计算，为什么要舍近求远呢

northwolves

QUOTE:

以下是引用taller在2006-12-26 21:36:20的发言：

Excel本身就可以计算，为什么要舍近求远呢

精度不同，比较一下：

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" 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

Sub macro1()
Dim temp As String, i As Long, j As Long
Application.ScreenUpdating = False
Shell "Calc.EXE", vbMinimizedNoFocus '运行计算器
For j = 1 To 20
temp = j + 100 & "y0.5="
For i = 1 To Len(temp)
SendKeys Mid(temp, i, 1), True '向计算器顺序发送按键消息X (X^Y) 0.5=
Next
temp = String(64, Chr(0))
i = FindWindow(vbNullString, "计算器") '窗口句柄
i = FindWindowEx(i, ByVal 0&, "Edit", vbNullString) '编辑框句柄
SendMessage i, &HD, Len(temp), ByVal temp '发送编辑框文本至temp
Cells(j, 1) = j + 100 & "的平方根"
Cells(j, 2) = "'" & Sqr(j + 100)
Cells(j, 3) = "'" & temp
Next
[a:c].Columns.AutoFit
SendKeys "%{F4}", True '调用ALT+F4关闭计算器窗口
Application.ScreenUpdating = True
End Sub

yuanzhuping

谢谢版主！收下慢慢消化。

客非

northwolves 发表于 2006-12-26 22:52
QUOTE:以下是引用taller在2006-12-26 21:36:20的发言：Excel本身就可以计算，为什么要舍近求远呢精度不同， ...

大佬请教一下，win10版本下运行计算器，怎么能取到运行结果呢？我试过用ctrl+v，但是报错【自动化错误2147221040 (800401d0)】
另外，子窗口好像并不是必须的，至少对输入字符来说不是。

1. Private Declare PtrSafe Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
2. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
3. Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
   
4. Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPtr
   
5. Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As LongPtr
   
6. Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
7. 
   
8. Private Const sleepTime = 100   'ms
   
9. Private Const WM_SETFOCUS = &H7
   
10. Private Const WM_GETTEXT = &HD
    
11. Private Const WM_GETTEXTLENGTH = &HE
    
12. Private Const WM_CLOSE = &H10
    
13. Private Const WM_QUIT = &H12
    
14. Private Const WM_COPYDATA = &H4A
    
15. 
    
16. Function macro() As String
    
17.     Dim hwnd As Long
    
18.     Dim hwndEx As Long
    
19.     Dim result As String
    
20.     Dim resultLen As Long
    
21.    
    
22.     Shell "Calc.exe", vbHide
    
23.     Sleep sleepTime
    
24. 
    
25.     hwnd = FindWindow("ApplicationFrameWindow", vbNullString)
    
26.     hwndEx = FindWindowEx(hwnd, 0&, "ApplicationFrameInputSinkWindow", vbNullString)
    
27. 
    
28.     ShowWindow hwnd, 1
    
29.     SetForegroundWindow hwnd
    
30.     Sleep sleepTime
    
31.    
    
32.     SendKeys "%2"
    
33.     Sleep sleepTime
    
34. 
    
35.     SendKeys "^v"
    
36.     Sleep sleepTime
    
37. 
    
38.     SendKeys "~"
    
39.     Sleep sleepTime
    
40. 
    
41.     resultLen = SendMessage(hwndEx, WM_GETTEXTLENGTH, ByVal 0&, ByVal 0&)
    
42.     result = Space$(lngLen)
    
43.     SendMessage hwndEx, WM_GETTEXT, ByVal resultLen, result
    
44.    
    
45.     SendKeys "%{F4}", True
    
46.    
    
47.     macro = result
    
48. 
    
49. End Function

复制代码