Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16256 / 76732 ←次へ | 前へ→

【65945】Re:先行ブックプレビューの有無取得
回答  mura  - 10/7/9(金) 14:27 -

引用なし
パスワード
   ▼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
0 hits

【65870】先行ブックプレビューの有無取得 pon 10/7/3(土) 12:29 質問
【65936】Re:先行ブックプレビューの有無取得 熊谷隆史 10/7/9(金) 6:47 発言
【65945】Re:先行ブックプレビューの有無取得 mura 10/7/9(金) 14:27 回答
【65947】Re:先行ブックプレビューの有無取得 pon 10/7/9(金) 20:08 発言
【65952】Re:先行ブックプレビューの有無取得 mura 10/7/10(土) 0:19 回答
【65968】Re:先行ブックプレビューの有無取得 熊谷隆史 10/7/11(日) 7:31 発言

16256 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free