2017年8月5日
GetContent
摘要： Sub GetContent(ByVal URL As String, ByVal SheetName As String) Dim strText As String Dim i As Long Dim OneSpan Dim IsContent As Boolean With CreateObject("MSXML2.XMLHTTP") ... 阅读全文
posted @ 2017-08-05 22:27 wangway 阅读(1058) 评论(0) 推荐(0) 编辑
GetTitleAndUrl
摘要： Sub GetTitleAndUrl() Dim strText As String Dim i As Long Dim OneA Dim IsContent As Boolean Dim PageIndex As Long Dim URL As String For PageIndex = 1 To 10 URL = "h... 阅读全文
posted @ 2017-08-05 22:25 wangway 阅读(306) 评论(0) 推荐(0) 编辑
DownLoadImage
摘要： Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As... 阅读全文
posted @ 2017-08-05 22:24 wangway 阅读(505) 评论(0) 推荐(0) 编辑
GetImageURL
摘要： Sub GetImageUrl(ByVal URL As String) Dim strText As String Dim i As Long Dim OneImg With CreateObject("MSXML2.XMLHTTP") .Open "GET", URL, False .Send strT... 阅读全文
posted @ 2017-08-05 22:23 wangway 阅读(677) 评论(0) 推荐(0) 编辑