12/05/20 01:16:49.80
>>330
暇だったから書いたけど、あんたExcelの方でも同じ質問してない？
Public Sub Macro1()
Dim elmBlockElement As Object
Dim elmPhrase As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "URLﾘﾝｸ(www.cygnus-x1.net)"
While .Busy Or .ReadyState <> 4&: DoEvents: Wend
For Each elmBlockElement In .Document.getElementsByTagName("blockquote")
If elmBlockElement.PreviousSibling.LastChild.innerText = "Synopsis" Then
With elmBlockElement.PreviousSibling
For Each elmPhrase In .getElementsByTagName("strong")
Selection.TypeText "Title:" & elmPhrase.innerText & vbCrLf
Selection.TypeText "Synopsis:" & vbCrLf & elmBlockElement.innerText & vbCrLf
Selection.TypeText "------------------------------" & vbCrLf & vbCrLf
Next
End With
End If
Next
.Quit
End With
End Sub