leoparddi 发表于 2020-5-20 12:33:31

python根据excel连接，获取数据再写入到excel内

本帖最后由 leoparddi 于 2020-5-20 12:36 编辑

Sub cha()
    Dim tmp() As String, p As Long, xmlhttp As Object, bh$
    Dim i As Long   
    For p = 2 To 3 '此处应该是到几万的（小说名称）   
      With CreateObject("Msxml2.XMLHTTP")
            .Open "get", Cells(p, 1), False
            .send
            tmp() = Split(StrConv(.responsebody, vbUnicode), ".html"">")
      End With   
      For m = 1 To 5 '此处应该是有几十个（小说章节）
            Cells(p, m + 1) = Split(tmp(m), "</a>")(0)
      Next m
    Next p
End Sub


不能上传附件

以上是用excel的vba代码实现的，只是举个例子。

所需查询数据时公司内网的，别人连接不上的，就用这个获取小说章节来举例子了。

大概意思就是，根据excel第1列的连接【小说名称】，分别获取对应的【小说章节】到第2、3、4……列，相当于是2个循环。

现实数据有几万个，用VBA感觉太费时间了，都说python速度快，请大神们帮忙给写个代码

永恒的蓝色梦想 发表于 2020-5-20 12:35:52

这不是求代码论坛

wp231957 发表于 2020-5-20 12:57:44

python.速度也是一般般啦
操作excel还是vba.好些吧

leoparddi 发表于 2020-5-20 13:13:18

wp231957 发表于 2020-5-20 12:57
python.速度也是一般般啦
操作excel还是vba.好些吧

我以为会飞起来{:5_109:}

wp231957 发表于 2020-5-20 13:24:01

leoparddi 发表于 2020-5-20 13:13
我以为会飞起来

python   vba都属于脚本语言，脚本语言通病就是不快
页: [1]
查看完整版本: python根据excel连接，获取数据再写入到excel内