GBKEE

¦^´_ 2# mark15jill
¸Õ¸Õ¬Ý : ¬O§_¬O³o¼Ë!

1. Private Sub CommandButton1_Click()
   
2.     Dim myElements As Object, E As Object, xxA As Integer
   
3.     Set myElements = WebBrowser1.document.getElementsByTagName("A")
   
4.     With ActiveSheet
   
5.         .UsedRange.Clear
   
6.         For Each E In myElements
   
7.             If E.INNERTEXT Like "*¾ÇÁp·|*" Or E.INNERTEXT Like "*¾Ç¥ÍÁp·|*" Then
   
8.                 xxA = xxA + 1
   
9.                 .Cells(xxA, 1) = E.INNERTEXT
   
10.                 .Cells(xxA, 2) = E.HREF
    
11.             End If
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X