HTML,CSS,PHP,ワードプレスカスタマイズ 技術情報資料

vba タスクに IE が残る

スポンサーリンク

vba タスクに IE が残る。
VBAでブラウザ経由でサイトのページの情報を拾い上げる技は結構使いますよね?
私だけ?www

そうすると、なぜかvba タスクに IE が残っていて、繰り返し利用するとどんどんと増えていき、それが原因でマシン全体が遅くなってしまう。


VBAでサイトのページのHTMLを読み込む


VBAでサイトのページのHTMLを読み込む基本的な方法は以下の通り。
Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = viewsw '見えるようにする

objIE.Navigate "https://www.yahoo.co.jp/"

While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
    DoEvents
Wend

Set objIE = Nothing

これが、一般的にサイト検索で見つかる構造です。

ところが、これで閉じてしまうと IE がタスクに残ってしまいます。


IE のタスクを強制的に殺す


クロームなどを標準で使っている方は、タスクから強制的に排除してしまうという手があります。

以下を標準モジュールに貼りつけて call Kill_IE を呼び出してあげれば、タスクから 「すべての」IEがいなくなります。
Option Explicit
Dim objShell As Object
Dim objExec As Object
Sub Kill_IE()
    Set objShell = CreateObject("WScript.Shell")
    Set objExec = objShell.Exec("taskkill.exe /F /IM iexplore.exe")
End Sub


本当は、使い方が間違っていた IE 呼出し。だからタスクが残るんです


実は、調べてみたら、先の一連の構造は間違っていました。

以下の方法は、IEを使い終わったら Nothing をセットすればいいということになっていますけど、これがあやまち。
最初の方がこの書き方をして検索上位に上がりそれが拡散された気配があります。

Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = viewsw '見えるようにする

objIE.Navigate "https://www.yahoo.co.jp/"

While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
    DoEvents
Wend

Set objIE = Nothing


vba タスクに IE が残さずに IE を止めるには



vba タスクに IE が残さずに IE を止めるには IE のオブジェクトには、実は Quit というリフレッシュするコマンドがあります。

Set objIE = Nothing の前に Quit してあげるとタスクに残らずに IE のオブジェクトを無効にすることができます。

Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = viewsw '見えるようにする

objIE.Navigate "https://www.yahoo.co.jp/"

While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
    DoEvents
Wend

objIE.Quit

Set objIE = Nothing

盲点でした orz

スポンサーリンク

スポンサーリンク

よく使うタグ

