1,066
社区成员
发帖
与我相关
我的任务
分享
sub main
Dim WinFolder As New ShellWindows
Dim IEobj as Object
i = -1
For Each IEobj In WinFolder
i = i + 1
Titles(i) = IEobj.LocationName
URLs(i) = IEobj.LocationURL
InnerText(i) = IEobj.document.body.innertext
Next