WINDOWS API入门实例：枚举EXCEL子窗口的API函数

sqt199199

hey, could you explain whats the difference between API and userform?

xq1234

楼主你好，我想得到指定“工作簿”的句柄（而不是活动工作簿），代码该如何写呢？

指定工作簿的标题形式可能是“工作簿1.xls   [兼容模式]”类似的样式

cbtaja

如果不确定工作薄是否已经打开，用以下代码：

1. Sub test()
   
2. For Each wb In Application.Windows
   
3.     If wb.Caption = "工作簿1.xls" Then myhwnd = wb.Hwnd: MsgBox myhwnd
   
4. Next
   
5. End Sub

复制代码

反之，直接用以下代码：

1. Sub cs2()
   
2.     myhwnd = Workbooks("工作簿1.xls").Windows(1).Hwnd
   
3. End Sub

复制代码

xq1234

谢谢，你的思路很有效

我原来把VB的中的窗体从属于“EXCEL应用程序”，但觉得不够完美（ SetParent Me.hwnd,Application.hwnd

有了你的代码，终于将VB的中的窗体从属于“工作簿”了
（Ecl为VB中的Excel对象）

        myhwnd = Ecl.Workbooks("五线谱.xls").Windows(1).hwnd
        SetParent Me.hwnd, myhwnd ' Ecl.hwnd 'SetParent Me.hWnd, GetObject(, "EXCEL.application").hWnd

xq1234

cbtaja 发表于 2016-5-26 15:42
如果不确定工作薄是否已经打开，用以下代码：

反之，直接用以下代码：

还有一个问题：
Workbooks("工作簿1.xls").Windows(1).Hwnd 代码中，EXCEL2013版才有Hwnd属性，EXCEL2010及以下的，如何查找工作簿窗口的句柄？？？

cbtaja

xq1234 发表于 2016-5-27 09:34
还有一个问题：
Workbooks("工作簿1.xls").Windows(1).Hwnd 代码中，EXCEL2013版才有Hwnd属性，EXCEL201 ...

对于Windows操作系统来说，window的hwnd属性是必然的。但是，对于Excel.Application，它的Hwnd属性应该是在2003版时开始提供的。
不管怎样，使用windows API，从顶层窗口开始，遍历窗口，总是能找到Caption为"工作簿1.xls"的窗口，确定出对应的Hwnd。换句话说，在应用程序不直接提供hwnd属性这个功能时，仍然可以使用Windows API 来获取，而不受限于应用程序所提供的有限支持，这就是Windows API这个最底层接口存在的意义。

xq1234

谢谢你的回复，我总算成功了：

          Dim i As Long
        
          hWndWin = Ecl.hwnd '得到EXCEL主程序的句柄。直接从Application属性中取得
          hWndWin = FindWindowEx(hWndWin, 0&, "XLDESK", vbNullString) '找到EXCEL程序的工作区窗口的句柄
        
          i = FindWindowEx(hWndWin, 0&, vbNullString, Wb.Windows(1).Caption)      '找到指定工作簿窗口的句柄
          If i = 0 Then i = FindWindowEx(hWndWin, 0&, vbNullString, Wb.Windows(1).Caption & "  [兼容模式]")  '找到指定工作簿窗口的句柄，带 "  [兼容模式]" 字样
         
          If i <> 0 Then
              SetParent Me.hwnd, i        '让VB窗体从属于“工作簿”
          Else
              SetParent Me.hwnd, Ecl.hwnd ' '让VB窗体从属于“Excel应用程序”
          End If

renahu

cbtaja 发表于 2014-4-18 15:24
补充内容 (2014-6-26 20:43):
附件中的代码有一个小错误，请坛友下载后自行修改（因为论坛设置： 上传的 ...

请教一下老师，我想用FindWindowEx 找到窗体中 frame1的句柄，不知道怎么做？我主要是想尝试让frame可以透明，因为frame本身是不可以设置成透明的

早睡不早起

学习了，谢谢楼主！

ly_19811105

回帖是一种美德.学习了