参数types不匹配

代码的第5行给了我一个参数typesmismatch。 请帮帮我？

Sub ImportBPlans() Dim BPlan, FullHTML, URL1, Cut1 As String Dim FO, LO, Other1 As Integer URL1 = "http://finance.yahoo.com/q/pr?s=AAPL+Profile" FullHTML = GetHTML(URL1) BPlan = "&nbsp;</th></tr></table><p>" FO = InStr(FullHTML, BPlan) + Len(BPlan) LO = InStr(FO, FullHTML, "<") Cut1 = Left(FullHMTML, LO) Cut1 = Right(Cut1, FO - LO) WB5.Cells(1, 1).Value = Cut1 End Sub Function GetHTML(URL As String) As String Dim HTML As String With CreateObject("MSXML2.XMLHTTP") .Open "GET", URL, False .Send GetHTML = .ResponseText End With End Function 

Answer 1

您正在混淆预期的HTMLDocument与其string内容。

 Sub ImportBPlans() Dim BPlan As String, FullHTML As String, URL1 As String, Cut1 As String Dim FO As String, LO As String, Other1 As Long URL1 = "http://finance.yahoo.com/q/pr?s=AAPL+Profile" FullHTML = GetHTML(URL1) BPlan = "&nbsp;</th></tr></table><p>" FO = InStr(FullHTML, BPlan) + Len(BPlan) LO = InStr(FO, FullHTML, "<") Cut1 = Left(FullHTML, LO) Cut1 = Right(Cut1, FO - LO) Debug.Print Cut1 'WB5.Cells(1, 1).Value = Cut1 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 

在.responseText中收到的HTMLDocument比使用Ctrl + U查看源代码时所期望的要多。 要将函数源作为string传递回来，必须将其parsing为一个简单的string。

Answer 2

你的variables定义部分是问题。 你需要告诉它是什么types的逗号（它不是用作英文）。

如下所示，如果您不指定types，则为空 。