最近时间比较忙,有时候很多网页需要临时保存,以便空闲的时候查看.单纯的保存网页链接会让人很枯燥,所以需要自动批量提取标题. 为了这个小功能去写个小程序有点不划算,所以就利用excel实现了这个功能. 先上图: 代码如下: Option Explicit Public Function GetTitle(url As String) Dim xmlHttp As Object Dim strHtml As String url = Trim(url) )) = "https" Then
'宏操作 Sub 复制超级链接() '这里控制读取A列的第1到10行,你根据自已的要求修改一下起始和结束行数 ).Hyperlinks.Count > ).Value = Cells(a, ).Hyperlinks.Item().Name ).Hyperlinks.Count > ).Value = Cells(a, ).Hyperlinks.Item().Address Next End Sub '自定义公式法 Function geturl(c As Range) As String ge