大家好
最近工作上需要大量的地址中翻英
上网爬文后看到之前有高手写了函数转换
但不知道为何我始终带不出英文地址出来，都显示Value，一类的我实在查不出个头绪
以下为代入的函数，想起厉害的高手协助看看哪里需要修正，谢谢！！
Public Function getCdit(strIn As Variant) As Variant
Dim objXML
Dim strResult As String
Dim strResultFin As String
Dim lngPosStart As Long
Dim lngPosEnd As Long
Set objXML = CreateObject("MSXML2.ServerXMLHTTP")
objXML.Open "GET", "http://cdict.net/?q=" & strIn, False
Call objXML.send
strResult = objXML.responseText
strResultFin = ""
lngPosStart = InStr(1, strResult, "<div id='eng_addr'>", vbTextCompare)
If lngPosStart > 0 Then
lngPosEnd = InStr(lngPosStart, strResult, "</div>", vbTextCompare)
strResultFin = Mid(strResult, lngPosStart + Len("<div
id='eng_addr'>"), lngPosEnd - lngPosStart - Len("<div id='eng_addr'>"))
End If
getCdit = strResultFin
Set objXML = Nothing
End Function