質問: web上のデータを収集してExcelに反映できないかと考えています。 具体的には以下の画像1枚目の赤ペンとオレンジペンで囲った部分(1:36.5 , 45.4) の2つの数値をExcel上の赤ペンとオレンジペンで囲った部分(1365 , 454) に自動で表記も変わるように収集できたらいいなと考えています。 目的としては 地方競馬における過去のタイムを 独自のデータ分析Excelシートに入力することです。 現在は1つ1つ手作業で入力しているので この作業を簡略化できれば非常に嬉しいです。 どうかよろしくお願いいたします。
回答: 実現したい処理の全体を含めた質問形式にしないと思った回答は得られない >赤ペンとオレンジペンで囲った部分(1:36.5 , 45.4) (1365 , 454)形式で取り込むだけなら Sub Sampl() Dim HtmlDoc As Object Set HtmlDoc = CreateObject("htmlfile") With CreateObject("MSXML2.XMLHTTP") .Open "GET", "" .send Do While .readyState < 4 DoEvents Loop HtmlDoc.Write .responseText End With Application.Wait Now() + TimeValue("00:00:02") Dim Tb As Object Set Tb = HtmlDoc.getelementsbytagname("table")(0) Range("A1") = Replace(Replace(Split(Tb.Rows(5).Cells(2).innerText, " ")(0), ":", ""), ".", "") & " , " & Replace(Split(Tb.Rows(5).Cells(2).innerText, " ")(2), ".", "") End Sub こんな感じなんだけど ただ本当にやりたいことは ”単一のセルに単一のWEBデータを取り込みたい” ってわけじゃないよね?