ExcelVBAからIE画面印刷のページ設定方法 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
