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操作を覚えて効率化しませんか?
作成が大変であれば弊社で代行開発も可能です。お気軽にお問い合わせください。



コメント