大量のファイルをWinMergeで比較したスクリーンショットをExcel保存するマクロ

VBA大好き人間です。

今回はWinMergeで大量（300ファイル程度）のファイルを比較して、そのスクリーンショットをExcel保存するマクロを作成しました。

＜マクロ＞

Private Declare Sub Keybd_event Lib "user32" (  _

    Byval bVk As Byte, _

    ByVal bScan As Byte, _

    ByVal dwFlags As Long, _

    ByVal dwExtraInfo As Long)

Private Sub getActiveWindowSS()

    keybd_event &HA4, 0&, &H1, 0&

    keybd_event vbKeySnapshot, 0&, &H1, 0&

    keybd_event vbKeySnapshot, 0&, &H1 Or &H2, 0&

    keybd_event &HA4, 0&, &H1 Or &H2, 0&

End Sub

Public Sub runWinMerge (ByVal pPathA As String, ByVal pPathB As String)

    Dim ShellObj as Object

    Set ShellObj = CreateObject("WScript.Shell")

    ShellObj.Run """<WinMergeのパス>""" " & pPathA & "  " & pPathB, 3, False

    Application.Wait Now + TimeValue("0:00:02")

    getActiveWindowSS

    ShellObj.SendKeys "%{F4}"

End Sub

＜使用例＞

runWinMerge C:\temp\a.txt, C:\temp\b.txt

⇒クリップボードに比較結果の画面イメージが格納されるので好きに利用する。

以上です。

VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]

VBAエキスパート公式テキスト Excel VBA スタンダード