|
▼pon さん:
>>先行ブックがプレビュー表示されているときは
>プレビューを閉じてください メッセージを出したいと思っているのですが
>取得方法がわかりません
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
モジュールレベルに↑を記述し、
以下のかんじで取得できると思います。
Dim hWnd&
Set xlsApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set xlsApp = CreateObject("Excel.Application")
Else
hWnd = FindWindowEx(0, 0, "XLMAIN", vbNullString)
hWnd = FindWindowEx(hWnd, 0, "EXCELC", vbNullString)
If hWnd Then
MsgBox "プレビュー中"
Exit Sub
End If
End If
|
|