![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
こちらが参考になります。
三流君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
No.4
- 回答日時:
この回答への補足
なんとか更新して
印刷可能となりました。
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
No.3
- 回答日時:
VBAでIEのページを印刷可能?
http://www.moug.net/faq/viewtopic.php?t=38664
EXCEL VBAでWEBページ保存2
http://oshiete1.goo.ne.jp/qa4253824.html
No.2
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) 印刷をVBAでしたい とあるフォルダに1〜5までの名前がついたbookが保存されてます このbook 2 2022/03/28 09:30
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2022/08/05 09:12
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL ページを指定してPDF出力...
-
Word 2003でラベル差込印刷の際...
-
エクセルの対象セルの1つしか...
-
R1C1参照形式変更後「名前の重...
-
パワーポイント2007でサウンド...
-
エクセル関数
-
Excelでファイル全体が読み込め...
-
Excelセル番地の表示の変更の仕...
-
Excel 「入力規則」が消えて困...
-
文字化け
-
エクセルにハイパーリンクで貼...
-
iPhoneの電話帳をエクセル化す...
-
三菱GOT画面設計ソフト GT desi...
-
エクセルの『入力規則』について
-
EXCELで括約できますか?
-
エクセルにPDFファイルをリンク...
-
入力規制でエラーメッセージが...
-
ANSYS (アンシス)で困ってい...
-
UNIXタイムスタンプの計算式
-
WPS OfficeのSpreadsheetで、複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL ページを指定してPDF出力...
-
エクセル、不要なページを削除...
-
Word 2003でラベル差込印刷の際...
-
Excel印刷プレビューが遅い件
-
ページごとに分けて保存する方法。
-
マクロでホームページへアクセス
-
エクセルの対象セルの1つしか...
-
Excel 「入力規則」が消えて困...
-
R1C1参照形式変更後「名前の重...
-
Excelでファイル全体が読み込め...
-
ANSYS (アンシス)で困ってい...
-
Excelセル番地の表示の変更の仕...
-
エクセルの列の表示が文字でな...
-
エクセルにハイパーリンクで貼...
-
Calcの読み方
-
エクセルで上と左の数字列の表...
-
エクセルとPDFのURL化
-
面積を計算するソフト
-
294÷6.02×10の23乗の答えを教え...
-
三菱GOT画面設計ソフト GT desi...
おすすめ情報