読者です 読者をやめる 読者になる 読者になる

Excel VBAでIEを操作 最小化と最大化

ShowWindowを使う

Dim ObjIE As Object  '変数を定義

'Sleepを使用する場合のお約束
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'ShowWindowを使用する場合のお約束
Declare Function ShowWindow Lib "user32" (ByVal hwindow As Long, ByVal cmdshow As Long) As Long


Sub IE_open()

  Set ObjIE = CreateObject("InternetExplorer.Application")  'IEを開く際のお約束
  ObjIE.Visible = True                                      'IEを開く際のお約束
  ObjIE.Navigate "http://www.yahoo.co.jp"                   '開きたいサイトのURLを指定

  Sleep (1000)                                              '1秒間待つ
  
  Do While ObjIE.ReadyState <> 4                            'サイトが開かれるまで待つ(お約束)
    Do While ObjIE.Busy = True                              'サイトが開かれるまで待つ(お約束)

    Loop
  Loop
  
'   ret = ShowWindow(ObjIE.hWnd, 3)                         '最大化(コメント化してあります)
  ret = ShowWindow(ObjIE.hWnd, 2)                          '最小化

End Sub

ネタ元