joey0415

¦^´_ 1# PKKO

¤U¸ü (55.71 KB)

2016-3-13 18:57

1. Sub ex1()
   
2. 
   
3.     For i = 1 To 30
   
4.      
   
5.         Cells(i, 4) = Len(Cells(i, 3))
   
6.         Cells(i, 5) = InStr(Cells(i, 3), "(")
   
7.         Cells(i, 6) = InStr(Cells(i, 3), ")")
   
8.         Cells(i, 7) = Mid(Cells(i, 3), Cells(i, 5) + 2, Cells(i, 6) - Cells(i, 5) - 3) '¤½¥q¥N½X
   
9. 
   
10.         snum = Cells(i, 7)
    
11.         Set HTML = CreateObject("htmlfile")
    
12.         
    
13.         Dim strText As String
    
14.         With CreateObject("WinHttp.WinHttpRequest.5.1")
    
15.             .Open "get", "http://www.travel.org.tw/showtable.aspx?id=" & snum, False
    
16.             .Send
    
17.             strText = .responseText
    
18.             
    
19.             HTML.body.innerhtml = strText
    
20.             Set tb = HTML.all.tags("table")(0).Rows
    
21.             
    
22.             For x = 1 To 13
    
23.                 Cells(i, x + 7) = tb(x).Cells(1).innertext
    
24.             Next
    
25.         End With
    
26. 
    
27.     Next
    
28.         
    
29.     Cells.EntireColumn.AutoFit
    
30. End Sub

½Æ»s¥N½X

test.zip (27.6 KB)

¤U¸ü¦¸¼Æ: 8

2016-3-13 18:57