IE(Internet Explorer) を操作するサンプルを紹介します。
処理内容は、IEを指定の場所、サイズで開き、指定のURLの情報を表示させています。
Dim objIE
Dim i
Dim intWidth
Dim intHeight
Dim intX
Dim intY
'初期設定(ウィンドウサイズ、表示位置に使用)
intWidth = 1000
intHeight = 800
intX = 100
intY = 100
'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")
'ウィンドウの大きさを変更します
objIE.Width = intWidth
objIE.Height = intHeight
'表示位置を変更します
objIE.Left = intX
objIE.Top = intY
'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.AddressBar = False
'URL指定
objIE.Navigate "http://gaitame.money.jp.msn.com/rate/index.html"
'インターネットエクスプローラ画面を表示します
objIE.Visible = True
処理内容は、IEを指定の場所、サイズで開き、指定のURLの情報を表示させています。
Dim objIE
Dim i
Dim intWidth
Dim intHeight
Dim intX
Dim intY
'初期設定(ウィンドウサイズ、表示位置に使用)
intWidth = 1000
intHeight = 800
intX = 100
intY = 100
'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")
'ウィンドウの大きさを変更します
objIE.Width = intWidth
objIE.Height = intHeight
'表示位置を変更します
objIE.Left = intX
objIE.Top = intY
'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.AddressBar = False
'URL指定
objIE.Navigate "http://gaitame.money.jp.msn.com/rate/index.html"
'インターネットエクスプローラ画面を表示します
objIE.Visible = True