如何用Excel的VBA切换到CAD程序？模拟ALT+TAB功能.

[ningyong58]

在网上找了一下,要实现这个目的.
先用HANDLE hWnd = FindWindow(....)找到该程序的窗口,然后使用SendMessage(hwnd, WM_ACTIVEAPP,....)
或是SetForgroudWindow(hWnd, ....)就可以了,相激活自己也一样
请问各位大侠的问题是不是按hWnd = FindWindow(....)查找相关资料进行学习,才能实现目标需求.谢谢.

excel调用cad程序如下
Function ConnectCad() As AcadApplication
Dim App As AcadApplication
On Error Resume Next
Set App = GetObject(, "AutoCad.Application")
If Err Then
Err.Clear
Set App = CreateObject("AutoCad.Application")
End If
App.Visible = True
Set ConnectCad = App
End Function
excel调用CAD的关键语句,GetObject(, "AutoCad.Application")和CreateObject("AutoCad.Application")
用此模块程序的结果是,在excel中运行CAD只能看到EXCEL程序,要切换到CAD,须点击CAD图标,或alt+tab切换,才能实现目标需求.

[ningyong58]

又找到两个相关帖子,有时间慢慢学习
SendMessage函数巧应用（API）---- http://dev.csdn.net/develop/article/58/58832.shtm
SendMessags谁能给几个例子-------- http://topic.csdn.net/t/20050121/15/3744082.html#

[aohan]

简单的方法

Private Sub Command1_Click()
  SendKeys "%{TAB}"
End Sub

[ning84]

SetForgroudWindow(hWnd, ....)用起来比较麻烦.