- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 98
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-4-27
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-22 13:11 ½s¿è
¦^´_ 1# ¦Û§Ú·Pı¨}¦n
²{¦bªºyahoo¦r¨åµ¼Ð¤w¸g§ï¦¨¤å¦r
³o¼Ë§ó¦n¿ëÃѤF- Sub searchIT(Rng As Range)
- Dim XH As Object
- Dim shpRm As Shape
- '²M°£¤w¦³ªº¸ÑÄÀ¤Îµ¼Ð
- With Rng.EntireRow
- .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
- End With
- '¶}±Òºô¶
- 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) = Left(VBA.Split(.responseText, "KK</span> ")(1), InStr(VBA.Split(.responseText, "KK</span> ")(1), "]"))
-
- End With
- Rng.Select
- End Sub
½Æ»s¥N½X
yahoo_dictionary.rar (13.66 KB)
|
|