[算表] 如何將google翻譯嵌入工作表執行?
軟體:office
版本:2007
我之前使用2003版本
有順利的把在網路上搜尋到的程式碼
將google翻譯的功能
瞎打誤撞 很碰巧地存在Excel VB中
並形成巨集 可將其用一般函數使用
使用上一切順利
但是我後來使用Excel2007版後
想要依樣畫葫蘆
把原來的程式碼
貼入 Excel VB的編輯介面中
卻再也無法像之前一樣順利執行
不知是否可詢問到正確的操作步驟
亦或是2007與2003的程式編寫方式有差異
對我這個對於程式一竅不通的門外漢是一大苦惱
所以上來請問各位先進
以下附上程式碼
Function GetChinese(StringOrigin) As String
Dim WDC As Object
Dim StrHTML$, lStart&, lEnd&, Arr, strResult$, Temp, strS
With CreateObject("Msxml2.XMLHTTP")
.Open "POST", "http://translate.google.com/", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "prev=hp&hl=zh-CN&js=y&text=" & StringOrigin &
"&file=&sl=auto&tl=zh-TW"
StrHTML = .ResponseText
End With
lStart = InStr(StrHTML, "<span id=result_box")
lEnd = InStr(lStart, StrHTML, "</span></span>")
StrHTML = Mid(StrHTML, lStart + 1, lEnd - lStart + 13)
Arr = Split(StrHTML, "<")
For Each strS In Arr
Temp = Split(strS, ">")
If Temp(1) <> "" Then strResult = strResult & Temp(1)
Next
GetChinese = strResult
End Function
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.42.236.249
→
10/02 23:33, , 1F
10/02 23:33, 1F
→
10/02 23:43, , 2F
10/02 23:43, 2F
→
10/02 23:44, , 3F
10/02 23:44, 3F
→
10/02 23:55, , 4F
10/02 23:55, 4F
→
10/03 00:24, , 5F
10/03 00:24, 5F
→
10/03 01:01, , 6F
10/03 01:01, 6F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
