GBKEE

回復 1# uf023630

1. Option Explicit
   
2. Private Sub Ex()
   
3.     Dim S, URL As String
   
4.     URL = "http://?????"
   
5.     With CreateObject("Microsoft.XMLHTTP")
   
6.         .Open "get", URL, False
   
7.        .send
   
8.         '.responseText-> "原始碼"，
   
9.        S = Split(.responseText, "關鍵字") '原始碼以"關鍵字"為陣列
   
10.        S = Split(S(1), "成員關鍵字")      '分割取得你要的內部網站20位員資料的陣列
    
11.     End With
    
12. End Sub

複製代碼

也可如此