ExcelVBAからIE画面印刷のページ設定方法
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2019年1月9日(水)13時38分 From: サニー | 返事 削除 変更 |
| いつもお世話になっております。 VBA及びIE制御が初心者のため、ご教授ください。 以前も同じ質問(「ExcelVBAからIEの印刷操作について」)があったようなのですが、私も同じ内容で困っているため新たに質問します。 エクセルからマクロでIE画面を開き、1ページ目だけを印刷したいのですが、1ページ目だけというページ設定の方法がわからず困っています。 実際に組んだ内容は下記の通りです。 宜しくお願いします。 ＜流れ＞ @Do while文 AIE起動 B画面移動の完了を待つ C印刷 DIEを閉じる ELoop ＜実際のプログラム＞ Sub ボタン1_Click() Dim ie As Object Dim a As Integer Dim url As String Dim rc As Integer a = 4 Do While Sheets("銘柄").Cells(a, 3) <> "" '変数にエクセルのURLを代入 url = Sheets("銘柄").Cells(a, 3).Value 'IE起動 Set ie = CreateObject("InternetExplorer.application") ie.Visible = True 'URLに移動 ie.Navigate url 'URL移動完了を待つ Do While ie.Busy Debug.Print ie.Busy DoEvents Loop '印刷実行 ie.ExecWB 6, 2, 3 'IE画面を閉じる ie.Quit Set ie = Nothing 'エクセルのセルを移動し次のURLへ a = a + 1 Loop End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
