[算表] 大量地址翻譯

[banao1995526 (凝)]

大家好
最近工作上需要大量的地址中翻英
上網爬文後看到之前有高手寫了函數轉換
但不知道為何我始終帶不出英文地址出來，都顯示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

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 211.75.177.223 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1585039817.A.21B.html
→ soyoso: 測試巨集不用改，加個函數encodeurl
→ soyoso: https://i.imgur.com/wrLYcyU.jpg