邀请bat高手，vba高手解题： 批量读取网页title

最好贴部分网页的内容，包含TITLE的就行。 先下载sed：

>

Header:=xlNo意思是数据不包含标题，或者说标题行也当做普通数据一样参与排序字段

Sub 宏1()

ActiveSheetSortSortFieldsClear '清除活动表上次排序字段

Set Rng = ActiveSheetRange("A2:C5") '设定排序区域为A2:C5

''''''以下设定关键字和升降序，KEY(N)是第N个关键字，order(N)是对应第N个关键字的升降序设置'''

''''''xlAscending(升序)，xlDescending（降序）

RngSort Key1:=Range("B2"), _

Order1:=xlAscending, _

Key2:=Range("C2"), _

Order2:=xlDescending, _

Header:=xlYes '数据包含标题行

End Sub

其实自己录制个宏就行了

sub xx()

With SelectionParagraphs(1)Range

If Left(Style, 7) = "Heading" Then

MsgBox Text

End If

End With

End Sub

Sub a()

Dim i As Integer

For i = 0 To UBound(Split(SelectionAddress, ","))

MsgBox Split(Split(SelectionAddress, ",")(i), "$")(2)

Next

End Sub

刚才又思考了一下，下面代码更加简单实用强大。

Sub test()

For Each c In SelectionRows

MsgBox cRow

Next

End Sub

以上就是关于邀请bat高手，vba高手解题： 批量读取网页title全部的内容，包括:邀请bat高手，vba高手解题： 批量读取网页title、如何用VBA取得Word文档中的标题前面的序号、在EXCEL VBA中，一工作表第一行是表标题，第二行是列标题，如何按着指定的标题（如列标题乙）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！