返回列表 上一主題 發帖

Excel 查音標

sky_matiz

帖子
6 
主題
1 
精華
0 
積分
13 
點名
0  
作業系統
WinXP 
軟體版本
XP3 
閱讀權限
10 
性別
男 
註冊時間
2011-12-21 
最後登錄
2011-12-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-12-21 18:38 | 只看該作者

Excel 查音標

請問 :
   我音標的部份 , 一直修改不出來 , 請問有那個地方有問題
   Set XH = CreateObject("Microsoft.XMLHTTP")
        With XH
            .Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
            .send
            On Error Resume Next
            '摘取第一組中文翻譯
            Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description""><p>1.")(1), "<")(0)
            '摘取KK音標
            Rng.Offset(0, 1) = Split((Split(.responseText, "KK</span>")(1)), "<span>")(0)
收藏 分享

sky_matiz

帖子
6 
主題
1 
精華
0 
積分
13 
點名
0  
作業系統
WinXP 
軟體版本
XP3 
閱讀權限
10 
性別
男 
註冊時間
2011-12-21 
最後登錄
2011-12-21 
2#
發表於 2011-12-21 18:49 | 只看該作者
以解決了...原來是舊的圖片未清掉

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題