ウインドウ操作に必要になるウインドウハンドルを子ウインドウも含めて全て取得したい

以前こちらの記事で（https://officevba.info/window-list/）ウインドウの一覧を取得するコードをご紹介しました。

このコードは階層構造になっている最上段のウインドウのみを取得するものだったのですが、ウインドウの内部をクリックしたり操作したりする際は子ウインドウや孫ウインドウなど下層にあるウインドウを順に取得しないといけないことも多く、一回で必要なすべてのウインドウの情報を取得することができませんでした。

子ハンドルや孫ハンドルを含めてウインドウハンドルを取得できない理由はウインドウの階層が一律でなく一般的なループ処理では対応できないことなのですが、以前フォルダとファイルを全て取得する処理で学んだ再帰処理を使うことで様々な階層のウインドウハンドルを全て取得できるようになりました。

今回は再帰処理を用いて開いているウインドウのすべてのハンドルを取得するコードをご紹介します。

ウインドウハンドルとは？

Windowsは開いたウインドウや、ウインドウに配置されているパーツなどそれぞれに一つずつにハンドルという数値型の値を割り当てて制御しているらしいです。

「ウインドウ」ハンドルと言ってもVBAでいうところのオブジェクトのような感じで、エクスプローラーの開いた画面のような見た目がウインドウのものから、テキストボックスやアイコン、ステータスバーなど色々なものに割り当てられていて、理論上はウインドウハンドルさえ取得できればWindowsAPIを用いて対象を自由に操作できるらしいです。（私自身が何でもできるわけではありませんのでらしいと記載しましたがかなり機能は豊富そうです。）

上記の通りWindowsAPIを用いて操作対象のウインドウを指定する際、このウインドウハンドルを指定することが大事なのですが、ウインドウハンドルはウインドウを開くたびにランダムに新しい数値が割り当てられるため、プログラムを実行する過程でウインドウハンドルを取得する手段がないとWindowsAPIでは操作ができないということになります。

再帰処理とは？

再帰処理はプロシージャの中に自分自身を呼び出すコードを記載することで、ループ処理時の階層が一定でなくても各階層に同じ処理を行うことができることです。

よく使われるのはあるフォルダの中に様々な階層のフォルダが格納されていてそれぞれにファイルが格納されている際に、各階層を順に探ってファイルとフォルダの一覧を書き出したり、ファイルをコピーしたりするのに使われます。

ちなみに上記のような処理をしたい場合、Pythonの標準モジュールのglobを使えば引数を一つ指定するだけで再帰処理を実行することが可能です。
VBAではコードを書いて実装しないといけないですが書き方に慣れが必要なので、この辺りはPythonの方が新しい言語でより洗練されている気がします。

再帰処理を用いたウインドウハンドルを取得するVBAコードについて

ウインドウが階層構造になっていて、かつウインドウごとに一定の階層ではないというのが再帰で解決できるぴったりの環境で、以前ウインドウハンドルの一覧表を作成するコードを勉強していた時には再帰処理の書き方を知らなかったので実装できず、作成したコードはウインドウの最上位だけを取得するのみでした。

必要なウインドウハンドルを取得するため、必要な場合は一層下ったものを探る処理を何度も繰り返して取得していましたが、再帰処理を使えば一回で全部解決させることができますし、今回の以下のようなコードの書き方では階層の情報も把握できるのでかなり便利になります。