・float クリア
<br clear="all"><div style="clear:both;" class="clearfix"></div>
・角丸め
round-radius
border-radius:5px; -webkit-border-radius:10px; -moz-border-radius:10px;
・div box
overflow:scroll;min-width:300px;max-width:300px;min-height:300px;max-height:300px;
・TEXTAREAリサイズ
resize: vertical;
・サイトURL
home_url() // http://…
if(site_url()==home_url){
$shorturl_yuzu_path = substr(ABSPATH,0,strpos( ABSPATH, substr(site_url(),strlen(home_url()) ) ) ).’/’;
}else{
$shorturl_yuzu_path = ABSPATH.’/’;
}
// /var/…
・WP HOME URL
site_url() // http://…/wp
ABSPATH // /var/…/wp
・プラグイン(自分のDIR追加必要)
plugins_url() // http://…/plugins
WP_PLUGIN_URL // http://…/plugins
WP_PLUGIN_DIR // /var/…/plugins
・使用中のテーマ
get_template_directory_uri() // http://…/theme/xx
get_template_directory() // /var/…/theme/xx
・wp-content
content_url() // http://…/wp-content
WP_CONTENT_DIR // /var/…/wp-content
・画像URLからDIR変換
$pctdir=str_replace(content_url(), WP_CONTENT_DIR,$pcturl);
・パス名分解
$pathData = pathinfo($file);
echo $pathData["dirname"]; // /var/~
echo $pathData["filename"]; // xxx
echo $pathData["extension"]; // txt
echo $pathData["basename"]; // xxx.txt
・画像サイズ
list($width,$height) = getimagesize($url);
if(has_post_thumbnail()){
$thumbnail_id = get_post_thumbnail_id();
$thumbnail_img = wp_get_attachment_image_src( $thumbnail_id , ‘full’ );
$src = $image[0]; //url
$width = $image[1]; //横幅
$height = $image[2]; //高さ
・画像サイズ比率
list($src_w,$src_h) = getimagesize($file);
$dst_w = 600;$dst_h = 0;
$dst_h = ($dst_w!=0)?(intval(($src_h*$dst_w)/$src_w )):(($dst_h!=0)?(intval(($src_w*$dst_h)/$src_h)):0);
・疑似要素順
link visited hover active


特殊文字
シングルクォート : &#39;
ダブルクォート : &quot;
WP設定内表示前処理(htmlタグ許可項目)
$str = str_replace(‘<','&lt;' ,$str);
$str = str_replace(‘>’,’&gt;’ ,$str);
$str = str_replace(‘\”‘,’&quot;’,$str);
$str = str_replace(“\'”,’&#39;’ ,$str);
WO設定項目表示前処理(htmlタグ許可項目)
$str = str_replace(‘\”‘,'”‘,$str);
$str = str_replace(“\'”,”‘”,$str);
・テーマ
get_theme_root_uri()
get_theme_root()
・WP 情報
get_bloginfo( $show )
・Wp config FTP 情報 設置
define( ‘FTP_HOST’, ‘host’ );
define( ‘FTP_USER’, ‘id’ );
define( ‘FTP_PASS’, ‘pw’ );
define( ‘FTP_SSL’, false );
弾に使う
placeholder:ユーザー入力補助

カテゴリー

FB 広告 最適化~グーグルアナリティクスとサーチコンソールの連動のさせかた(必要な分だけ)

FB 広告 最適化~グーグルアナリティクスとサーチコンソールの連動のさせかた(必要な分だけ) FB 広告 最適化にあたって必要になってくるツールがグーグルアナリティクスとサーチコンソール。別にグーグルのアナリティクス、サーチコンソールでなくてもアクセス解析はできるんだけど、グーグルはユーザー囲

FB 広告 最適化~グーグルアナリティクスの使い方(必要な分だけ)

FB 広告 最適化~グーグルアナリティクスの使い方(必要な分だけ) FB 広告 最適化にあたって必要になってくるツールがグーグルアナリティクス。別にグーグルのアナリティクスでなくてもアクセス解析はできるんだけど、グーグルはユーザー囲い込みの為他のアクセス解析では見せな

FB 広告 最適化~グーグルサーチコンソールの使い方(必要な分だけ)

FB 広告 最適化~グーグルサーチコンソールの使い方(必要な分だけ) FB 広告 最適化にあたって必要になってくるツールがグーグルサーチコンソール。別にグーグルのサーチコンソールでなくてもいいんだけど、グーグルはユーザー囲い込みの為他のアクセス解析では見せなくしたキーワ

FB 広告 最適化~グーグルのアクセス解析の基本

FB 広告 最適化~グーグルのアクセス解析の基本 FB広告を最適化するためには、アクセス解析が重要なカギを握ります。FB広告から当該ページに飛んでくるときURLにオプションを付けることができます。このURLにつけたオプションを使ってどの広告から、どん

jQuery ボタンを押しても反応しない

jQuery ボタンを押しても反応しない jQuery の click イベントを使ってボタンを押したら alert を表示する簡単な仕様なのになにも反応しない。一瞬はまってしまうことって・・・ありますよね?例えば、こう書きます。popup.

WP パーマリンク リダイレクト インターナルサーバーエラー

WP パーマリンク リダイレクト インターナルサーバーエラー WP パーマリンクのリダイレクトがインターナルサーバーエラーを起こすようになった。ユーザーさんのサイトなので「なにをしたか」わからない。WP パーマリンク リダイレクト インターナルサーバーエラーのい