海霸王年菜2016 , 台酒年菜2016 , 外帶年菜2016 , 飯店年菜2016 , 素食年菜2016 , 高雄年菜2016 , 阿霞飯店年菜2016 (年菜菜單)2016年菜預購 高雄年菜餐廳 ... 2016

Oct 2nd 2013, 22:14, by dogyvic

作者dogyvic (沒有暱稱)

看板ask

標題[請問] 如何將google翻譯崁入excel工作表中執行

時間Wed Oct 2 22:14:48 2013

軟體: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, "") StrHTML = Mid(StrHTML, lStart + 1, lEnd - lStart + 13) Arr = Split(StrHTML, "") If Temp(1) "" Then strResult = strResult & Temp(1) Next GetChinese = strResult End Function -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.42.236.249

推 sgracee:嵌 ㄑㄧㄢ 10/02 22:16

This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends:

• Massacres That Matter - Part 1 - 'Responsibility To Protect' In Egypt, Libya And Syria
• Massacres That Matter - Part 2 - The Media Response On Egypt, Libya And Syria
• National demonstration: No attack on Syria - Saturday 31 August, 12 noon, Temple Place, London, UK