批量获取网页标题内容的方法

详细操作

打开Visual Basic编辑器

打开Excel表格选择：工具——宏——Visual Basic编辑器，或者直接按快捷键：ALT+F11

定义获取title函数模块

在Visual Basic编辑器选择：插入——模块，然后将下面这段代码粘贴在里边模块窗口中，在关闭Visual Basic编辑器直接退出即可。

Function Title(ByVal url As String) As StringOn Error Resume Nexturl="http://" & Replace(url, "http://", "")With CreateObject("Msxml2.XMLHTTP").Open "get", url, False.sendTitle=Split(Split(.responsetext, "")(0)End WithEnd Function

加载title函数宏

回到Excel表格选择：工具——加载宏——Internet Assistant VBA，点击确认。

使用title函数获取单行URL网页标题信息

在Excel表格的B1直接输入“=title(A1)”即可得到A1单元格中URL所对应的网页的title标题信息。

复制title函数获取多行网页标题信息

鼠标放在B1右下角会鼠标会变成一个小十字，“Ctrl+左键”：下拉，程序会复制函数，即可得批量获取多个URL的title信息。

用户类似问题：

问题1：批量获取html文件的<title>元素的值

图样。win7自带一个字符串查找的工具findstr.exe 新建一个fs.bat 内容如下 findstr /r /i "\" %1 >> good.txtfindstr /r /i "\" %1 >> good.txt再新建一个go.bat 内容如下 for /r %%a in (*.html) do fs.bat %%a把这两个文件放到保存html文件的... >>详细

问题2：如何在线批量获取网站标题？？

可以去网站备案核查系统看看，好像可以批量查询，可以通过网址批量查网站名称 >>详细

问题3：求批量提取网站标题软件（title)

一定要用DownloadData下载 不要用DownloadString 首先读取网页的 这个代码，因为是英文不会有乱码，随便用编码先转换再读取 如果是GBK就用System.Text.Encoding.GetEncoding("GBK").GetString转换成字符 System.Text.Encoding.GetEncoding("GB23... >>详细

问题4：批量抓取搜索页面的title

首先，你要发HTTP头，模拟搜索的过程，然后读取返回的网页内容，进行正则表达式匹配把超链接里的tital提取出来。 >>详细

问题5：有没有方法可以实现网页上内容的批量查找？

复制内容到word文档中，全选按下CTRL+F，在WORD里可以使用正则表达式 >>详细