標題: Excel 查音標 [打印本頁]

---

作者: sky_matiz    時間: 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    時間: 2011-12-21 18:49

以解決了...原來是舊的圖片未清掉

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)