剪贴板储值，粘贴时报错，单步调试运行时无问题

a60688509

代码如下：

Function 获取天气()
    Dim txt, a, b
    Dim web1
    'On Error Resume Next
    web1 = "http://www.weather.com.cn/weather/101010100.shtml"
    Application.ScreenUpdating = False
    Set web = CreateObject("MSXML2.XMLHTTP")
    web.Open "Get", Trim(web1), False
    web.Send
    txt = web.responsetext
    a = InStr(1, txt, "<div id=""7d"" class=""c7d"">")
    b = InStr(1, txt, "<div class=""btn"">")
    txt = "<table>" & HtmlFilter(txt, "<ul class=""t clearfix"">", "<i class=""line1"">") & "</table>"
    Cells(1, 1).Select
    PutClipboard txt
    ActiveSheet.Paste
    MsgBox "完成！"
End Function
Public Function HtmlFilter(ByVal htmlText$, Label1$, label2$)
    '返回html字符串lable1和最近的lable2标签中的数据
    Dim pStart As Long, pStop As Long
    '开始位置，结束位置
    pStart = InStr(htmlText, Label1) + Len(Label1)
    '找到标签信息的起始位置
    If pStart <> 0 Then
        pStop = InStr(pStart, htmlText, label2)
        HtmlFilter = Mid(htmlText, pStart, pStop - pStart)
    End If
End Function
Public Sub PutClipboard(ByVal tt$) 'tt放入剪贴板
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")       '调试用，数据放入剪贴板
        .SetText tt
        .PutInClipboard
    End With
End Sub

a60688509

这个难度太大了吗？为何没人回答呢？紧急求助版主！

ww87725244

没有问题啊，很好啊

a60688509

直接运行，老是报错

a60688509

看附件和报错的提示。

a60688509

ww87725244 发表于 2019-3-14 18:10
没有问题啊，很好啊

高人，麻烦看一下，谢谢。

a60688509

史上最难的问题沉了啊