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

[µo°Ý] ¬d§äºô¯¸¸ê®Æ

¦^´_ 11# GBKEE

ÁÂÁ¶Wª©¡A¬ã¨sºô¸ô§ì¨ú¦³¤@¬q®É¶¡¤F¡A³o­Óºô¯¸§Ú¯uªº§ì¤£¨ì¡A©Ò¥H¬Ý¨ì¶Wª©ªº¤~ª¾¹D¦³³o»ò¦^¨Æ

¦p¤U¹Ï¡A¤»¬O³o«ü­Ó¶Ü¡H


§Ú¥u¬Ý¨ìºô­¶¤¤¦³³o¨Ç¤¸¯À§r¡I


¹ï©ó.document.all(6).all(0).

ÁÙ¯u¦³¨Ç¼Ò½k

§Æ±æ¶Wª©¯à¦h«üÂI

ÁÂÁÂ

¦pªG§ä¨ìÃþ¦üªººô­¶¡A¦A½Ð¶Wª©¨Ó¬Ý¬Ý

TOP

¦^´_ 11# GBKEE

½Ð°Ý¶Wª©¡A­Y§ì¥Î¤W¥«¤é³øªíªººô¯¸¡A¥ªÃä¤]¬O¦p¦¹¡Atable¦b¥kÃä¡A­×§ï¶Wª©ªºµ{¦¡»yªk

Set D = .document.all(5).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")
§ï¦¨5¤~¥i¥H¥Î

¥kÃ䪺table­Y¥Î¤U­±ªº
Set D = .document.all(5).all(1).contentWindow.frames.document.getElementsByTagName("table")
«h¼´¤£¨ì¸ê®Æ©O¡I

¥H¤U¬O¤é³øªíªºµ{¥N½X
  1. Sub ¤é³øªí()
  2.     Dim D  As Object, e As Object, URL As String

  3.     URL = "http://bsr.twse.com.tw/bshtm/"
  4. '    URL = "http://tmsearch.tipo.gov.tw/TIPO_DR/GoodsIPOContent.jsp"
  5.     With CreateObject("InternetExplorer.Application")
  6.         .Navigate URL
  7.         .Visible = True
  8.          Do While .ReadyState <> 4 Or .Busy
  9.             DoEvents
  10.         Loop
  11.          Set D = .document
  12.          Stop
  13.         Set D = .document.all(5).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")
  14.         
  15. '        For Each ss In D
  16. '            MsgBox ss.Value
  17. '        Next
  18. '
  19.         Stop
  20.         D("txtTASKNO").Value = "1101"
  21.         For Each e In D
  22.             If e.Value = "¬d¸ß" Then e.Click: Exit For
  23.         Next
  24.         Do While .ReadyState <> 4 Or .Busy
  25.             DoEvents
  26.         Loop
  27.         Set D = .document.all(5).all(1).contentWindow.frames.document.getElementsByTagName("table")
  28. '        Stop
  29. '        For Each ss In D
  30. '            MsgBox ss.innerHTML
  31. '        Next
  32.         
  33.         Stop
  34.         Ep D(0).outerHTML
  35.         .Quit
  36.     End With
  37. End Sub
½Æ»s¥N½X
====================================
­è­è¸Õ¤F­ìª©¥D´£¥Xªººô­¶¤]¬O¤£ª¾¹D¶Wª©»¡ªº¬O­þ¤@­Ó©O¡H

¦p¹Ï


TOP

¦^´_ 13# joey0415


   
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# GBKEE

³o±i¹Ï­È¤­Áû¬P°Õ¡I

§ï¤Ñ§Ú¦A¨Ó¸Õ¸Õ¤é³øªí§ïª©¥D¬Ý¬Ý

½Ð°Ýª©¥D§ä¸ê®Æ¤]¬O¥Î³oºØ¤è¦¡©O¡HÁÙ¬O¦³§Oªº§ó¦nªº¤è¦¡

vba¤ºÁ䪺¸ê®Æ¦r«¬¤£¯à©ñ¤j

ÁÂÁÂ

TOP

¦^´_ 15# joey0415


   
vba¤º«Øªº¸ê®Æ¦r«¬¤£¯à©ñ¤j

¬O³o­Ó¶Ü?

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

GBKEE ±z¦n
¯uªº«ÜÁÂÁ±z
¥t¥~
·Q½Ð°Ý±z ¦³¨Ç¬d¸ß¸ê®Æ(¨Ò¦p¬d¸ß"¹q¸£")·|¦³¤U¤@­¶ªº°ÝÃD
·Q½Ð±Ð±z ¦¹ºØª¬ªp¸Ó¦p¦ó¸Ñ¨M
ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-8 09:51 ½s¿è

¦^´_ 17# ciboybj


   
¦³¨Ç¬d¸ß¸ê®Æ(¨Ò¦p¬d¸ß"¹q¸£")·|¦³¤U¤@­¶ªº°ÝÃD

