マクロでホームページへアクセス

解決済

質問者：water18
質問日時：2009/03/16 13:54
回答数：4件

マクロなどをもちいてあるサイトのページをひらき
そのウィンドウを印刷したり保存できたりしますか？

どなたかわかる方はいませんでしょうか？
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： xls88
回答日時：2009/03/16 13:58

こちらが参考になります。

三流君VBAでIE操作 InternetExplorer.Applicationを操作する
http://www.ken3.org/cgi-bin/group/vba_ie.asp

IEオブジェクトを作る(IE7編)
http://www.happy2-island.com/vbs/cafe02/capter00 …

この回答への補足

vbsを用いてIEを起動し
目的のページを開くことはできました。

この開いたページを印刷するコマンドなど調べていますが
良く分かりません。あとページを開いてから一度ページを更新をしたいのですが
わからないことだらけですいません。

Option Explicit

Dim objIE

'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")

'ウィンドウの大きさを変更します
objIE.Width = 1280
objIE.Height = 1024

'表示位置を変更します
objIE.Left = 0
objIE.Top = 0

'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.ToolBar = False

'インターネットエクスプローラ画面を表示します
objIE.Visible = True

'(1)指定したURLを表示します
objIE.Navigate "http://www.jma.go.jp/jp/jikei/331.html"

'(2)ページの読み込みが終わるまでココでグルグル回る
Do Until objIE.Busy = False
'空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
WScript.sleep(250)
Loop

'ステータスバーとツールバーを表示します
objIE.Statusbar = True
objIE.ToolBar = True

Set objIE = Nothing

補足日時：2009/03/16 16:04

通報する

- 0
- 件

通報する

No.4

回答者： xls88
回答日時：2009/03/17 08:29

エクセルのVBAでWEBページの更新

http://oshiete1.goo.ne.jp/qa2995836.html

この回答への補足

なんとか更新して
印刷可能となりました。

Option Explicit

Const READYSTATE_COMPLETE = 4
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Dim urls
Dim url

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate("http://www.jma.go.jp/jp/jikei/331.html")
'Do While True
WScript.Sleep(10000)
objIE.Refresh()
'Loop

'印刷する場所(URL)","区切りで複数ページも可能
urls = Split("http://www.jma.go.jp/jp/jikei/331.html")

Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

For Each url In urls
ie.Navigate url
Do Until ie.ReadyState = READYSTATE_COMPLETE
WScript.Sleep 100
Loop
ie.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 3

Next