请问怎样使EXCEL窗口成为顶层？

zyz995462

QUOTE:

以下是引用zhoujibin1在2006-7-29 10:40:36的发言：

12 楼的附件就是可以实现你的功能. 帮你搞定了还不知道,以后不再帮你了....

谢谢ZHOUJIANBIN1大侠，确实您在12楼的附件可以实现我的功能。但您别生气，我解释一下：运行12楼的程序确实置于顶层了，但把它最小化一下，然后打开IE网页呀，打开文件夹呀，关闭再打开/最小化/最大化等多次重复后，有时就会失灵的！EXCEL将不会再置于顶层了！天地良心，我发的截图都是真实场景，绝不是伪造开寻开心的。我心里的理想是无论怎样最小化/最大化/关闭再打开/打开一般其他窗口都不会影响EXCEL失去顶层功能

如果觉得我这个菜鸟不断顶贴太厌烦，结贴算啦

[此贴子已经被作者于2006-7-29 11:07:36编辑过]

wzsy2_mrf

新建一个工作薄：

新建一个模块，放上以下代码：
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Sub Window_Top()         '调用API函数,实现窗口最前
    Dim WINWND As Long
    WINWND = FindWindow(vbNullString, Application.Caption)
    SetWindowPos WINWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

在ThisWorkbook模块中：
Private Sub Workbook_Open()
    Window_Top                '调用窗口最前模块
End Sub

asat

很好,但是打开几十秒后好象就不行了~

簡單愛情

这个呀,不懂....

jdmlw

好像没用啊，大师

yzxfelix

正在学习API收藏了