oobird

'摘取KK音標
           Rng.Offset(0, 1) = Split(Split(.responseText, "KK</span> ")(1), "<span> DJ")(0)

oobird

1. Sub URLString()
   
2. Dim x As String
   
3.     Set xPost = CreateObject("Microsoft.XMLHTTP")
   
4.     Set Fsys = CreateObject("Scripting.FileSystemObject")
   
5. With xPost
   
6.     .Open "GET", "http://mops.twse.com.tw/mops/web/ajax_t108sb27?step=1&firstin=ture&off=1&TYPEK=sii&co_id_1=&co_id_2=&year=101&month=&b_date=&e_date=&type=1&rulesubmit2=%20%E6%90%9C%E5%B0%8B%20", 0   '要擷取原始碼的網址
   
7.     .send
   
8.     Do While xPost.ReadyState <> 4
   
9.     Loop
   
10. 
    
11.    
    
12. 'PS:此處符合搜尋的字串有兩組,語法請教..... x = 傳回 "t108sb27_" 開始到 ".csv" 結束的字串
    
13.    
    
14.     x = Split(Split(.responseText, "filename' value='")(1), "<table class='noBorder")(0)
    
15. End With
    
16. End Sub

複製代碼

回復 4# HSIEN6001