­þ­n¥ý¬Ý³oºô­¶ªº­ì©l¤å¥ó [¤U¤@­¶]Á䪺¦WºÙ.
  1. Sub ¤é³øªí()
  2.     Dim D  As Object, E As Object, P As Integer, URL As String, ­¶¼Æ As Integer, i As Integer
  3.     Dim P_down As Object
  4.     URL = "http://bsr.twse.com.tw/bshtm/"
  5.     With CreateObject("InternetExplorer.Application")
  6.         .Navigate URL
  7.         .Visible = True
  8.          Do While .readyState <> 4 Or .Busy
  9.             DoEvents
  10.         Loop
  11.         Set D = .Document.all(5).all(0).contentWindow.frames.Document.getelementsbytagname("INPUT")
  12.         
  13.         D("txtTASKNO").Value = "1101"
  14.         For Each E In D
  15.             If E.Value = "¬d¸ß" Then E.Click: Exit For
  16.         Next
  17.         Do While .readyState <> 4 Or .Busy
  18.             DoEvents
  19.         Loop
  20.         ­¶¼Æ = .Document.all(5).all(0).contentWindow.frames.Document.getElementsByName("sp_ListCount")(0).INNERTEXT
  21.          For Each E In .Document.all(5).all(0).contentWindow.frames.Document.getelementsbytagname("INPUT")
  22.                 If E.Value = "¤U¤@­¶" Then Set P_down = E: Exit For
  23.             Next
  24.          ActiveSheet.Cells.Clear
  25.          .Document.Focus
  26.         For P = 1 To ­¶¼Æ
  27.             Set D = Nothing
  28.             Do
  29.                 DoEvents
  30.                 Set D = .Document.all(5).all(1).contentWindow.frames.Document.getelementsbytagname("table") '
  31.                
  32.             Loop Until Not D Is Nothing And D.Length = 7
  33.             For i = IIf(P = 1, 3, 4) To 4
  34.                 Ep D(i).outerHTML
  35.             Next
  36.             P_down.Click
  37.             Do While .readyState <> 4 Or .Busy
  38.                 DoEvents
  39.             Loop
  40.         Next
  41.         .Quit
  42.     End With
  43. End Sub
  44. Private Sub Ep(s As String) ' A(A.Length - 1).outerHTML
  45.     With CreateObject("InternetExplorer.Application")
  46.         .Navigate "about:Tabs"
  47.         .Visible = True
  48.         .Document.body.innerHTML = s
  49.         .ExecWB 17, 2       '  Select All
  50.         .ExecWB 12, 2       '  Copy selection
  51.         With ActiveSheet
  52.           '  MsgBox .UsedRange.Rows.Count
  53.             .Range("A" & IIf(.UsedRange.Rows.Count = 1, 1, .UsedRange.Rows.Count + 1)).Select
  54.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  55.         End With
  56.         .Quit
  57.     End With
  58. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 16# GBKEE

§Ú«üªº¬O¡u°Ï°ìÅܼƵøµ¡¡v

½Ð°Ýª©¥DÁÙ¦³§ó¦nªº¬d§ä¤èªk¶Ü¡H

TOP

¦^´_ 18# GBKEE

ÁÂÁ¶Wª©¸Ñ¨M³o­Ó°ÝÃD¡IÁöµM§Ú¤£¬O¥Î³o­Ó¤èªk§ìªº¡I¤£¹LÁÙ¬O­n·PÁÂ

¦A½Ð°Ý¶Wª©

.Document.Focus

¬°¤°»ò­n³o¥y©O¡H¦³¤°»ò®t§O¡H

.all(5)ªº5§Ú¬O¤@­Ó¤@­Ó¸Õ¥X¨Óªº

¥ªÃ䪺¬Oframe¬Oall(0)
¥kÃ䪺¬Oframe¬°¤°»ò¤]¬Oall(0)¦Ó¤£¬Oall(1)
¶Wª©¤]¬O¤@­Ó¤@­Ó¸Õ¥X¨Óªº¶Ü¡H

ÁÙ¬O¦³§Oªº»yªk¥i¥Hlist¥X¨Ó©O¡H

·PÁ¶Wª©¤S¾Ç¨ìªF¦è

TOP

¦^´_ 20# joey0415
ÁÂÁ¶Wª©¸Ñ¨M³o­Ó°ÝÃD¡IÁöµM§Ú¤£¬O¥Î³o­Ó¤èªk§ìªº¡I¤£¹LÁÙ¬O­n·PÁÂ

¥i§_PO¤W¨Ó¥æ¬y.
.all(5)ªº5§Ú¬O¤@­Ó¤@­Ó¸Õ¥X¨Óªº
¶Wª©¤]¬O¤@­Ó¤@­Ó¸Õ¥X¨Óªº¶Ü¡H
ÁÙ¬O¦³§Oªº»yªk¥i¥Hlist¥X¨Ó©O¡H

¥ÎIE»yªkŪ¨úºô­¶¸ê®Æ,§Ú¤]¬Oºô¸ô¤W¾Ç¨Óªº
.Document.Focus
¬°¤°»ò­n³o¥y©O¡H¦³¤°»ò®t§O¡H

¦]¸Ó¨S®t§Oªº,¦]µ{¦¡¦³®É·|¥X¿ù,¥[¤W«á«Ü¬yºZ.
¥kÃ䪺¬Oframe¬°¤°»ò¤]¬Oall(0)¦Ó¤£¬Oall(1)

11# ¦³µù©ú   all(6):±Æ¦æ²Ä6¦ì(¤U­­¯Á¤Þ­È±q0 ¶}©l)ªº[¤¸¯À];.all(0)±Æ¦æ²Ä0ªº[¤¸¯À]
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD