【依頼背景】
作成済みのWebスクレイピングツールをExcelのVBAで作成しています。
参照先WebサイトがIEからEdge仕様になったため、IEベースの現ツールでは
機能しなくなりました。
※新しいページをIEで開くと画面がずれます
そのため、IEベースのVBAをEdgeベースに改修して正常にWebスクレイピング
できるようにしてくれる方を探しています。
【概要】
予めテーブル機能で項目が設定されています。
そのテーブルに2つのサイトからWebスクレイピングして1行毎にデータを
決められた場所(行/列)に取得します。
【依頼内容】
Edge仕様となった2つのサイトからWebスクレイピングできるように改修を
お願いします。
その際、いままでと同じように各項目にデータが正しく転記されるように
仕上げてください。
※HTMLタグからデータを取得する方法も変わっている可能性もあります
※変数やシート名などは極力同じものを使うか、踏襲(変数は日本語を使う)
願います
※回りくどくなっても良いので、素人目で見ても分かりやすく作成願います
【依頼内容】
依頼時に、Webスクレイピングツールと(.xlsm)とマニュアル(添付済)を
お渡しします。
【記述例】
Function UrlIE(UrlTarget As String) As Object
Dim objIe As Object
Set objIe = New InternetExplorer
objIe.Visible = False
objIe.navigate UrlTarget
Do While objIe.Busy = True Or objIe.readyState <> 4
DoEvents
Loop
Set UrlIE = objIe
End Function