ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

·sª©ªÑ¥«¤½¶}¸ê°TÆ[´ú¯¸ªº¸ê®Æ§ì¨ìEXECL?

¦^´_ 10# BigDog
ºô§}:¤½¶}¸ê°TÆ[´ú¯¸-->Àç¹B·§ªp-->°]°È¤ñ²v¤ÀªR->±ÄIFRSs«á->°]°È¤ÀªR¸ê®Æ
   
  1. Option Explicit
  2. Sub ¤½¶}¸ê°Tºô­¶()
  3.     Dim A As Object, E As Object
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         ' .Navigate "http://mops.twse.com.tw/mops/web/t164sb04"     'ºô§}:ºî¦X·l¯qªí
  7.         '.Navigate "http://mops.twse.com.tw/mops/web/stapap1"       'ºô§}:¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê
  8.          .Navigate "http://mops.twse.com.tw/mops/web/t05st22"
  9.          'ºô§}:¤½¶}¸ê°TÆ[´ú¯¸-->Àç¹B·§ªp-->°]°È¤ñ²v¤ÀªR->±ÄIFRSs«á->°]°È¤ÀªR¸ê®Æ
  10.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  11.          '   .document.getElementById("isnew").Value = "false"       '¿ï¾Ü: ¾ú¥v¸ê®Æ
  12.             'µù¸Ñ¤W¤@¦æµ{¦¡½X¬° -> ¿ï¾Ü: ³Ì·s¸ê®Æ,¤£·|°õ¦æ If ¤ºµ{¦¡½X
  13.             If .document.getElementById("isnew").Value = "false" Then
  14.              .document.getElementById("isnew").FireEvent ("onchange")
  15.                 .document.getElementById("year").Value = "102"       '¦~«×
  16.                 .document.getElementById("season").Value = "01"    'ºî¦X·l¯qªí:©u§O
  17.                 .document.getElementById("month").Value = "08"      '¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê®Æ:¤ë¥÷
  18.             End If
  19.             '********************************************************************
  20.            For Each A In .document.getelementSbyTAGNAME("INPUT")
  21.                 'If A.Name = "co_id" Then A.Value = "2317"
  22.                  If A.Name = "co_id" Then A.Value = ActiveSheet.Range("A1") 'Àx¦s®æ:«ü©w¥N¸¹
  23.                  If A.Value = " ·j´M " Then A.Click                     '«ö¤U ·j´M
  24.             Next
  25.             Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  26.             For Each E In .document.ALL.TAGS("div")
  27.                 If E.ID = "table01" Then
  28.                     .document.body.innerHTML = E.outerHTML
  29.                     Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  30.                     .ExecWB 17, 2       '  Select All
  31.                     .ExecWB 12, 2       '  Copy selection
  32.                     With ActiveSheet
  33.                         .UsedRange.Offset(1).Clear
  34.                         .Cells(2, 1).Select
  35.                         .PasteSpecial Format:="HTML"
  36.                     End With
  37.                 End If
  38.             Next
  39.        .Quit                          'Ãö³¬ IE
  40.     End With
  41. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# GBKEE

¶Wª©¤j¤j°Ý¤@¤U®@,±z¬O¦p¦ó±oª¾ºô§}«á­±ªº¿ï¶µªº?¹ê¦b¤Ó±j¤j¤F...
    http://mops.twse.com.tw/mops/web/t164sb04  =>«á­±¦³season ¡B year ¦p¦ó±oª¾ªº?

¨Ò¦p:http://lbma.oblive.co.uk/table   
³o¬O­Û´°¶Àª÷ªº¤½§i»ù®æºô¯¸
§Ú¥u·|§ì104¦~ªº,¦]¬°§Ú¤£¾å±o«á­±­n¦p¦ó¿é¤Jyear ªºÅܼƨú±o¤£¦P¦~«×ªº¸ê®Æ
½Ð°ÝÃþ¦ü³oºØºô­¶¸Ó¦p¦ó§ä¥X«á­±ªºÅܼƿé¤J¤è¦¡
¥H¤Î³o­Óºô§}ªºÅܼƭn¦p¦ó¿é¤J?
PKKO

TOP

¦^´_  GBKEE

¶Wª©¤j¤j°Ý¤@¤U®@,±z¬O¦p¦ó±oª¾ºô§}«á­±ªº¿ï¶µªº?¹ê¦b¤Ó±j¤j¤F...
    http://mops.twse. ...
PKKO µoªí©ó 2015-7-16 21:18


http://lbma.oblive.co.uk/table?metal=silver&year=2008&type=monthly

http://lbma.oblive.co.uk/table?metal=gold&year=2013&type=daily

¦Û¤v½m²ß§ï§ï¬Ý

TOP

¦^´_ 13# joey0415


    joey0415¤j¤j±z¦n,±zµ¹§Ú²Ó³¡ºô§}¤§«á,§Ú´N·|§ï¤F
¥i¬O±zªº²Ó³¡ºô§}¬O¦p¦ó±oª¾ªº?

