当获取html <TITLE>时，VBA Function返回“框中的问号”而不是外来字符

问题描述

我使用一个函数来获取有时包含外来/重音符的网站标题。 最近，我在html标签“Justiçamantém”中遇到了一个看起来如下的标题。 Excel将返回“在盒子里的问号”，而不是“Justiçamantém”中的特殊字符（这是我希望返回标题的方式）。我尝试按照以下方式使用替换功能，但没有更改。我认为，为了使其正常工作，以下功能的替换应与当前不同的步骤进行。请注意，ç=çANDé=é（根据ASCII字符表）。

能否请您帮我实现“在函数的正确位置”的替换，以便按照上述步骤转换字符？

Function GetCleanTitle(ByVal strURL) As String
Dim stPnt As Long,x As String
Dim oXH As Object
'Get URL's HTML Source
Set oXH = CreateObject("msxml2.xmlhttp")
With oXH
    .Open "get",strURL,False
    .send
    x = .responseText
End With
Set oXH = nothing
'Parse HTML Source for Title
If InStr(1,UCase(x),"<TITLE>") Then
    stPnt = InStr(1,"<TITLE>") + Len("<TITLE>")
    GetCleanTitle = Mid(x,stPnt,InStr(stPnt,"</TITLE>") - stPnt)
    GetCleanTitle = Replace(GetCleanTitle,"&#231;","ç")
    GetCleanTitle = Replace(GetCleanTitle,"&#233;","é")
Else
    GetCleanTitle = ""
End If

End Function

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）