如何实现网站采集功能

发布网友

我来回答

共4个回答

热心网友

excel采集互联*息

用EXCEL采集网页信息，其实并不难，需要开启宏功能，用VBA编写采集代码，就可以将信息采集到表格里了。

Function ReadWeb(strURL)

以下是关键代码：编写一个采集函数

   ' MsgBox strURL

    'Range("H2").Value = strURL

    t = Timer '开始计时

    tt = t

    nm = Left(Range("J3").Value, 2) & Range("J4").Value

    url2 = "https://**.com.cn/**.php?symbol=" & nm    

    Set objWeb = CreateObject("MSXML2.XMLHTTP") 'Microsoft.XMLHTTP

    objWeb.Open "Get", strURL, False, "", ""

    objWeb.send

    arrBytes = CStr(objWeb.responseBody)    

    mytime2 = mytime2 + Timer - tt '计时   

    strReturn = "" '以下将二进制数据流转换为中文文本

    For i = 1 To LenB(arrBytes)

        Chr1 = AscB(MidB(arrBytes, i, 1))

        If Chr1 < &H80 Then

            strReturn = strReturn & Chr(Chr1)

            Else

            Chr2 = AscB(MidB(arrBytes, i + 1, 1))

            strReturn = strReturn & Chr(CLng(Chr1) * &H100 + CInt(Chr2))

            i = i + 1

        End If

    Next i

       ReadWeb = strReturn

 End Function

热心网友

方法/步骤

在文件中新建一个excel文档，

或打开已有的文档

切换菜单标签到【数据】，点击 【自网站】 按钮

打开新的 [web查询]窗口

打开需要的链接

选择需要采集的目标内容并勾选

指定目标单元格

采集完成

采集完成后可以对查询进一步加工以适应自己的需求。更可以辅助以VBA，使其功能更加强大，如何开启vba，请参考：

热心网友

将excel变成网页，不是没有办法，你可以试一下Excel数据汇，它可以将你的excel变成网页，然后你再将网页分享给大家填写，填写好的数据将自动汇总，你直接下载就好了，快试试吧！

热心网友

用Excel采集网站数据比较麻烦，主要是数据清洗不够完整。