Excel VBA質問箱 IV

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

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


44282 / 76732 ←次へ | 前へ→

【37471】Re:特定の名前のブックが開かれているかどう...
回答  Kein  - 06/5/9(火) 0:30 -

引用なし
パスワード
   いちおう、Win32APIを使う方法も提示しておきます。

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, _
lPalam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Sub Check_MyBook()
  Dim Ret As Long
    
  Ret = EnumWindows(AddressOf Rekkyo, 0&)
End Sub

Function Rekkyo(ByVal hWndX As Long, lParam As Long) As Boolean
  Dim Name As String
  Dim Leng As Long, Ret As Long

  Name = String(250, Chr(0))
  Leng = Len(Name)
  Ret = GetWindowText(hWndX, Name, Leng)
  If Ret <> 0 Then
   If Name Like "*BookX.xls*" Then
     MsgBox "BookX.xls は開いています", 64
     Exit Function
   End If
  End If
  Rekkyo = True
End Function

1 hits

【37460】特定の名前のブックが開かれているかどう... 黄金比 06/5/8(月) 19:02 質問
【37467】Re:特定の名前のブックが開かれているかど... ネット徘徊者 06/5/8(月) 20:16 発言
【37470】Re:特定の名前のブックが開かれているかど... ichinose 06/5/8(月) 23:26 発言
【37471】Re:特定の名前のブックが開かれているかど... Kein 06/5/9(火) 0:30 回答
【37472】Re:特定の名前のブックが開かれているかど... Blue 06/5/9(火) 0:44 発言
【37473】Re:特定の名前のブックが開かれているかど... Kein 06/5/9(火) 1:37 発言
【37476】Re:特定の名前のブックが開かれているかど... Blue 06/5/9(火) 11:08 発言

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