white5168

³Ìªñ¦£¤F¤@¨Ç¨Æ,¨ì¤µ¤Ñ¦A¦^¨Ó,§A¥i¥H°Ñ¦Ò¬Ý¬Ý¥H¤Uªºcode,¬O¤£¬O§A­nªº

1. Sub Ex()
   
2.     Const StockIDURL As String = "http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y"
   
3.     Dim xlSheet As Excel.Worksheet   
   
4.     Set xlSheet = Sheets("Sheet1")   
   
5.     With xlSheet.QueryTables.Add("URL;" & StockIDURL, xlSheet.Cells(1, 1))
   
6.         .WebFormatting = xlWebFormattingNone
   
7.         .WebTables = "1"
   
8.         .Refresh 0
   
9.         .Delete
   
10.     End With   
    
11.     Set xlSheet = Nothing
    
12. End Sub

½Æ»s¥N½X

white5168

¦^¤Ó§Ö,·d¿ù¤F,§A¦A°Ñ¦Ò¬Ý¬Ý

1. WEB
   
2. 1
   
3. http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y
   
4. 
   
5. Selection=AllTables
   
6. Formatting=All
   
7. PreFormattedTextToColumns=True
   
8. ConsecutiveDelimitersAsOne=True
   
9. SingleBlockTextImport=False
   
10. DisableDateRecognition=False
    
11. DisableRedirections=False

½Æ»s¥N½X

white5168

¦^¤Ó§Ö,·d¿ù¤F,§A¦A°Ñ¦Ò¬Ý¬Ý
white5168 µoªí©ó 2012-8-10 16:57

§óºë²ªº§@ªk

1. WEB
   
2. 1
   
3. http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y
   
4. 
   
5. Selection=1
   
6. Formatting=None

½Æ»s¥N½X