VBAで「このページから移動しますか」というダイアログを閉じる

 前回の続きでもありますが、ブラウザでページを閉じようとしたり、他のページに移動しようとした時に、「このページから移動しますか」というダイアログが表示される場合がありますが、VBAでスクレイピングしようとした時に邪魔になったりします。

Pythonとかでやるのであれば、リンク先のURLを直接GETして、BeartifurSoupに放り込むだけなので、ページ遷移とか気にしなくていいんでしょうが、VBAだとIEを間接的に操作して行うので、このダイアログをなんとか閉じなければいけないようです。

WindowsAPIから、SetForeGroundWindow とSendKeysを使用して、無理やりENTERキーとか、スペースキーを押してやるという方法もありますが、その瞬間フォーカスを奪われてしまうので、VBAを走らせながら、他の作業を同時にやってたりすると、ちょっとストレスになってしまいます。

というわけで、VBAからなんとかこのダイアログを閉じる方法を探してみましたが、微妙にうまく動作しないので、あれこれと組み合わせたりちょっと修正を加えたりした結果です。


 ObjIE.Document.Script.SetTimeout "javascript:open('about:blank', '_self'),close();",10

 Application.Wait Now() + TimeValue("00:00:01")

 hWnd = FindWindow(vbNullString, "Winows Internet Explorer")

 If hWnd <> 0 Then

    PostMessage hWnd, &H111&, vbOk, 0

 End If


もちろん、WindowsAPI の FindWindow とPostMessage をしようしているので、それぞれDeclare で宣言しておく必要があります。

"Winows Internet Explorer" の部分はもちろん IE の場合なので、このあたりは環境によって変更が必要でしょう。

いろいろ見て回ったので、どこのサイトかわからなくなってしまいましたが、VBA からHTML上のボタンを押して遷移するときに、コントロールがシステムに取られてしまうので、PostMessage がうまく動作しないため、javascript を使用してリンクをクリックしてやるという方法が書かれていたのですが、私としては、HTML上のリンクから移動したいのではなく、直接リンクはされていない別のページを取得したかったので、javascript でページを閉じるという動作になっています。

ん？なんか話が違うな。別のページを取得するんじゃないのか？って感じですが、普通に ObjIE.Navigate でページ遷移してやれば、普通に PostMessage が通ります。

あと、1秒待つという動作をいれてますけど、これって必要ないのかな？まあ、よくわからないけど入れておきます。

あと前回のエントリの続きですが、やはり ObjIE は、宣言しなおしたりせずに使いまわして、Navigate で遷移していくというのが良いようです。

コメント

コメントを投稿

このブログの人気の投稿

VBAでOutlookメールのフォントを変更する

まあ、ぐだぐだと愚痴も書いていきますが、本題から書いておきます Sub FontTest()     Dim myOutlook As Object     Set myOutlook = CreateObject("outlook.application")     Dim myItem As Object     Set myItem = myOutlook.CreateItem(olMailItem)     Dim myDoc As Word.Document     Set myDoc = myItem.GetInspector().WordEditor     myItem.Body = "hogehoge"     myDoc.Content.Font.Name = "Meryo UI"     myItem.Display End Sub こういうのってブログに載せる際の作法とかあるのかな？ まあ、よくわからないので気にしないでおきます。 エクセルVBAから新規にOutlookメールを作成するというのは 以前にやったことありまして、 今回、同僚が、私が以前作成したものを改変して作ったけど、 添付ファイルの前後でフォントが違ってしまう、との相談。 正直、なぜそうなったのか原因不明だし、私の環境じゃ その現象の再現もできなかったんですが、 フォントを全部変更しちゃえばいいでしょとか、 軽く答えてみたが、その方法がよくわからなかったわけです。 VBAでOutlookのメール本文を編集しようとすると、 ものすごくめんどくさいんですよね。 メールがテキスト形式なら、bodyを適当に置き換えてやれば済みますけど、 HTML形式やリッチテキスト形式だと、 何が何だかわからない感じになります。 まあ、それはさておき、フォントの変更ですが、 ネットで検索するとなかなか答えが見つからず、 特にリッチテキスト形式のフォント変更の方法が見つけられませんでした。 リッチテキスト形式では変更できないから、 HTML形式にしてstyleタグを付け足せというものと、 一旦HTML形式に変換してフォント変更し...
続きを読む

システムのシャットダウンは既にスケジュールされています

「システムエラーです： &H800704A6(-2147023706) システムのシャットダウンは既にスケジュールされています」 というエラーメッセージが出ました。 作成したVBAは、IEで2つのページをスクレイピングするマクロでした。 1つ目のページを読み込み終わった後、2つ目のページを開く前、 具体的には Dim objIE As New InternetExplorer もしくは、 Set objIE = CreateObject("InternetExplorer.Application") という行で、IEオブジェクトを作成しようとしたときにエラーが出ます。 このエラーって、マクロで開くページとは別に、 IE で他のページが開かれている状態だと、発生しません。 ここからは推測になりますが、 Quit で IE を終了させても、裏で終了処理が動いており、 完全処理が終了する前に、新たに IEオブジェクトを作成しようとすると、 まだ IE を終了させている途中だからダメだよっていうエラーが出るようです。 他のページが開かれていると、IEのプロセスは終了されず、 残ったままですから、エラーが発生しません。 回避策は…、よくわかりません。15秒くらい待てば大丈夫ですけどね。 あるいは IEを完全に終了させないように、別のページを開いたままにしておくとか、 全ての作業が終わってから IEを終了させるかでしょうか？
続きを読む

VBA　引数として渡す変数とその宣言

 以前、VBAを使用してエラーが出たため、検索してみた内容で、 他のプロシージャや関数に引数を渡すときに変数を使用しようとするとエラーが出ることがあるんですが、 Dim で変数を宣言するときに、複数の変数を一つの行で同時に宣言しているとエラーが出ることがあるので、変数はひとつずつ宣言しましょうというのを見た。 当時、何でだよ？とか思ってたんですが、最近調べていたら、 Dim Param1, Param2 As String のように宣言した場合、String型として宣言されているのは Param2 だけで、Param1は型が宣言されておらず、Variant型になるそうな。 Param1 と Param2 両方を String型として宣言したい場合は、 Dim Param1 As String, Param2 As String とそれぞれ型を指定してやらないといけなかった。 あ～、このせいで引数に設定したときにエラーが出るんだなぁとおもったけど、引数の型が Variant型だとエラーになるという状況がよくわからず再現できていない。もうちょっと調べてみよう。 1/25 追記 引数を参照渡しの ByRef で設定されているところに、型が違う変数（Variant型含む）を渡すとエラーになる。ライブラリに登録されている メソッド・プロパティは大抵 ByRef に設定されているので、そこに 上記のように Dim Param1, Param2 As String のように宣言してしまって Variant型になっている変数を渡してしまうとエラーになってしまう。
続きを読む