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

「システムエラーです： &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で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形式に変換してフォント変更し...
続きを読む

映画「ウイッシュ」のエア感想

 ディズニー100周年記念作品として作成された映画「ウイッシュ」  私は見てないし、今後見る予定も特に無いんですが、YouTube で批評動画をいくつか見て、自分も視聴済みのような気がしてきたので、エア感想というかエア考察してみようと思います。実際にはみていないので、間違ったことばかりと思いますが、まあいいでしょう。  この映画、悪役である マグニフィカ王 が、国民から集めた「ウイッシュ」を集めているが、国益に反する可能性がある「ウイッシュ」はかなえることがないという思想が、国王の考え方としてはあたりまえじゃないかという感想が多いようです。  そのような意見もその通りではあるのですが、この作品における「ウイッシュ」というのは、希望とか夢、望みという物ではありません。この作品は 寓話 であり、見た目をそのまま受け取るのは必ずしも正しくありません。  この作品における「ウイッシュ」というのは、観客に夢・希望を与えるために、ディズニーが今まで作ってきた作品、これから作られる作品のことを指しています。  アーシャ の おじいさん の「ウイッシュ」がかなった結果、「星に願いを」が奏でられたり、 マグニフィカ王 がかなえなかった「ウイッシュ」が、ピーターパン や メリーポピンズ であったりすることからも、それがわかります。  そう考えると、不都合な「ウイッシュ」をかなえない マグニフィカ王 というのは、作品を制作するか決定する ディズニー の経営陣に当たります。ロサス王国 の 国民たち は、作品を作ろうと企画する制作スタッフです。制作スタッフたちは、いろいろな作品をつくりたいという「ウイッシュ」を抱きますが、経営陣たる マグニフィカ王 は、ディズニーという会社としての思想に反しているもの、例えば 反ポリコレ思想 のようなものは、会社の思想に不都合であるため、かなえられる（ = 制作する）ことはありません。  つまり、この 映画「ウイッシュ」という作品は、自由に作品を作れないでいる制作スタッフの抗議なのです。  いや、本当のことは知らないですけどね。
続きを読む

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型になっている変数を渡してしまうとエラーになってしまう。
続きを読む