Excel VBA InStr 函數

Question

為什么我的 InStr 函數在它顯然是 HTML 字符串的一部分時返回 0？

如果沒有更多文字，我無法發布。沒有更多文字，我無法發布。沒有更多文字，我無法發布。沒有更多文字，我無法發布。沒有更多文字，我無法發布。沒有更多文字，我無法發布。

Sub ImportBPlans()
    Dim BPlan As String, FullHTML As String, URL1 As String, Cut1 As String, T1 As String
    Dim FO As String, LO As String, Other1 As Long

    For i = 2 To LastRow

        T1 = WB1.Cells(i, 1).Value

        URL1 = "http://finance.yahoo.com/q/pr?s=" + T1 + "+Profile"
        FullHTML = GetHTML(URL1)
        BPlan = "&nbsp;</th></tr></table><p>"
        x = Len(FullHTML)
        FO = InStr(FullHTML, BPlan, CompareMethod.Text) + Len(BPlan)
        LO = InStr(FO, FullHTML, "<")
        Cut1 = Left(FullHTML, LO)
        Cut1 = Right(Cut1, FO - LO)
        WB5.Cells(i, 1).Value = Cut1

    Next i


End Sub

Function GetHTML(URL As String) As String
    Dim HTML As String
    Dim htmlBDY As New HTMLDocument
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .Send
        htmlBDY.body.innerHTML = .responseText
        GetHTML = htmlBDY.body.outerHTML
    End With
End Function

Answer 1

嘗試這個：

    FO = InStr(1, FullHTML, BPlan, vbTextCompare) + Len(BPlan)

Answer 2

FO 和 LO 定義為string 。 它應該是integer因為 Instr 返回integer 。 糾正一下。

Public Shared Function InStr(_
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As CompareMethod _
) As Integer