上網查音標英英解釋

4^# 跳轉到 »

發表於 2015-12-11 09:35 | 只看該作者

回復 3# brianhau
新增新的Module，貼上2# code
工作表 A1 填你要查的字
B1 填 =dictionary_oxford(A1)

網頁擷取相關的就算是進階書也不會教你的
入門書到書店翻翻看適合自己程度的會比較好。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

3^#

發表於 2015-12-11 09:13 | 只看該作者

回復 2# stillfish00

謝謝前輩指導
我研究了一下
仍出現這樣的錯誤訊息

請問我哪裡做錯了嗎？

dict Eng.zip (15.72 KB)
附件是我研究後的結果，請前輩指導。

請問可否推薦VB的入門書籍？試錯後覺得很有趣想瞭解，謝謝各位前輩。

2^#

發表於 2015-12-10 15:36 | 只看該作者

回復 1# brianhau

用錯的程式碼出現了VB編輯器
這樣我照著試試，成功了

1.  檔案>選項>自訂功能區勾選開發人員，以後就有按鈕直接進去了...
或是快速鍵 Alt+ F11

2.  每個網頁都是不一樣的，原程式是針對奇摩字典的網頁分析擷取結果的，你只換網址，分析邏輯都沒變當然不能用...

3.  英英字典的自訂函數

Private oxmlhttp As Object
Private ohtml As Object
Function dictionary_oxford(word As String)
Dim colNodes As Object, bFound As Boolean
If oxmlhttp Is Nothing Then Set oxmlhttp = CreateObject("msxml2.xmlhttp")
If ohtml Is Nothing Then Set ohtml = CreateObject("htmlfile")
With oxmlhttp
.Open "get", "http://www.oxfordlearnersdictionaries.com/definition/english/" & word, False
.send
ohtml.body.innerhtml = .responsetext
'<span class="def" ...
Set colNodes = ohtml.getElementsByTagName("span")
For Each x In colNodes
If x.className = "def" Then bFound = True: dictionary_oxford = x.innerText: Exit For
Next
If Not bFound Then dictionary_oxford = "# Not Found #"
End With
End Function

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 話多不如話少，話少不如話好。