削除

システム管理のIE操作をVBAで行うには削除

Message#2 2014年12月8日(月)18時37分
From: VBAマスター

とりあえず、HTMLを少し理解できるならば、それほど難しい話ではありません。基本的には、

・input、button、form等のタグを特定する。
・IEオブジェクトを作成する(IE起動)。
・目的のタグオブジェクトを取得する。
・目的のアクション(入力、押下)を行なう。

となります。後はVBAの手続きの問題だけです。

例えば、下記のページは、「ds.txt」と入力してボタンを押せば、テキストが出てきますので、それを自動化してみます。
http://www.ajaxtower.jp/ini/html/sample5.html

Sub test()
Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=True
ie.Navigate("http://www.ajaxtower.jp/ini/html/sample5.html")

'ビジーウエイト
Do
DoEvents
Loop Until (ie.Busy=False) And (ie.ReadyState=4)

'5秒ウエイト
Application.Wait Now + TimeValue("00:00:05")

Set inobj=ie.document.getElementsByTagName("input")
Set txt=inobj.Item(0)
Set bt=inobj.Item(1)

txt.Value="ds.txt"
bt.Click
End Sub

まずは、目的のテキストボックスやボタンを特定して、所定のアクションを起こすことから始めてみてはいかがでしょうか。それさえ完成させれば、データの読み込みとループの追加だけで済みます。

とりあえず主なメソッドは、以下のものです。

・「ie.document」配下のメソッド
getElementByID：id属性を元にタグを取得
getElementsByTagName：指定したタグを全て取得
getElementsByName：指定したname属性のタグを全て取得

・タグオブジェクト配下のメソッド
getAttribute：指定した属性値を取得する

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。