'ウインドウの中の次または前のウインドウハンドルを取得する
Declare Function GetNextWindow Lib "user32" _
    Alias "GetWindow" _
    (ByVal hWnd As Long, _
    ByVal wFlag 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

'ウインドウが可視かどうかを取得する
Declare Function IsWindowVisible Lib "user32" _
    (ByVal hWnd As Long) As Long

'ウインドウのクラス名を取得する
Declare Function GetClassName Lib "user32" _
    Alias "GetClassNameA" _
    (ByVal hWnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
    
'ウインドウハンドルの子を取得する
Declare Function FindWindowEx Lib "User32.dll" _
    Alias "FindWindowExA" ( _
    ByVal hWndParent As Long, _
    ByVal hwndChildAfter As Long, _
    ByVal lpszClass As String, _
    ByVal lpszWindow As String) As Long
 
'ウインドウハンドルを取得する
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2

Sub 再帰でWindow一覧のキャプションとクラスを取得する()
    
    With ActiveSheet
        .Cells(1, 1) = "ハンドル"
        .Cells(1, 2) = "クラス名"
        .Cells(1, 3) = "キャプション名"
    End With
    
    Dim k As Long: k = 2
    Dim hWnd As Long: hWnd = FindWindow(vbNullString, vbNullString) '引数をvbNullStringにすると1つめのウインドウを取得する

    Call ウインドウの取得recursion(hWnd, k)

End Sub

Sub ウインドウの取得recursion(ByRef hWnd As Long, ByRef k As Long)
    
    Dim strClassNameCh As String * 100
    Dim strCaptionCh As String * 80
    
    Do
        If IsWindowVisible(hWnd) Then
            
            GetWindowText hWnd, strCaptionCh, Len(strCaptionCh)
            GetClassName hWnd, strClassNameCh, Len(strClassNameCh)
            
            Dim i As Long: i = ActiveSheet.UsedRange.Rows.Count + 1
            
            With ActiveSheet
                .Cells(i, 1).Value = hWnd
                .Cells(i, k).Value = Left(strClassNameCh, InStr(strClassNameCh, vbNullChar) - 1)
                .Cells(i, k + 1).Value = Left(strCaptionCh, InStr(strCaptionCh, vbNullChar) - 1)
            End With
            
            DoEvents
            
            Dim hWndCh As Long: hWndCh = FindWindowEx(hWnd, 0, vbNullString, vbNullString)
            Call ウインドウの取得recursion(hWndCh, k + 2)
        
        End If
        
        hWnd = GetNextWindow(hWnd, GW_HWNDNEXT)
        
    Loop Until hWnd = GetNextWindow(hWnd, GW_HWNDLAST)
            
End Sub

同僚からの依頼でzipファイル格納のVBA検討

最近社内でメールのシステムが変更になり、これまで外部への添付ファイルは自動で「①zipに格納→②パスワード生成→③別メールでパスワードを送付」ができていたのですが、手作業でzipを作成することになりました。

元々パスワード付きzipファイルをメールで送るフロー自体が色々と問題を引き起こす可能性も指摘されているので、その運用自体止めてしまえばよい気もするのですが、セキュリティ対策の主観部署がこれまで行っていたzip格納を止める判断をしなかったらしく上記のように手作業の負担が増えていました。

今回はパスワード付きzipファイルに必要なファイルを連続で圧縮するExcelVBAコードを考えてみました。

zip格納に「LhaPlus」を使用する

以前こちらの記事で紹介していますが、zip格納を安定して実行するためにLhaPlusというフリーソフトを使用します。

Windows標準の機能を呼び出してzip格納をする方法もあるのですが、公式なサポート外らしくエラーが起こるし動作が不安定でした。
LhaPlusはコマンドプロンプトから操作ができるようになっていて、それを利用することでVBAからも自動操作が可能になります。

今回考えた自動zip格納VBAツールの仕組み

今回私が考えたツールの動作と業務のフローは以下の通りです。

事前準備

①zipファイルに格納したいファイルをフォルダごとにまとめてあるフォルダに格納

②zip変換用フォルダをまとめて格納しているフォルダにツールファイルも一緒に格納（vba162_zip一括返還211219.xlsm）

詳細は以下の画像のような状態です。

ツールファイルの画面

ツールファイルは以下のような画面で作成しています。
まずzipを作成するためのフォルダ一覧を取得して、パスワードを手入力したあと、zipを作成するフローを想定しています。

ツール操作実行手順

①フォルダ取得ツールでzipに格納したいフォルダ一覧を取得
「フォルダ取得」ボタンをクリックするとツールフォルダが格納されているフォルダをB1セルに表示し、その中のサブフォルダを一覧にしてA列に取得して入力

②作成するzipファイルのパスワードを入力（B列）
パスワードが規則性のあるものにするならVBAで自動化することもできますが、今回は手入力するフローにしています。

③zip格納ボタンをクリック
サブフォルダの中のファイルが同じ名前のzipに格納され、作成されたサブフォルダ「zip格納」の中にzipファイルが作成される

今回作成したVBAコード

①フォルダ取得

Sub フォルダ取得()
    
    Dim FSO As Object, WSH As Object
    
    Dim FoldPath As String
    Dim FolderName As String
    Dim ArrFolderName() As String
    
    Dim i As Long, k As Long
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FoldPath = ThisWorkbook.Path

    Cells(1, 2) = FoldPath
    i = 0
    FolderName = Dir(FoldPath & "\*", vbDirectory)
    Do While FolderName <> ""
        If InStr(FolderName, ".") = 0 And FolderName <> "zip格納" Then
            ReDim Preserve ArrFolderName(i)
            ArrFolderName(i) = FolderName
            Cells(i + 4, 1) = FolderName
            'Cells(i + 4, 2) = Left(Cells(i + 4, 1), 4)
            i = i + 1
        End If
    FolderName = Dir()
    Loop
    
End Sub

②zip格納

Sub サブフォルダzip格納()

    Dim Cmd As String
    Dim ArrFileName, FileName
    Dim FSO, WSH
    Dim 前FoldPath, 後FoldPath

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set WSH = CreateObject("Wscript.Shell")

    WSH.CurrentDirectory = "C:\Program Files (x86)\Lhaplus"

    '前FoldPathに格納されているサブフォルダをzip格納して後FoldPathに格納
    前FoldPath = Cells(1, 2)
    後FoldPath = Cells(1, 2) & "\zip格納"

    'zip格納用のフォルダ作成
    If FSO.FolderExists(後FoldPath) = False Then
        FSO.CreateFolder 後FoldPath 'フォルダ作成
    End If

    '後で使用する対象ファイル一覧表が残っていたら削除
    If FSO.FileExists(前FoldPath & "\圧縮リスト.txt") = True Then
        FSO.DeleteFile 前FoldPath & "\圧縮リスト.txt"
    End If

    Dim i
    i = 4
    Do Until Cells(i, 1) = ""
        ArrFileName = ""
        FileName = Dir(前FoldPath & "\" & Cells(i, 1) & "\*.*", vbNormal)
        Do While FileName <> ""
            If ArrFileName <> "" Then
                ArrFileName = ArrFileName & vbCrLf & 前FoldPath & "\" & Cells(i, 1) & "\" & FileName
            Else
                ArrFileName = 前FoldPath & "\" & Cells(i, 1) & "\" & FileName
            End If
        FileName = Dir()
        Loop

        'コマンドプロンプトは文字数の上限があるので、対象ファイル一覧を「圧縮リスト.txt」に入力
        With FSO.CreateTextFile(Cells(1, 2) & "\圧縮リスト.txt")
            .WriteLine ArrFileName
            .Close
        End With

        'cells(i,2)がPassword 空欄ならパスワード設定なしでzip格納
        Cmd = "Lhaplus.exe /c:zip /n:" & 後FoldPath & "\" & Cells(i, 1) & ".zip" & " /p:" & Cells(i, 2).Text & " /l:" & Cells(1, 2) & "\圧縮リスト.txt"

        WSH.Run "%ComSpec% /c " & Cmd, 7, True

        FSO.DeleteFile Cells(1, 2) & "\圧縮リスト.txt"

    i = i + 1
    Loop

    Set FSO = Nothing
    Set WSH = Nothing

End Sub

動作確認の動画とあとがき

今回作成したコードを実行した動画は以下の通りです。

パスワード付きzipファイルをメールで送る文化には賛否両論ありますが、私の会社含めまだまだ根強く残ると思います。
自動サービスがなくなっていってしまう中手作業でこの処理を続けるのは結構つらいと思うので自動処理を考えてみました。

今回ご紹介したコードはコマンドプロンプトを起動している時間PCを使えない（キャンセルしてしまう可能性がある）ので、大量のファイルをzipに格納する場合、別のPCを使うか休憩時間前などに実行だけして休憩時間中に作成することをおすすめします。

ExcelVBAで画像ダウンロードを自動化する手順

仕事で色々なウェブサイトにアップされている複数の画像をダウンロードする必要があり、その手順を自動化するのにどうすればよいかネットで調べていたところ、WindowsAPIのURLDownloadToFileを使う方法を見つけました。

今回はURLDownloadToFileを用いてウエブページの画像やファイルをダウンロードする方法をご紹介します。

WindowsAPIのURLDownloadToFile関数について

WindowsAPIはWindowsで行う処理をプログラム上で実行するために用意されている機能です。
私もほんの数種類しか把握できていないのですが、WindowsAPIには色々な分野にわたり便利な機能がたくさんあります。

導入にはコツが必要で、慣れないと使うハードルが高いのですが、このWindowsAPIはExcelをはじめとするVBAでも使用することができ、使いこなすことでVBA単独では難しい様々な処理をすごく簡単に実行できるようになります。

今回ご紹介するのはWindowsAPIのURLDownloadToFileという関数で、これはウェブサイトからファイル・画像などをダウンロードするための専用の関数です。

（他にもWindowsAPIを用いて表示されているウインドウを取得したり、ボタンをクリックしたり、テキストボックスに文字を入力したりする方法、待ち時間を設定する方法などをご紹介していますので興味あればこちらのカテゴリページから見てみてください。）

VBAでURLDownloadToFile関数を使う事前準備について

VBAでURLDownloadToFile関数を使うためには、実行させるコードにURLDownloadToFile（〇〇）という内容を記載するだけでなく、URLDownloadToFileとはAPIのこの関数ですよというのを事前に登録しておく必要があります。

具体的には宣言セクションに下記の内容を記載します。

一応ざっくりと説明すると「urlmon」というライブラリファイルに用意されている「URLDownloadToFileA」という関数を「URLDownloadToFile」という名前で使用しますという意味らしいですが、おまじないのようなものなので詳しく意味を把握していなくても問題ありません。

画像のダウンロードに関しては現実的な方法として、対象のページを開くことが多いと思いますので、宣言セクションに下記も併せて記述してSleep関数も使用できるようにしておく方が良いと思います。

その他に準備としてIEを用いてウェブページを開いて操作するので、「ツール」→「参照設定」から下記2つのチェックを付けて利用できるようにしましょう。

URLDownloadToFileの使い方について

上記のURLDownloadToFileの事前準備をしておけばVBAで使用する自体は簡単です。

ダウンロードを実行したいプロシージャ内に「URLDownloadToFile(0, ウェブ上のURL, 保存先フォルダ, 0, 0)」と書けばOKです。
引数は対象ファイルのウェブ上のURL、ダウンロード先のフォルダ名になります。

あとダウンロードがうまくいった場合、URLDownloadToFile関数は「0」という数字を返すので戻り値を取得できるように下記のように記述するのが一般的だと思います。

VBA界の権威であるOfficeTANAKAの田中先生もご自身のサイトで記載されていましたが、URLDownloadToFile関数自体の使い方は簡単ですが、ウェブの対象ファイルのURLをどうやって取得してくるかの方がはるかに難しいと思います。

URLDownloadToFileの実行サンプル

URLDownloadToFile関数の使い方を各だけではこの関数の使い方や便利さを実感しにくいと思ったので、下記のようにサンプルを考えてみました。

これはワークシートのA1列に表示されているURLのページに埋め込まれている画像ファイルをすべてデスクトップの「画像」というフォルダに格納するVBAコードになります。

この方法だと多少強引で無駄も多いのですが、対象サイトの構造をあまり詳しく調べなくても全部の画像データを取得できるので汎用性は高いと思います。

また特定のファイルだけダウンロードしたい場合にもファイル名の規則などを調べるのにも役立ちます。

私は楽天のサイトで商品検索結果が表示されているページで画像を取得するイメージでコードを作りました。

楽天のサイトの場合、SVG拡張子のロゴなどが大量に含まれていたり、対象ファイル名にWindows上で使用できない文字が含まれているためにダウンロードが進まなかったりしました。
そのあたりは少しページごとに調整が必要になります。

あとはダウンロードをする際にJPGのみにするとかPNGのみにするとか特定の文字を含むものにするかなど検討するとムダなダウンロードをせずに済みますので、工夫次第でより便利なコードにできると思います。

HTMLオブジェクトを取得できても操作できないケースの対応方法を調べた結果をご紹介

直近で私が作業の自動化を行ったウェブサイトでは、HTMLの構造を取得して文字を入力しても受付されないものがありました。

ログイン画面にIDとパスワードを入力して個別ページに移動する際、不正ログインを防止するためなのか、単純に無効なIDとパスワードを検出するためなのか不明ですが、テキストボックスに入力したIDとパスワードをうまく読み込んでいない現象がありました。

今回はウェブサイト側に認識される形でテキストボックスにIDとパスワードを入力する方法について私が調べて作ったExcelコードを紹介します。

HTMLオブジェクトを取得できても操作できないケースと対処法

HTML情報から対象となるオブジェクトを取得できても操作できないケースでこれまで私が遭遇したものとしては、JavaScriptなどのプログラムが含まれている場合があります。

一例として、取得したオブジェクトをクリックした際にある場所に入力されている内容をサーバーに送信したりするプログラムが実行されるものがあったりすると操作がうまく進まないケースがあります。

簡単なプログラムであれば内容を見てそのプログラム自体を一つずつ手作業で入力した時と同じ順序で実行していく方法が考えられます。
プログラムの実行方法はこちらのページで紹介しています。

今回の操作対象では実行されるプログラム処理内容の詳細は見えなかったので上記のプログラムを実行する方法が使えませんでした。

ただ、今回のケースではIDとパスワードを入力してログインするフローの中で、IDとパスワードを入力するにあたって、カーソルを移動させるタイミングで入力された値をチェックするプログラムが働いていることが挙動を見ていてわかりました。

そのため、オブジェクトの位置を認識してマウスを移動させてカーソルを合わせてクリックしてやれば問題が解決するのではないかと推測し、対応方法を調べました。

IEのオブジェクトの画面での位置を取得するAPI関数

IEのオブジェクト位置を取得するAPI関数は「IUnknown_QueryService」というものです。

あまり私自身詳しく把握していないのですが、4つの引数のうち最初の引数にオブジェクトを指定すると4つ目の引数に位置情報を含むデータが出力されるという使い方ができるようです。

（本来は使い方が違うのかなと思いますので詳細わかりましたら追記いたします。）

宣言部分の記載方法は下記の通りです。

第二・第三引数で使用するGUIDの構造体の宣言も必要となります。
ややこしいので意味わからなくてもおまじないと思って宣言部分に記載すれば大丈夫です。

例えばGoogleのページを表示した後、検索文字を入力するテキストボックスの位置を取得し、左クリックを押してカーソルを合わせるVBAコードは下記の通りです。

位置を取得したあと、カーソルを合わせる、クリックするなど後の処理があるのでSetCursorPosやmouse_eventなどのAPIも同時に使用します。
これらの使い方についてはこちらの記事をご参照ください。

VBScriptのすぐに起動できるメリットを生かす

最近RPA（Robotic Procee Automation）で業務効率化に取り組んでいますが、ある種類のアプリの中でウインドウを閉じる挙動がうまくいかず、開いているウインドウを閉じる方法を考えていました。

RPAだけを使っての解決方法は知識が足りず実現できず、とりあえず納期までにロボットを完成させないといけなかったのでWindowsAPIを使用してウインドウを閉じるツールを作り、それをRPAで起動して対処するという逃げ技を用いることにしました。

WindowsAPIはExcelVBAやAccessVBAで実行しても良かったのですが、できればファイルを開いたときにコンテンツの有効化などもクリックする必要なく、すぐに実行できる方法が良かったので、VBScriptでコードを書いてみました。

今回はアプリのWindowsAPIを用いてウインドウを閉じるVBScriptで操作する方法をVBAでの記載方法と比較しながら紹介します。

ウインドウを閉じるのに用いるWindows API関数は2つ

開いているウインドウを閉じるのに直接用いるWindows API関数は下記2種類です。

①FindWindowA

開いているウインドウのウインドウハンドルを取得するのに用います。

②PostMessage

ハンドルを取得したウインドウに対して閉じるコードを送信します。

またその他にクラス名を調べるにはIsWindowVisible・GetClassName・GetNextWindowのWindows API関数を使用しています。

ウインドウのクラス名を取得する方法はこちらのページをご確認ください。

ウインドウを閉じるWindowsAPIを用いたVBAコードとVBScript

今回はAdobeReaderで開いたPDFファイルのウインドウを閉じるVBAコードとVBScriptをご紹介します。
事前にAdobeReaderのクラス名が「AcrobatSDIWindow」であることを確認してからコードを作成しています。

上記のコードをテキストエディタなどにコピペして、ファイルの拡張子を「.vbs」にすればファイルの完成です。
ダブルクリックなどで起動すると開いているPDFのファイルが1つ閉じます。

VBScriptでのWindowsAPI活用のポイント

VBScriptでのWindowsAPI活用のポイントは下記2点です。

①WindowsAPIを呼び出すのにExcelVBAを使う（もしくは他のVBAでもOKらしい（？））

WindowsAPIをVBscriptで直接使用するのはハードルが高いようで、方法がわかりませんでした。
調べたところVBAを中継して起動する方法が手軽そうだったのでExcelを介して使ってみました。

AccessやWordでもできるようですが、私が調べた限り方法がわかりませんでした。
またわかればご紹介します。

②WindowsAPI関数は「Excel.ExecuteExcel4Macro(“CALL(～)”)」で実行する

Excelを中継してVBScript内でWindowsAPI関数を使用する際はVBAで通常WindowsAPIを使用する場合と書き方が異なるようです。
書式としてはExcel.ExecuteExcel4Macro(“CALL(～)”)でAPI関数を指定します。

Call関数の引数は「ライブラリ名」・「API関数名」・「API関数の返り値の型とAPI関数の引数の型をアルファベット1文字で表記したもの」・「API関数で使用する引数（複数の場合「,」で区切る）」の順で記載します。

3つ目の「API関数の返り値の型とAPI関数の引数の型をアルファベット1文字で表記したもの」はlongの値渡しの場合「J」、末尾がNullの文字列の値渡しは「C」となるようです。

関数自体の返り値を1文字目にして、2文字目以降はAPI関数の引数の型となりますが、複雑でわかりにくいので細かいこと考えず、どこかのネットのサンプル丸写しでもいい気がします。

ウインドウのクラス名やキャプション名が取得できれば色々便利

ウインドウ操作をする際、対象となるウインドウを特定するにはウインドウハンドルを用いるのが一般的です。

このウインドウハンドルはウインドウごとの固有の値になりますが、開くたびに新しい値が割り振られるため、操作の度、毎回確認する必要があります。
そのためウインドウハンドルを取得する前段階としてクラス名・キャプション名を把握しておく必要があります。

厳密にはこちらの記事に書いたようにどちらか片方の一部だけでも取得していれば繰り返し処理などでウインドルハンドルを取得できるのですが、コードが煩雑になったりわかりにくくなります。

今回は簡単にウインドウ取得に役立てられるクラス名・キャプション名一覧表を取得するVBAコードをご紹介します。

クラス名・キャプション名とは

Windows上で開いているウインドウはすべてウインドウハンドル・クラス名・キャプション名などのプロパティを持っています。

詳しくはこちらの記事でご紹介しましたが、クラス名はアプリケーションごとに固有の文字列、キャプション名はアプリケーションごとに異なり、ファイル名とアプリケーション名のどちらかまたは組み合わせの文字列です。

ウインドウハンドルはウインドウを開くたびに固有に割り振られる数字のため、変化することのないクラス名・キャプション名からウインドウハンドルを取得して操作対象を指定するのが一般的なウインドウ操作の流れになります。

VBAのコードを書く際はクラス名・キャプション名があらかじめわかっているアプリケーションを操作する方が、クラス名・キャプション名がまったくわからないアプリケーションを操作するよりもはるかにコードが簡単になります。

クラス名・キャプション名の一覧を取得するVBAコード

今開いているウインドウのクラス名・キャプション名の一覧を取得するVBAコードは以下のようになります。
使用するWindowsAPIは「FindWindow」「IsWindowVisible」「GetWindowText」「GetClassName」「GetNextWindow」の5つです。

それぞれの使い方についてはこちらの記事を参考にしてください。

WindowsAPIでのウインドウ取得には色々な手順がある

前回はウインドウの取得によく使われるWindowsAPIの関数とウインドウのプロパティを紹介しました。
これらのWindowsAPIの関数は機能が重複しているようで、ウインドウの取得に関してたくさんのアプローチがあります。

今回はこのWindowsAPIを使用して効率よくウインドウを取得する手順をいくつか紹介します。

ウインドウの取得手順

ウインドウを取得する（=操作対象として確定する）のはウインドウハンドルを取得するのが基本となります。
ウインドウハンドルを取得できれば、最前面に表示してアクティブにもできますし、キーボードやマウスでの操作も可能になります。

AppAtivateメソッドをキャプション名を引数に入れて実行してもウインドウを最前面にすることはできますが、その他の操作にはやはりウインドウハンドルを取得しておいた方が融通が利きます。

ここでは実際よく起こる下記のような条件の場合のウインドウを取得する手順についてご紹介します。

①キャプション名がわかっている場合

WindowsAPIを使用する場合、キャプション名を指定した「FindWindow」関数でウインドウハンドルを取得します。

②クラス名がわかっている場合

同じクラス名のウインドウが他になければFindWindow(“クラス名”,vbNullString)で取得します。
他に同じクラス名のウインドウがある場合、クラス名が不明の下記④の手順でウインドウハンドルを取得します。

③クラス名不明・キャプション名は一部だけわかる

まず、クラス名・キャプション名をVbNullStringに指定してFindWindow関数を使用することで最初のウインドウを取得します。
続けてそこからGetNextWindow関数で順番に最後までウインドウハンドルを取得します。

ウインドウハンドル一覧を取得すると当時にGetWindowText関数を用いてウインドウハンドルに対するキャプション名を取得し、あらかじめわかっていたキャプション名の一部を照合して該当のウインドウハンドルを取得します。

下記の例ではGoogleChromeのウインドウハンドルを取得する手順を記載しています。
GoogleChromeはキャプション名が見えませんが、「Chrome」の文字で認識をかけることでウインドウハンドルを取得しています。

また、GetClassNameを使用すればキャプション名の全体を取得することも可能です。

キャプション名、クラス名いずれも全く見当がつかない場合、一覧を書き出してみて確認する方法もあります。
ウインドウのキャプション名・クラス名の一覧表を作成するVBAコードはまた別の機会に紹介します。

WindowsAPIを使用すると色々な手順でウインドウが取得できる

前回はAppActivateメソッドを用いて、操作対象のウインドウをアクティブにするVBAコードを紹介しました。

この方法はコードが簡単で記述しやすいのですが、キャプション名というウインドウに表示されている名称を正確に記載しなければエラーになる難点があり、キャプション名が不明な場合操作できない問題点があります。

WindowsAPIの関数を使用するとキャプション名がわからない場合やキャプション名の一部しかわからない場合でもウインドウを取得できるようになります。

今回はウインドウを取得するのによく使われるプロパティとWindowsAPIをいくつか紹介します。

ウインドウを取得するのに必要なプロパティ

ウインドウには「ウインドウハンドル」「クラス名」「キャプション名」のプロパティがあり、これらのうち最低1つか、場合によっては2つの値を把握することでウインドウを取得できます。

キャプション名を把握している場合は以前にご紹介したAppActivateでウインドウを取得できます。

その他のケースにおいてはどの情報を取得しているかで使用するWindowsAPIの関数が変わってきます。

①ウインドウハンドル

ウインドウごとに割り振られる固有の数値で、WindowsAPIを使用してのウインドウの取得に使う基本の値となります。

WindowsAPIではウインドウハンドルを取得して様々な処理行いますが、このウインドウハンドルはウインドウが開かれるたびに新しい値が割り振られるため、毎回値を取得しなおす必要があります。

ウインドウハンドルを取得している場合、「SetForegroundWindow」関数を用いて対象とするウインドウを最前面に表示する（=アクティブにする）ことができます。

②クラス名

アプリケーションごとに異なる文字列を表します。
エクスプローラーなら「CabinetWClass」、Excelなら「XLMAIN」となります。

同じアプリケーションのウインドウが1つだけの場合、クラス名を知っていれば「FindWindow」関数を使用してウインドウハンドルを取得することができます。

ウインドウハンドルを取得した後は①の通り「SetForegroundWindow」関数を使ってウインドウを最前面に表示することができます。

同じクラス名で複数のウインドウが起動されている場合はキャプション名が必要になります。
キャプション名が一部しかわからない場合は全部のウインドウハンドルとキャプションを取得し、該当するウインドウハンドルを選ぶ必要があります。

③キャプション名

キャプション名はほとんどの場合、アプリケーションウインドウの上部に表示される文字列です。
ほぼ固有の名称ですが、同じアプリで同じファイルを複数開いた場合などまれに重複することがあります。

アプリケーションウインドウの上部に表示されている場合はそのままでOK、表示がなかったり、スペースが半角か全角かわからないなどの場合は全部のウインドウハンドルとキャプション名を取得してその中から該当するウインドウハンドルを決定します。

ウインドウを取得するのによく使うWindowsAPI関数

ウインドウを取得するのによく使うWindowsAPIの関数は以下のようなものがあります。
それぞれの使い方を記載します。

①SetForegroundWindow

引数に指定したハンドルのウインドウを最前面に表示するAPIです。
引数がウインドウハンドル一つで使い方がわかりやすいAPIです。

構文：SetForegroundWindow (ウインドウハンドル)
宣言部分：Declare Sub SetForegroundWindow Lib “user32” (ByVal hWnd As Long)

上記は私の現在の環境でのウインドウハンドルを記入してウインドウを取得しています。

ウインドウハンドルの数字がそのままわかることはあまりないので、通常はSetForegroundWindowを使用する前にウインドウハンドルを取得するステップを行っていると思います。

②FindWindow

ウインドウハンドルを取得するAPI関数です。

①のSetForegroundWindowとは異なり関数としての戻り値があり、ウインドウハンドルが返されます。

構文：ウインドウハンドル = FindWindow(“クラス名”, “キャプション名”)
宣言部分：Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

クラス名・キャプション名が不明な場合、「VbNullString」と記入すると複数あるウインドウのうち、ウインドウハンドルの値が最も小さいものを取得するようです。

クラス名・キャプション名をどちらも「VbNullString」にすると一番最初のウインドウを取得することができます。

③GetWindowText

ウインドウハンドルからキャプション名を取得するAPI関数です。

構文：GetWindowText ウインドウハンドル, キャプション名を格納する変数, Len(キャプション名を格納する変数)
宣言部分：Declare Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

下記の流れでキャプション名を表示させることができます。

少し不思議な感じがするのですが、
GetWindowText 263636, strCaption, Len(strCaption)
と記入するとウインドウハンドル「263636」のウインドウのタイトルがstrCaptionという変数に格納されます。

この関数自体の戻り値をrc= GetWindowText 263636, strCaption, Len(strCaption) のように設定してrcがキャプション名になるわけではないので注意が必要です。

私はこのイメージがなかなかつかめなくてなかなか使いこなせませんでした。

また、GetWindowTextで取得したキャプション名には文字がなくなった後にNull値が含まれているらしく、そのNull値を除くためにLeft関数でNull値が出てくる直前までの文字数を抜き出す必要があります。

④GetClassName

ウインドウハンドルからクラス名を取得するAPIです。
使い方はキャプション名を取得するGetWindowTextとほぼ同じです。

構文：GetClassName ウインドウハンドル, クラス名を格納する変数, Len(クラス名を格納する変数)
宣言部分：Declare Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

⑤IsWindowVisible

引数に指定したウインドウハンドルを持つウインドウが可視かどうか判定します。
可視の場合「1」、不可視の（見えない）場合「0」を返します。

これはC言語のTRUE、FALSEに相当する値ですが、VBAとは正の場合の値が異なります。
VBAでのTrueは「-1」なので「If～End If」を使用した条件分岐ではTrueを使ってもきちんと判定できません。

C言語、VBAで共通の値である「False（0）」を用いて判定するようにしてください。

構文：IsWindowVisible(ウインドウハンドル)
宣言部分：Declare Function IsWindowVisible Lib “user32” (ByVal hWnd As Long) As Long

「If IsWindowVisible(263636) <> False Then」の部分は「If IsWindowVisible(263636) Then」とすることでも判定可能です。
慣れてくればこちらの使い方の方が本来の使い方の気がします。

この関数も①SetForegroundWindowと同じくウインドウハンドルが必要なので、他のAPIなどでウインドウハンドルを取得した上で使用したり、他のAPIを用いて、開いているウインドウの情報をすべて取得する場合などに使用するもので、このAPI関数単独で使用する機会はほぼないと思います。

⑥GetNextWindow

構文①：ウインドウハンドル = GetNextWindow(ウインドウハンドル, GW_HWNDNEXT)
構文②：ウインドウハンドル = GetNextWindow(ウインドウハンドル, GW_HWNDLAST)
宣言部分：Declare Function GetNextWindow Lib “user32” Alias “GetWindow” (ByVal hWnd As Long, ByVal wFlag As Long) As Long
Const GW_HWNDLAST = 1
Const GW_HWNDNEXT = 2

指定したウインドウハンドルの次のウインドウハンドルを取得します。

Do～loopを用いて開いているウインドウのウインドウハンドルをすべて取得する場合などに重宝するAPIです。

定数部分は宣言せずに第二引数に数字を入力しても動作しますが、数字だけだとわかりにくくなるので宣言しておく方がおすすめです。
最初のウインドウを指定することもできますが、最初の指定はウインドウハンドルを必要としない「FindWindow(vbNullString, vbNullString)」の方が便利です。

今回紹介したウインドウ取得に関するAPIを使用して実際にウインドウハンドルを取得したり、ウインドウを最前面に移動する方法はこちらの記事で紹介します。

ウインドウの取得は操作の基本

色々なアプリをマクロやVBAで操作する場合、対象となるウインドウ（=画面）をアクティブ取得して最前面に持ってくることが第一歩となります。

今回はデスクトップ上に開いている画面を取得するVBAコードを紹介します。

VBAでのウインドウの取得

VBAでのウインドウの取得に関してはウインドウタイトル（キャプション名）を事前に把握しておく必要があります。
ウインドウタイトル（キャプション名）を使用して下記のようなコードを入力することでウインドウを取得することができます。

この例ではエクスプローラーで開かれている「編集前」というフォルダのウインドウを最前面に表示します。

第二引数のTrueかFalseはフォーカスがVBAもしくはExcelの画面に戻るまで実行するのを待つかどうかで、通常Falseを使用するのが一般的だと思います。
1回だけしかウインドウの取得をしなければ別ですが、2回以上ウインドウを移動する場合、いちいち移動の度にVBAやExcelなどの画面にフォーカスを戻すのは現実的ではないと思います。

この第二引数は省略可能で、省略するとFalseになりますので、普段はTrueにするかFalseにするかは特に意識せず何も記載しなくて大丈夫です。

ウインドウタイトル（キャプション名）がわからない場合や空白の全角半角が難しい場合

ウインドウタイトル（キャプション名）は下記のようなパターンで決められているようです。

ExcelやVBAは②に該当し、Chromeはウインドウタイトル（キャプション名）が表示されませんが③に該当しているようです。

ウインドウタイトル（キャプション名）が表示されないアプリケーションの場合、ウインドウの取得するにはまずこれらのパターンを試してみるとよいかもしれません。

②と③のケースでは空白は半角が一般的ですが、もしこれらを試しても取得できない場合はWindowsAPIを使用してウインドウ名を取得する方法があります。

また、その他にウインドウハンドルと言われるウインドウごとの固有値を取得して特定のウインドウを最前面にする方法もあります。
これらの手順はWindowsAPIの使い方の記事で紹介します。

色々なアプリ、システムの操作

コマンドプロンプトやその他の方法でアプリやシステムを操作できると手順を自動化するのに役立ちますが、この方法での操作ができないアプリやシステムも多いです。

システム上で直接操作できないアプリ・システムを操作したい場合、簡易的な方法としてキーボードやマウス操作の手順を実行するキーボードイベントやマウスイベントがあります。

今回はマウスの操作手順を実行させるマウスイベントについてご紹介します。
キーボードの操作を実行させるキーボードイベントについてはこちらをご確認ください。

マウスイベントのVBAでの実行はほぼ定型文を記載

マウスの操作を行うにはWindowsAPIのライブラリから「SetCursorPos」「mouse_event」を引用します。

記載方法に関してはすべて把握しておかなくても定型文（おまじない）みたいな感じでコピペするだけでOKです。
下記にサンプルコードを紹介します。

mouse_eventにおいてマウス左クリックを押す命令が「&H2（10進数の2）」、左クリックを離す命令が「&H4（10進数の4）」となります。
また右クリックは同様に「&H8（10進数の8）」「&H10（10進数の16）」が割り振られています。
それぞれを覚えておけば特に定数を宣言する必要がありませんが、わかりにくくなるために宣言して使用しています。

あと、16進数を使うのが一般的なようですが、10進数でも問題なく動作するようです。

おまじないの中で「Optional ByVal dx As Long」の部分を「Optional ByVal dx As Long = 0」としておくとmouse_eventを呼び出したときに「0」を記載する必要がなくなります。

「dy」「dwDate」「dwExtraInfo」も同様で、先に宣言しておくと「0,0,0,0」を省略できますので、たくさんマウスイベントを使用する際は参考にしてみてください。