ExcelVBA

VBAでIE操作「キャッシュをクリアする」【エクセルマクロ】

VBAでIEを起動し、キャッシュを読み込んでしまい、正常な動作がしない為、
キャッシュを削除したい時があります。

IEのキャッシュをクリアするサンプルコード

'■Internet Explorerのクッキー情報をクリアするサンプルコード
Public Function Call_sample_Delete_Cookie()
    Dim objIE As Object
    
    '■IEを起動→表示
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    
    '■インターネット一時ファイルおよびWebサイトのファイルを削除
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8"
    '■クッキーとWebサイトのデータを削除
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"
    '■履歴を削除
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1"
    '■フォーム データを削除
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16"
    '■パスワードを削除
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32"
    '■上記までの全てのデータを削除
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255"
    '■上記までの全てのデータ+アドオンによって設定された情報も含め全て削除
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351"
End Function

その他

定数意味
8インターネット一時ファイルおよびWebサイトのファイル
2クッキーとWebサイトのデータ
1履歴
16フォーム データ
32パスワード
255上記をまとめてクリア
4351上記をまとめてクリア+アドオンによって格納されたファイル

 

その他

Internet Explorerを使用して、Webスクレイピングは敷居が高い風に捉えられますが、
上記のように、パーツ化して組み合わせ処理するだけです。

Web上のデータを触りたい要望は会社様でも個人様でも多いと思います。
VBA IE操作を覚えて効率化しませんか?
作成が大変であれば弊社で代行開発も可能です。お気軽にお問い合わせください。

 

コメント

タイトルとURLをコピーしました