我在vba中创建了一个非常小的脚本来解析几乎所有网站的标题。我用很少的网站检查过它,它提供了准确的结果。我使用了对响应文本的拆分功能来实现这个结果。网站应放置在A栏中,结果将显示在每个网站旁边的B栏中。我试着让它完美无缺。
Sub Title_Data()
Dim http As New MSXML2.XMLHTTP60
For Each cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).row)
With http
.Open "GET", cel.Value, Fals