¥Îexcel¤Wºô¬d­µ¼Ð¤S¬G»Ù¤F¡A¤£ª¾¨º¸Ì¥X°ÝÃD¡H

¦Û§Ú·Pı¨}¦n

¤U¸ü (80.49 KB)

2015-5-28 06:34

¦Û§Ú·Pı¨}¦n

001.rar (26.24 KB)

¤U¸ü¦¸¼Æ: 7

2015-5-29 22:20

¥u¯à¦^¶Ç¤@¨Ç¤¤Ä¶¡K

¦Û§Ú·Pı¨}¦n

¦^´_ 3# Hsieh
n = .responseText
                         If InStr(.responseText, "><h4>1.") > 0 Then rng.Offset(0, 2) = Trim(Split(Split(.responseText, "><h4>1.")(1), "<")(0))
                        'ºK¨úKK­µ¼Ð
                        If InStr(.responseText, ">KK[") > 0 Then rng.Offset(0, 1) = "[" & Split(Split(.responseText, ">KK[")(1), "]")(0) & "]"
                        .Open "get", iurl2 & rng, False
                        .send
                        '±qDICT.TW ­^º~¦r¨åÂ^¨ú¦r¸q
                        If InStr(.responseText, "</span><br /> &nbsp;") > 0 Then rng.Offset(0, 3) = Split(Split(.responseText, "</span><br /> &nbsp;")(1), "<")(0)
                    End With
             End If
    Next
End Sub


´«­Ó¤èªk´N¥i¥H¥Î¤F¡K
¯uªº¤Ó·PÁ¤F¡C

¦Û§Ú·Pı¨}¦n

¦^´_ 4# ¦Û§Ú·Pı¨}¦n

¶Ã§ï¤@³q.rar (16.61 KB)

¤U¸ü¦¸¼Æ: 12

2015-5-31 07:45

¥~¦æ¤H§â¥¦§ï¦¨³o¼Ë¡Aµ{¦¡À³¸ÓÁÙ¥i¥H§ó²©öªº

Sub searchIT(rng As Range)
    Dim XH As Object
    Dim shpRm As Shape
    Columns("B:B").Select
    With Selection.Font
        .Name = "Arial Unicode MS"
        .Size = 12
    End With
Range("a1").Select
      Dim iurl, iurl2 As String
    '²M°£¤w¦³ªº¸ÑÄÀ¤Î­µ¼Ð
    iurl = "http://tw.dictionary.search.yahoo.com/search?p="
    iurl2 = "http://dict.tw/index.pl?query="
    For Each rng In ActiveSheet.Range("a1", ActiveSheet.Range("a50").End(xlUp))
            rng.Select
            If rng.Value <> "" Then
              rng.Select
              Set XH = CreateObject("Microsoft.XMLHTTP")
                    With XH
                        .Open "get", iurl & rng, False
                        .send
                        ' On Error Resume Next
                        '±qYahoo¦r¨åºK¨ú²Ä¤@²Õ¤¤¤å½Ķ
                    
                         If InStr(.responseText, "><h4>1.") > 0 Then rng.Offset(0, 2) = Trim(Split(Split(.responseText, "><h4>1.")(1), "<")(0))
                        'ºK¨úKK­µ¼Ð
                        If InStr(.responseText, ">KK[") > 0 Then rng.Offset(0, 1) = "[" & Split(Split(.responseText, ">KK[")(1), "]")(0) & "]"
                        .Open "get", iurl2 & rng, False
                        .send
                        '±qDICT.TW ­^º~¦r¨åÂ^¨ú¦r¸q
                        If InStr(.responseText, "</span><br /> &nbsp;") > 0 Then rng.Offset(0, 3) = Split(Split(.responseText, "</span><br /> &nbsp;")(1), "<")(0)
                    End With
             End If
    Next
End Sub