joey0415

1. Sub otc()
   
2. Cells.Delete
   
3.     With ActiveSheet.QueryTables.Add(Connection:= _
   
4.         "URL;http://www.tpex.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430_print.php?l=zh-tw&d=104/04/14&se=EW&s=0,asc,0" _
   
5.         , Destination:=Range("$A$1"))
   
6.         .Refresh BackgroundQuery:=False
   
7.     End With
   
8. End Sub

½Æ»s¥N½X

¤é´Á§ï¤@§ï´N¦æ

joey0415

¦^´_ 4# k123456770
µ{¦¡½X¤¤ªº
104/04/14


    ´N¬O¤é´Á