大神帮忙加个代码,杨要抓取A列网址的信息填到B列

he5203344587

由于是内网,只能下载HTML做连接
抓A列信息填到B列.
现在就差如何一行行抓还有填上去了.





Public Sub ncmr()
    Dim ncmr As String
    ncmr = "C:\Users\yueyi\Desktop\yy\11.html"

    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

    With xmlHttp
        .Open "GET", ncmr, False
        .send
        strText = StrConv(.responseBody, vbFromUnicode, &H804)

        Do While .readyState <> 4
            DoEvents
        Loop
        Debug.Print Replace(Split(Split(Replace(Split(Split(.responseText, "tbReason")(0), "Rejected Reason")(1), """", ""), "readonly>")(1), "</textarea>")(0), "CrLf", "")

    End With
End Sub

he5203344587

嗯嗯。没人来

duquancai

有病毒。。。。。。。。。。。。。。。。

he5203344587

duquancai 发表于 2018-9-6 20:35
有病毒。。。。。。。。。。。。。。。。

不会啊。。里面就两html和的xlsm。

he5203344587

天啊。。。有没有人帮帮我啊。。。

he5203344587

。。。。大神。。。大神。。

he5203344587

某有大神帮一下么