返回列表 上一主題 發帖

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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題