[已解决]python根据excel连接，获取数据再写入到excel内

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

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由 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速度快，请大神们帮忙给写个代码

最佳答案

月排行榜 / 总排行榜

wp231957

2020-5-20 13:24:01