ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Excel ¬d­µ¼Ð

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)

¥H¸Ñ¨M¤F...­ì¨Ó¬Oªº¹Ï¤ù¥¼²M±¼

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD