VBA開発

VBAでIE操作「Internet Explorerを最小化/最大化/元のサイズに戻す」

Internet Explorerを最小化/最大化/元のサイズに戻す

Excel VBAマクロでIEを自動操作する際、画面サイズを最小化、最大化、元のサイズに
WindowsAPIを使用して、画面サイズを変更します。

IEを最小化、最大化、元に戻すサンプルコード

'■ShowWindow(WindowsAPI)を使用する為宣言(Excel 32bit/64bit両方)
#If VBA7 Then
    Private Declare PtrSafe Function ShowWindow Lib "USER32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Boolean
#Else
    Private Declare Function ShowWindow Lib "USER32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Boolean
#End If
'■InternetExplorerで画面を最小化、最大化、元に戻す
Sub sample_IE_Refresh()
    Dim objIE As InternetExplorer
    Dim chk As Long
    
    '■IEを起動
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
 
    '■指定したURLに飛び、Webサイトの表示を待つ
    objIE.navigate "https://vba-create.jp/"
    Call Call_IE_WaitTime
    
    '■画面サイズを最大化
    chk = ShowWindow(objIE.hwnd, 3)

    '■画面サイズを最小化
    chk = ShowWindow(objIE.hwnd, 2)
    
    '■画面サイズを元に戻す
    chk = ShowWindow(objIE.hwnd, 1)

End Sub

注意点

その他

Internet Explorerを使用して、Webスクレイピングは敷居が高い風に捉えられますが、
上記のように、パーツ化して組み合わせ処理するだけです。

Web上のデータを触りたい要望は会社様でも個人様でも多いと思います。
VBA IE操作を覚えて効率化しませんか?
作成が大変であれば弊社で代行開発も可能です。お気軽にお問い合わせください。

 

コメント

タイトルとURLをコピーしました