[算表] 地址翻譯匯入與匯出
軟體:Excel
版本:2010
因工作需要，要把地址中翻英輸入翻譯網址http://cdict.net/ 或中華郵政 (因需下拉故
放棄)，資料約2000多筆，已爬過文用HYPERLINK("http://cdict.net/?q=" & G2,"address")的公
式省下逐筆剪下貼上的時間，
但資料量太大，所以有高手協助用自建函數來做：
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
但我用自訂函數在儲存格(中文地址是在E欄，需查詢後轉回F欄內一直跑出空白)，
能否協助是哪一段落有錯誤的地方？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.245.65.190
→
11/15 11:50, , 1F
11/15 11:50, 1F
→
11/15 11:51, , 2F
11/15 11:51, 2F
→
11/15 11:52, , 3F
11/15 11:52, 3F
→
11/15 11:53, , 4F
11/15 11:53, 4F
→
11/15 11:53, , 5F
11/15 11:53, 5F
→
11/15 13:31, , 6F
11/15 13:31, 6F
→
11/15 13:33, , 7F
11/15 13:33, 7F
→
11/15 13:53, , 8F
11/15 13:53, 8F
→
11/15 13:55, , 9F
11/15 13:55, 9F
→
11/15 16:28, , 10F
11/15 16:28, 10F
→
11/15 17:27, , 11F
11/15 17:27, 11F
→
11/15 17:27, , 12F
11/15 17:27, 12F
→
11/15 17:37, , 13F
11/15 17:37, 13F
→
11/15 17:38, , 14F
11/15 17:38, 14F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
