Excel VBAメモ Windows APIを使わずに今開いているウィンドウのタイトルを取得してみる
必要になったので。
あるところで仕入れたら、Windows APIを使わんでもできるそうな。
ポイントはこれに限るかも。
- Word.Applicationでタスクリストを取得する
※Excelなどには実装されてないらしい…
んで、コード。
Public Function GetProcessNames(ByRef objProcesses As Collection)
' Wordアプリケーションオブジェクトを生成する
Dim objWord As Object
Set objWordProcess = CreateObject("Word.Application")
' タスクリストから表示中のものだけ取得する
Dim objTask As Object
For Each objTask In objWordProcess.Tasks
' continueが使えないのでDo-Loopで回避する
Do
' 非表示のプロセスはスキップする
If objTask.Visible = False Then
Exit Do
End If
' プロセス名を出力引数に追加する
objProcesses.Add objTask.Name
Loop While False
Next
' オブジェクトを破棄する
Set objWord = Nothing
End Function
あと、メソッドを呼ぶためのメソッドっぽいの(VBAでいうSubプロシージャ)はこんな感じ。
Public Sub DoFunction()
' ウィンドウタイトルのリストを生成する
Dim objProcesses As Collection
Set objProcesses = New Collection
' ウィンドウタイトルを取得する
Call GetProcessNames(strTitle, objProcesses)
' オブジェクトを破棄する
Set objProcesses = Nothing
' タイトルをイミディエイトウィンドウに表示する
Dim objName As Variant
objName = ""
For Each objName In objProcesses
Debug.Print objName
Next
End Sub
実行したら、こんな感じ。
スタート Microsoft Visual Basic - プロセス.xls [実行中] - [ThisWorkbook (コード)] Microsoft Visual Basic - Book2.xls - [Sheet1 (コード)] Microsoft Excel - Book2.xls Microsoft Excel - プロセス.xls Skype? - xxx@hotmail.com VBAメモ Windows APIを使わずに階層の深いフォルダーを作成してみる - Mozilla Firefox Program Manager
いつ、VBAの実装が変わるか分からんで、永久に使えるかは分かんないけどね…。
んまま、明日の自分へのメモってことで。