- ©«¤l
- 6
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- XP3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-21
- ³Ì«áµn¿ý
- 2011-12-21
|
Excel ¬dµ¼Ð
½Ð°Ý :
§Úµ¼Ðªº³¡¥÷ , ¤@ª½×§ï¤£¥X¨Ó , ½Ð°Ý¦³¨ºÓ¦a¤è¦³°ÝÃD
Set XH = CreateObject("Microsoft.XMLHTTP")
With XH
.Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
.send
On Error Resume Next
'ºK¨ú²Ä¤@²Õ¤¤¤å½Ķ
Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description""><p>1.")(1), "<")(0)
'ºK¨úKKµ¼Ð
Rng.Offset(0, 1) = Split((Split(.responseText, "KK</span>")(1)), "<span>")(0) |
|