vba 新建进程且窗口置顶 | 您所在的位置:网站首页 › VBA窗体置顶 › vba 新建进程且窗口置顶 |
Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40Private 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 Public 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_NOSIZEEnd Sub
Sub CreateApp()
Dim wb As Workbook ' Set wb = Workbooks.Open("D:/B.xls") Set app = CreateObject("Excel.Application")app.Visible = True app.Workbooks.Open ("C:\vba-test\123.xlsx") WINWND = FindWindow(vbNullString, app.Caption)SetWindowPos WINWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub |
CopyRight 2018-2019 实验室设备网 版权所有 |