¨Ò¦p:http://lbma.oblive.co.uk/table    =>  ±q³o¸Ì¶}©l(?metal=silver&year=2008&type=monthly)
¬õ¦â¦r¦êªº¦a¤è±z«ç»òª¾¹D¦³³o¬qºô§}?
§Ú²q¤]²q¤£¨ìªü~
ÁÙ¬O­n¬Ýºô­¶ªºÀ˵øµ{¦¡¶Ü?
PKKO

TOP

¦^´_ 14# PKKO
ºCºCªºÅé·|
  1. Option Explicit
  2. Sub Ex_ºô­¶¤¸¯À()
  3.     Dim i As Integer, E As Object
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "http://mops.twse.com.tw/mops/web/t164sb04"
  7.         
  8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  9.         Stop
  10.         '¦b³oºô§}¿é¤J¬ÛÃö¸ê®Æ,¦AÄ~Äò°õ¦æ¤U­±ªºµ{¦¡
  11.          
  12.         With .Document  'ºô­¶ªº¤å¥ó
  13.           '*** ³o¬qµ{¦¡½X¥i¬d¬Ý³oºô­¶ªº¤¸¯À¤º®e
  14.             On Error Resume Next
  15.             For Each E In .all
  16.                 i = i + 1
  17.                 Cells(i, "a") = E.tagname   '±±¨î¶µ¼Ð°Oªº¦WºÙ
  18.                 Cells(i, "b") = E.ID        '±±¨î¶µ¼Ð°OªºID (±©¤@ªº)
  19.                 Cells(i, "c") = E.Name      '±±¨î¶µ¼Ð°Oªº©R¦W
  20.                 Cells(i, "d") = E.Value     '±±¨î¶µ¼Ð°Oªº­È
  21.                 Cells(i, "e") = E.innertext '±±¨î¶µ¼Ð°Oªº¤å¦r
  22.                 Cells(i, "f") = E.Type      '±±¨î¶µ¼Ð°OªºÃþ«¬
  23.                 Cells(i, "g") = E.href      '±±¨î¶µ¼Ð°Oªººô§}
  24.             Next
  25.           '****************************************
  26.         End With
  27.     '    .Quit        'Ãö³¬ºô­¶
  28.     End With
  29.     '°õ¦æ«á¨ì¤u§@ªí¤W,¬d¬Ý¦b³oºô§}¿é¤J¬ÛÃö¸ê®Æªº±±¨î¶µªºÄÝ©Ê
  30. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# GBKEE


    «z~¤Ó·PÁ¶Wª©¤j¤j¤F¡A§Ú·|ºCºCÅé·|ªº!ÁÂÁÂ~
PKKO

TOP

¦^´_ 14# PKKO


    IE ªº URL ®Ø¤£´N¦³¤F

TOP

¦^´_  PKKO


    IE ªº URL ®Ø¤£´N¦³¤F
bobomi µoªí©ó 2015-7-17 10:35


§A¥i¸Õ¸Õ¬Ý¡A¦³¨ÇªF¦è¨S¦³§A·Q±o¨º»ò²³æ³á

URL¤@¯ë³£¥u¦³ªì©l­¶­±

TOP

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-7-17 14:21 ½s¿è
§A¥i¸Õ¸Õ¬Ý¡A¦³¨ÇªF¦è¨S¦³§A·Q±o¨º»ò²³æ³á

URL¤@¯ë³£¥u¦³ªì©l­¶­±
ftc693 µoªí©ó 2015-7-17 12:00



§Úª¾¹D¦³¨Ç¤£¦æ°Ú
¦ý§Ú¦^ªº¬O http://lbma.oblive.co.uk/table?metal=silver&year=2008&type=monthly ³o­Óºô­¶

¥D­n¬O post ºô­¶ (  ºÝ¬Ý¹ï¤è­n¤£­nµ¹§A¤è«K  )
¤£·Qµ¹§Aª½±µ¤U¸üªº, ºô§}«á­±´N¤£·|ª½±µ©ñ°Ñ¼Æ, ¦ý¥i¥H§ä¥X¨Ó
ÁÙ¦³§ó¬½¤@ÂIªº
¬°¤F¤£Åý§A§ì
¸g±`§ïÅܺô§}°Ñ¼Æ

TOP

¦^´_ 19# bobomi

©p»¡ªºURL®Ø«üªº¬O¼gºô§}ªº¦a¤è¶Ü?

§Ú¤@¶}©l¬d¨ìªººô§}¥u¦³³o¼Ë=>    http://www.lbma.org.uk/pricing-and-statistics

¬Ojoey0415¤j¤j´£¨Ñ«á­±ªººô§},§Ú¤~ª¾¹D°Ñ¼Æ

«á¨Ó¶Wª©¤j¤j´£¨Ñ§Ú¾Ç²ß±o¨ì°Ñ¼Æªº¤èªk

¦]¦¹ÁÙ¦b¾Ç²ß¤¤= =
PKKO

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD