精华内容
下载资源
问答
  • vba抓取网页数据

    千次阅读 2019-09-11 21:02:12
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'DataObject对象,数据放入剪贴板,记事本观察数据 .SetText tt '因为XMLHTTP默认是UTF-8,不能识别gb2312,会发现数据乱码 .PutInClipboard '...

    功能实现:自动计算国庆期间在个个城市停留的时间(乱码转码,html截取、日历、下拉,两个网站:携程和火车票网)

    Function getTrainInfo_ctrip(rowNum)
        
        If Range("A" & rowNum).Value = "" Then
            Range("B" & rowNum & ":C" & rowNum).Delete
            Exit Function
        End If
        Dim strRespText$, tt$
        Dim URL
        URL = "https://trains.ctrip.com/trainbooking/TrainSchedule/" & Range("A" & rowNum).Value
        'Debug.Print URL
        With CreateObject("Microsoft.XMLHTTP")
            .Open "GET", URL, False                     '要抓取的链接,"GET"尽量用大写,以免某些系统不兼容
            .Send
            
            Index = InStr(.responsetext, "<div id=""ctl00_MainContentPlaceHolder_pnlResult"">")
            If Index <= 0 Then
                Range("B" & rowNum & ":C" & rowNum).Delete
                Range("B" & rowNum) = "查无此车"
                Exit Function
            End If
            
            tt = Mid(.responsetext, Index)
            Index2 = InStr(tt, "ctl00_MainContentPlaceHolder_divStartAndEndSchedule")
            tt = Left(tt, Index2 - 44)
            
            'Set fs = CreateObject("Scripting.FileSystemObject")
            'Set a = fs.CreateTextFile("D:\Document\excel\log.txt", True)
            'a.write (tt)
            'a.Close
        End With
        
        Set oDom = CreateObject("htmlfile")
        oDom.body.innerHTML = tt
        
        'Debug.Print oDom.getElementById("ctl00_MainContentPlaceHolder_pnlResult").innerText
        Set oTbody = oDom.getElementById("ctl00_MainContentPlaceHolder_pnlResult").getElementsByTagName("div")(2).getElementsByTagName("table")(1).getElementsByTagName("tbody")(0)
        'Debug.Print oTbody.innerText
        'Debug.Print oTbody.Rows.Length
        
        Dim allCity As String
        allCity = ""
        'Integer String
        Dim startPlace, endPlace As Integer
        startPlace = 0
        endPlace = 0
        'Debug.Print Range("B" & rowNum).Value
        
        If Range("B" & rowNum).Value = "" Then
                Range("B" & rowNum) = oTbody.Rows(0).Cells(2).innerText
        End If
        If Range("C" & rowNum).Value = "" Then
            Range("C" & rowNum) = oTbody.Rows(oTbody.Rows.Length - 1).Cells(2).innerText
        End If
    
        For i = 1 To oTbody.Rows.Length
            allCity = allCity & "," & oTbody.Rows(i - 1).Cells(2).innerText
            'Debug.Print oTbody.Rows(i - 1).Cells(2).innerText
            'Debug.Print InStr(Range("B" & rowNum).Value, oTbody.Rows(i - 1).Cells(2).innerText)
            
            If startPlace = 0 And InStr(Range("B" & rowNum).Value, oTbody.Rows(i - 1).Cells(2).innerText) > 0 Then
                startPlace = i
                'Debug.Print startPlace
            End If
            
            If endPlace = 0 And InStr(Range("C" & rowNum).Value, oTbody.Rows(i - 1).Cells(2).innerText) > 0 Then
                endPlace = i
                'Debug.Print endPlace
            End If
            
        Next
        
        If startPlace = 0 Then
            Range("B" & rowNum) = oTbody.Rows(0).Cells(2).innerText
            startPlace = 1
        End If
        
        If endPlace = 0 Then
            Range("C" & rowNum) = oTbody.Rows(oTbody.Rows.Length - 1).Cells(2).innerText
            endPlace = oTbody.Rows.Length
        End If
        
        Set oSelect = Range("B" & rowNum & ":C" & rowNum)
        With oSelect.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=allCity
        End With
        
        Range("D" & rowNum) = oTbody.Rows(startPlace - 1).Cells(4).innerText
        Range("E" & rowNum) = oTbody.Rows(endPlace - 1).Cells(4).innerText
        
    End Function
    'http://search.huochepiao.com/checi/C7140
    Function getTrainInfo_huochepiao(rowNum)
        
        If Range("A" & rowNum).Value = "" Then
            Range("C" & rowNum & ":D" & rowNum).Delete
            Exit Function
        End If
        If Range("B" & rowNum).Value = "" Then
            Range("B" & rowNum) = Date
        End If
        Dim strRespText$, tt$
        Dim URL
        URL = "http://search.huochepiao.com/checi/" & Range("A" & rowNum).Value
        'Debug.Print URL
        With CreateObject("Microsoft.XMLHTTP")
            .Open "GET", URL, False                     '要抓取的链接,"GET"尽量用大写,以免某些系统不兼容
            .Send
            
            tt = .responsetext
            With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")    'DataObject对象,数据放入剪贴板,记事本观察数据
                .SetText tt                                                    '因为XMLHTTP默认是UTF-8,不能识别gb2312,会发现数据乱码
                .PutInClipboard                                                '所以不能采用.responsetext对象来得到字符串
            End With
            tt = StrConv(.ResponseBody, vbUnicode)
            
            Index = InStr(tt, "</table><br><table border=")
            If Index <= 0 Then
                Range("C" & rowNum & ":D" & rowNum).Delete
                Range("C" & rowNum) = "查无此车"
                Exit Function
            End If
            tt = Mid(tt, Index + 12)
            Index2 = InStr(tt, "</td></tr></table>")
            tt = Left(tt, Index2 + 18)
            
            'Debug.Print tt
            
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set a = fs.CreateTextFile("D:\Document\excel\log.txt", True)
            a.write (tt)
            a.Close
            
        End With
        
        Set oDom = CreateObject("htmlfile")
        oDom.body.innerHTML = tt
        
        Set oTbody = oDom.getElementsByTagName("td")
    
        'Debug.Print oTbody.Length
        '84-
        'Debug.Print oTbody(14).innerText
        
        Dim allCity As String
        allCity = ""
        'Integer String
        Dim startPlace, endPlace As Integer
        startPlace = 0
        endPlace = 0
        'Debug.Print Range("C" & rowNum).Value
        
        Dim startNum, stepNum, endCityDataNum As Integer
        If oTbody(9).innerText = "硬座" Then
            startNum = 15
            stepNum = 13
            endCityDataNum = 11
        ElseIf oTbody(9).innerText = "硬卧上/中/下" Or oTbody(9).innerText = "商务座" Then
            startNum = 14
            stepNum = 12
            endCityDataNum = 10
        Else
            Exit Function
        End If
        If Range("C" & rowNum).Value = "" Then
                Range("C" & rowNum) = oTbody(startNum).innerText
        End If
        If Range("D" & rowNum).Value = "" Then
            Range("D" & rowNum) = oTbody(oTbody.Length - endCityDataNum).innerText
        End If
        
        'Debug.Print "startNum"; startNum; "oTbody.Length"; oTbody.Length
        For i = startNum To oTbody.Length Step stepNum
            allCity = allCity & "," & oTbody(i).innerText
            'Debug.Print oTbody(i).innerText
            'Debug.Print InStr(Range("C" & rowNum).Value, oTbody.Rows(i - 1).Cells(2).innerText)
            
            If startPlace = 0 And InStr(Range("C" & rowNum).Value, oTbody(i).innerText) > 0 Then
                startPlace = i
                'Debug.Print startPlace
            End If
            
            If endPlace = 0 And InStr(Range("D" & rowNum).Value, oTbody(i).innerText) > 0 Then
                endPlace = i
                'Debug.Print endPlace
            End If
            
        Next
        
        If startPlace = 0 Then
            Range("C" & rowNum) = oTbody(startNum).innerText
            startPlace = startNum
        End If
        
        If endPlace = 0 Then
            Range("D" & rowNum) = oTbody(oTbody.Length - endCityDataNum).innerText
            endPlace = oTbody.Length - endCityDataNum
        End If
        
        Set oSelect = Range("C" & rowNum & ":D" & rowNum)
        With oSelect.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=allCity
        End With
        
        
        Range("E" & rowNum) = Range("B" & rowNum).Value & " " & oTbody(startPlace + 2).innerText
    
        Dim startUseTime, endUseTime As Integer
        
        Dim s
        Dim midString As String
    
        If InStr(oTbody(startPlace + 4).innerText, "小时") > 0 Then
            midString = Replace(oTbody(startPlace + 4).innerText, "小时", ":")
            s = Split(Replace(midString, "分", ""), ":")
            startUseTime = s(0) * 60 + s(1)
            
        Else
            startUseTime = Replace(oTbody(startPlace + 4).innerText, "分", "")
        End If
        
        If InStr(oTbody(endPlace + 4).innerText, "小时") > 0 Then
            midString = Replace(oTbody(endPlace + 4).innerText, "小时", ":")
            s = Split(Replace(midString, "分", ""), ":")
            endUseTime = s(0) * 60 + s(1)
        Else
            endUseTime = Replace(oTbody(endPlace + 4).innerText, "分", "")
        End If
        
        'Debug.Print startUseTime
        'Debug.Print endUseTime
        'Debug.Print Range("E" & rowNum).Value
        'Debug.Print Format$(CDate((endUseTime - startUseTime) / 1440 + CDate(Range("E" & rowNum).Value)), "yyyy-mm-dd hh:mm:ss")
        Range("F" & rowNum) = Format$(CDate((endUseTime - startUseTime) / 1440 + CDate(Range("E" & rowNum).Value)), "yyyy-mm-dd hh:mm:ss")
        
    End Function
    Sub test()
        Range("B" & 1) = "查询中、、、"
        'getTrainInfo_huochepiao (10)
        For i = 3 To 20
            getTrainInfo_huochepiao (i)
        Next
        
        Range("B" & 1) = "查询完毕"
    End Sub
    

    效果截图:(求偶遇哈哈!!!)

    源文档已经上传:https://download.csdn.net/download/struggletolife/11723002

    展开全文
  • VBA抓取网页数据

    2012-08-19 20:53:31
    VBA抓取网页数据有不少方法,其中一种便是引用XMLHTTP对象。在这里尝试为大家介绍一下这个对象的一些基本属性和方法还有一些应用示例。
  • 今天老祝和大家一起学习一个导入网页数据的技巧。很多时候,咱们需要将网页中的数据导入到Excel里做进一步的分析汇总,比如每天的股市行情、外汇牌价、开奖信息等等。接下来咱们演示一下,从下面这个网页中导入中国...

    小伙伴们,你还好吗?

    今天老祝和大家一起学习一个导入网页数据的技巧。

    很多时候,咱们需要将网页中的数据导入到Excel里做进一步的分析汇总,比如每天的股市行情、外汇牌价、开奖信息等等。

    接下来咱们演示一下,从下面这个网页中导入中国银行的每日外汇牌价。

    b49335f1acc632bb408743a6b7c1464d.png

    在这个网页中,外汇牌价的信息一共有10页,如果使用Excel 早期版本中的导入网页数据功能,默认只能导入第一页的信息。

    接下来咱们以Excel 2019为例,说说导入全部10页信息的具体操作过程。

    334beed3ed748d17306d836da5b6f370.png

    步骤1

    依次单击【数据】→【自网页】,输入以下网页链接:

    https://www.boc.cn/sourcedb/whpj/index_1.html

    在【导航器】对话框中选择 Table 0,将数据加载到Power Query编辑器。

    6d555dcf974985f5956788dd45b19548.gif

    注意此时只加载了第一页的信息,还需要咱们进一步的处理一下。

    步骤2

    单击【高级编辑器】按钮,弹出【高级编辑器】对话框。在let语句之前添加以下内容,将查询转换为参数化的函数:

    (page as number)  as table=>

    据说这个两个as语句是指定参数类型的,这里咱们先暂时记住这样用。

    接下来将url中表示页面的数值“1”替换为以下内容,来构建一个动态的查询参数字符串:

    " & Number.ToText(page) & "

    041017c66fd554ffdadb95f260395cfb.png

    单击【完成】按钮,会出现这样的界面:

    cbb0954ed8c8375f99f822f623f2e1a7.png

    步骤3

    接下来要生成一组序号,作为刚刚定义的函数的页码参数。

    在左侧的查询列表中单击右键,新建空查询。在【高级编辑器】里输入以下内容:

    {1..10}

    这里的10,可以根据实际页码数来确定。最后单击【到表】按钮,转换为Table。

    e62bbac987d14bc2f10fc0887f282f34.gif

    步骤4

    双击查询名称“Table 0”,输入一个容易记忆的名称,比如“ Web”

    41d0d641fd5914cb763cc939f51feefb.png

    步骤5    

    在“查询1”中添加自定义列:

    =Web([Column1])

    62c015b947e14ec8968ba18ae359e699.gif

    步骤6

    由于咱们定义的页数比网页中的实际页数要多,所以最后一行出现了错误值,需要先将其删除,然后再展开数据,加载到工作表中。

    84a827381836e47e29e311841cda2be1.gif

    最后,咱们还可以依次单击【数据】→【全部刷新】→【连接属性】,设置一下刷新频率,使Excel能够按照指定的时间在后台自动刷新:

    147259585ccdf944b1c24ff0574b5c18.png

    今天咱们的内容就是这些吧,祝小伙伴们和家人安好~~

    图文制作:祝洪忠

    展开全文
  • 有些网络上的数据无法复制粘贴,一个一个录入有点费时费力,此时用这种数据抓取方法,短短几句,简单实用。XML是一种可扩展标记语言,它被...'#要抓取的网址放入引号内dt1 读取网页内的表格数据t1读取网页中的第一...
    a02e11f10f8de8d3d3be94bf536f07ec.gif

    有些网络上的数据无法复制粘贴,一个一个录入有点费时费力,此时用这种数据抓取方法,短短几句,简单实用。XML是一种可扩展标记语言,它被设计用来传输和存储数据。XML是各种应用程序之间进行数据传输的最常用的工具。

    install.packages("XML")#安装XML

    library(XML)#加载XML

    url 。。。'#要抓取的网址放入引号内

    dt1 读取网页内的表格数据

    t1读取网页中的第一张表

    write.csv(t1,file="d:/t1.csv") #存储t1CSV文档至D盘中

    1592596a85441543cad44f278333e278.png0781944733edef7975fd7de26a017885.gif25d5ed94b9cf547f1a1808a18417d8bf.gif321bd0e4885afd11dfd202ab7f5080a1.png

    doc1读取html文件

    t2读取成为表格

    ttn读取所有表格中的第n个表格

    ttn

    #用此方法读取html文件,并存储成数据框格式

    dd2fe3888585e0a75dd2c4f02cc51cb0.gif2c9a664bbfd572542d1f0723100efc3c.png0781944733edef7975fd7de26a017885.gif25d5ed94b9cf547f1a1808a18417d8bf.gif321bd0e4885afd11dfd202ab7f5080a1.png

    那些突然明白的道理:

    越是让你“秒爽”的东西,往往危害性越大,比如:熬夜,刷短视频,打游戏。

    这些事情往往偶尔一两次没什么大的影响,但最怕超过一定频率和界限,到达上瘾的地步,产生依赖后,不做难受,做了自责与愧疚。真正要做到自律很难,但的的确确应该明白什么才是对于自己是有用的事情。

    dd2fe3888585e0a75dd2c4f02cc51cb0.gif2c9a664bbfd572542d1f0723100efc3c.pngdccc7d0623a8ef9e4c07bbced4c9ee71.png点分享4f2c5d98c421a11471c1347a70ad1fe9.png点点赞853c3895a67c6a642ce50999e1a2a29a.png点在看END584abd77e1534b3eead78ea5a355c7eb.png
    展开全文
  • 近几年,大数据是一个很热的词,并且由大数据...尽管利用大数据来做营销也已经成为了营销界的共识,但如何快速准确地从数据的大海洋中获取到所需数据仍然是营销人员的短板所在,不过在了解了网页抓取工具天网获客系...

    近几年,大数据是一个很热的词,并且由大数据还带来了数据采集、数据清洗、数据挖掘、用户行为痕迹、用户标签、用户画像、精准广告、精准营销、甚至还有精准扶贫。

    8bacaa947ea3041b18b1b4cfd141be1d.png

    近年来大数据的神秘色彩总是被越描越浓,它的魅力在所有领域所有行业都得到了快速地蔓延。尽管利用大数据来做营销也已经成为了营销界的共识,但如何快速准确地从数据的大海洋中获取到所需数据仍然是营销人员的短板所在,不过在了解了网页抓取工具天网获客系统之后,这个问题似乎就没那么让人苦恼了。

    云网获客系统——APP手机号抓取软件是能够从网页中提取所需信息并进行智能处理的一款软件,它的设计原理是基于web结构的源代码提取,所以几乎可以做到全网通用,全页面抓取,并且简单易用。这意味着只要是我们能够看到的网页中所有能够看到的信息都可以进行轻松抓取,解决大数据获取难题竟然可以这么简单。

    d58de7fdddbd209d80aa7fd88f78bf16.png

    三网运营商数据,实时截流自己的同行的竞价网站,推广网页,H5页面访客数据,运营商授权,实时秒级数据更新,只要有自己的同行的做百度竞价的网站就可以获取联通、移动、电信的运营商数据,测试免费。

    展开全文
  • 本人初学VBA,需要在...etfClass=2这个网站上抓取表格里面的数据,但是它的源文件中显示不出表格的数据,这样应该怎么读取呢?很紧急,望版主和各位大神帮助。。
  • 问题:最近老婆让我给上二年级的孩子做一份生字拼音表(带声调),这样孩子每天就可以读拼音默写词语,也就不需要家长陪在身边朗读了。...方案:既然拼音也是要录入到Excel的,那么用VBA来操作网页,把输入汉字-...
  • 本帖最后由 引子玄 于 2012-7-6 17:27 编辑既然是网页抓取,咋代码中不见URL呢?不解~~~或许叫:自己电脑里的内存相关数据的抽取,可能更名副其实些.Private Sub Worksheet_Change(ByVal Target As Range)If ...
  • 加下来需要准备的工具:offcie的excel,一般人都有,然后复制下面的代码到VBA编辑窗口,如下图: VBA编辑窗口 代码我也不私藏了:代码如下: Sub qgqp() Dim strText As String, n%, temp, r%, l%, brr, temp1, crr...
  • [VBA]Excel操作IE(打开网页、等待网页加载、填写网页控件数据、点击网页按钮、抓取网页数据) 该贴的附件提供了一个利用SHDocVw.InternetExplorer对象、进行打开网页、等待网页加载、填写网页控件中数据(检索条件)...
  • 大家好,我们今日讲解“VBA利用XMLHTTP抓取百度搜索数据结果并给出网页链接”,这节内容是“VBA信息获取与处理”教程中第六个专题“VBA中利用XMLHTTP完成网抓数据”的第二节。第三节 利用XMLHTTP抓取百度搜索数据结果...
  • 网页抓取小工具.rar (22.91 KB, 下载次数: 3601) 本工具使用方法: 1、在B1内输入网址,可以是已打开的网页,也可以是未打开的 2、A2和B2的内容不要更改,第二行的其他单元格可以自行输入元素的各属性名称。...
  • 我前一阵子用VBA做了两个工具,用XMLHTTP的Get功能和Post功能抓取网页数据,还用这个对象的Get功能通过HTTP接口获取数据,这儿总结一下: 1、Get功能抓取网页数据,参数名称和值放在链接之中,方法如下:通过不同的...
  • Excel VBA 异步抓取爱奇艺电视剧信息 静态网页元素:利用DOM抓取 网页内JS变量:利用Instr功能查找 Ajax动态数据:找到数据请求URL,根据要求构造新的URL来请求数据
  • 2012-12-06 VBA学习

    2012-12-06 16:25:57
    一、关键词:VBA抓取网页数据  1、CreateObject Function Creates and returns a reference to an ActiveX object Syntax CreateObject(class,[servername]) class: the application name and class of the ...
  • vba之网抓详细事例

    2018-05-27 22:38:01
    VBA抓取网页数据详细教程,举例抓取网页中的表格数据 Sub test() Dim ie, dmt, tbs, i&, tb Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象 With ie .Visible = True '显示它 ....
  • VBA虽然并不是专业爬虫工具,但是Excel非常善于后续数据的处理与分析,所以对于不复杂的网页数据抓取也经常在VBA来实现。有些时候,在网页中看到的内容,使用浏览器的“审查元素”功能也可以看到的内容,如下图。...
  • 网络爬虫(又被称为网页蜘蛛,网络机器人,在FOAF社区中间,更经常的称为网页追逐者),是一种按照一定的规则,自动地抓取万维网信息的程序或者脚本。另外一些不常使用的名字还有蚂蚁、自动索引、模拟程序或者蠕虫。 ...
  • VBA解析JSON数据(1)-- Split函数

    千次阅读 2019-02-16 07:20:48
    什么是JSON? JSON(JavaScript Object Notation) 是一种及其轻量级的数据交换格式,它是 ECMAScript (欧洲计算机协会制定的JavaScript规范)的一个子集,它使用完全独立于任何编程语言的...进行网页数据抓取的时候,...
  • HI,大家好,我是星光。...但确实又能解决很多实际问题,所以又很甜——打个响指,那么有没有不写代码,又能抓取网页数据的方法呢?当然是——有的。走,去隔壁PBID见见新世面去。PBID是Power BI DeskTop的简...
  • Web 获取数据使用Power Query从 web 获取数据的能力非常方便, Power Query在大家不了解VBA的时候,可以这样去使用,但是如果你了解VBA其实也很方便,主要是看大家的取舍和偏好从网络上抓取下来的数据,还可以实时更新,...
  • EXCEL利用VBA+ADO SQL多文件源联合查询示例大神们,如何利用VBA实现下面效果?​www.zhihu.comVBA+ADO+SQL批量查询简单示例EXCEL 如何筛选出符合条件的数据并自动填充到新表里?​www.zhihu.comVBA简单网络抓取+简单...
  • 网络爬虫(又被称为网页蜘蛛,网络机器人,在FOAF社区中间,更经常的称为网页追逐者),是一种按照一定的规则,自动地抓取万维网信息的程序或者脚本。另外一些不常使用的名字还有蚂蚁、自动索引、模拟程序或者蠕虫。 ...
  • vba网抓常用方法

    2018-02-07 16:32:37
    利用VBA模拟向服务器发送请求,接收服务器返回的数据。 抓取网页数据类似与网络爬虫有代码
  • 我们今天 开始第九个专题的学习“利用IE抓取网络数据”。我们的网抓部分在讲解了XMLHTTP方法后,利用两个专题的进度进行了一些和VBA关系不是很大的有关网络知识的讲解,这两个专题对于我们重新认识网抓数据有着非常...
  • 什么是JSON?JSON(JavaScript Object Notation) 是一种及其轻量级的数据交换格式,它是 ECMAScript (欧洲计算机协会制定的JavaScript规范)的一个子集,它使用完全独立于任何编程语言...进行网页数据抓取的时候,很多...
  • 工具和技术:VBA知识、Power Bi一、采集数据过程抓取思路:安居客租房信息网址为简单的静态网页,天津市河北区租房信息第二页的网页地址:https://tj.zu.anjuke.com/fangyuan/hebei/p2/不同区只需要修改拼音参数即可...
  • 在Excel中,当系统函数不能满足我们的需求时候,我们可以使用VBA自定义函数,如抓取网页数据,翻译词汇,手机号归属地查询等。下面将介绍2个自定义函数,IDYMD函数 – 身份证年月日性别通过身份证号,返回性别,出生...
  • 日常工作中,在做数据分析的时候经常会跟天气挂钩,比如楼主做房地产的,今日来访数据明显的减少,就会考虑到天气这个因素,比如今天特别的冷,可能大家都愿意窝在被窝不愿意出门,同样的遇到下雨天气,大家也不愿意...
  • VBA读取本地html.xlsm

    2020-08-12 17:49:32
    VBA通过Document属性去读取,HTML内容,是读取某个文件夹下面的所有的html文件,并根据条件获取对应的文本,或者标签数据,如果本地的 ieframe.dll是正常的,建议使用这个,否则不建议使用,如果抓取的是网页数据...

空空如也

空空如也

1 2
收藏数 39
精华内容 15
关键字:

vba抓取网页数据