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

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

ÁÂÁ¨â¦ìªº¤À¨É»P±Ð¾É~

TOP

¦^´_ 13# joey0415
µ¹§A°Ñ¦Ò
  1. Option Explicit
  2. Sub ªÑ²¼¤é³øªí()                        '¬d¸ß³æ¤@ªÑ²¼
  3.     Dim ªÑ²¼¥N¸¹ As String, ­¶¼Æ As String, T As Date
  4.     Do While ªÑ²¼¥N¸¹ = ""
  5.         ªÑ²¼¥N¸¹ = InputBox("ªÑ²¼¥N¸¹", "¿é¤J¬d¸ß¤§ªÑ²¼¥N¸¹", "1101")
  6.         If ªÑ²¼¥N¸¹ = "" Then End
  7.     Loop
  8.     T = Time
  9.     ­¶¼Æ = ³øªí­¶¼Æ(ªÑ²¼¥N¸¹)
  10.     If ­¶¼Æ <> "" Then
  11.         ¶×¤J¤é³øªí ªÑ²¼¥N¸¹, ­¶¼Æ
  12.        MsgBox Format(Time - T, "§¹¦¨ ¶O®É HH:MM:SS")
  13.     Else
  14.         MsgBox "ªÑ²¼¥N¸¹  " & ªÑ²¼¥N¸¹ & " ¦³»~ !!!"
  15.     End If
  16. End Sub
  17. Private Sub ¶×¤J¤é³øªí(ªÑ²¼¥N¸¹ As String, ­¶¼Æ As String)      '°Ñ¼Æ¶Ç°e¨Óªº --ªÑ²¼¥N¸¹ & ­¶¼Æ
  18.     Dim Rng As Range
  19.     With ActiveSheet
  20.         If .QueryTables.Count = 0 Then
  21.             With .QueryTables.Add("URL;about:Tabs", .[A1])
  22.                 .Refresh BackgroundQuery:=False
  23.             End With
  24.         End If
  25.         With .QueryTables(1)
  26.             .Connection = "URl;http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=All_" & ­¶¼Æ
  27.             .WebFormatting = xlWebFormattingNone
  28.             .WebTables = "4,""table2"""
  29.             .Refresh False
  30.         End With
  31.         Set Rng = .UsedRange.Offset(6)
  32.          With Rng.Columns("A")
  33.             .Replace "§Ç", "=Why", xlWhole
  34.             .SpecialCells(xlCellTypeFormulas, xlErrors).Value = ""
  35.             .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  36.         End With
  37.         .Cells(1).Select
  38.     End With
  39. End Sub
  40. Private Function ³øªí­¶¼Æ(ªÑ²¼¥N¸¹ As String)   '°Ñ¼Æ¶Ç°e¨Óªº --ªÑ²¼¥N¸¹
  41.     With CreateObject("InternetExplorer.Application")
  42.             .Navigate "http://bsr.twse.com.tw/bshtm/bsMenu.aspx"
  43.             Do While .Busy Or .readyState <> 4
  44.                 DoEvents
  45.             Loop
  46.             .document.getElementsByName("txtTASKNO").Item(0).Value = ªÑ²¼¥N¸¹
  47.             .document.getElementsByName("btnOK")(0).Click
  48.             Do While .Busy Or .readyState <> 4
  49.                 DoEvents
  50.             Loop
  51.             ³øªí­¶¼Æ = .document.getElementsByName("sp_ListCount")(0).innertext
  52.             .Quit
  53.     End With
  54. End Function
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 23# GBKEE

Æg¡IÁÂÁª©¥D¥Î³o»ò¥\¾ãªº»yªk¡A¤p§Ì¾Ç²ß°Õ¡I

TOP

¦^´_ 23# GBKEE

½Ð°ÝGBKEE¤j
°õ¦æ®É¥X²{¿ù»~ , ¸Ó¦p¦ó­×¥¿©O?

ScreenHunter_02 Aug. 13 22.57.jpg (13.16 KB)

¿ù»~°T®§

ScreenHunter_02 Aug. 13 22.57.jpg

ScreenHunter_02 Aug. 13 22.56.jpg (26.32 KB)

ScreenHunter_02 Aug. 13 22.56.jpg

TOP

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

¦^´_ 25# cadillac
  1. Private Function ³øªí­¶¼Æ(ªÑ²¼¥N¸¹ As String)   '°Ñ¼Æ¶Ç°e¨Óªº --ªÑ²¼¥N¸¹
  2.     With CreateObject("InternetExplorer.Application")
  3.             .Navigate "http://bsr.twse.com.tw/bshtm/bsMenu.aspx"
  4.             Do While .Busy Or .readyState <> 4
  5.                 DoEvents
  6.             Loop
  7.             '³o¸Ì¨S¿ù»~ *****
  8.             .document.getElementsByName("txtTASKNO").Item(0).Value = ªÑ²¼¥N¸¹         
  9.          .document.getElementsByName("btnOK")(0).Click    '³o¸Ì¬°¦ó¨S¿ù»~???******
  10.             Do While .Busy Or .readyState <> 4
  11.                 DoEvents
  12.             Loop
  13.             '¥i¥H¦Û¤v §ï¤@§ï***********
  14.             ³øªí­¶¼Æ = .document.getElementsByName("sp_ListCount")(0).innertext
  15.             .Quit
  16.     End With
  17. End Function
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 26# GBKEE ¶Wª©

¸Õ¤F¦n¤[ÁÙ¬O¸Õ¤£¥X¨Ó,
¥[¤J.Visible = True ¥s¥XIE¬d¬Ý , ½T»{¬O¦³¬d¸ß¨ì­¶½X , ¦ý¬Oµ{¦¡´N¬O¨SªkÄ~Äò©¹¤U¨« , Àµ½Ð¶Wª©À°À°¦£ , ·P®¦.

ScreenHunter_02 Aug. 14 21.16.jpg (31.25 KB)

µ{¦¡½XÂ_ÂI

ScreenHunter_02 Aug. 14 21.16.jpg

ScreenHunter_02 Aug. 14 21.21.jpg (13.4 KB)

¿ù»~°T®§

ScreenHunter_02 Aug. 14 21.21.jpg

ScreenHunter_02 Aug. 14 21.20.jpg (69.93 KB)

IE Àˬd¤¸¯À

ScreenHunter_02 Aug. 14 21.20.jpg

TOP

¦^´_ 26# GBKEE ¶Wª©

ªþ¤WÀÉ®×
¥t¥~½Ð°Ý "¤U¸ü¤@¯ë¥æ©ö¶R½æ¤é³øªí CSV" , ¦³¾÷·|±j¨îÂê©w "»{ÃÒ½X"¼Æ­È , µM«á¦Û°Ê¶ñ¤J»{ÃÒ½X¶i¦æ¤U¸ücsvÀɶÜ?

ScreenHunter_02 Aug. 14 21.37.jpg (117.68 KB)

¤U¸ü¤@¯ë¥æ©ö¶R½æ¤é³øªí CSV

ScreenHunter_02 Aug. 14 21.37.jpg

¨C¤é¥æ©ö©ú²Ó³øªíVer 0.1.rar (28.24 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-15 06:35 ½s¿è

¦^´_ 28# cadillac
ºô­¶³]¦³[»{ÃÒ½X],­­¨î¥Îµ{¦¡¤U¸ü.¥\¤O¤£°÷¯}¸Ñ¤£¤F.

§A¦³¬d¥Xºô­¶­ì©l½X<span id="sp_ListCount">15</span>
¸Õ¸Õ¬Ý
  1. .document.getElementByID("sp_ListCount").INNERTEXT            
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 29# GBKEE ¶Wª©

·PÁª©¤jªºÀ°¦£ , µ{¦¡³£¥i¥H¥¿±`¶]§¹.

¥t¥~½Ð±Ðª©¤j¦b§ì¨ú­¶¼Æªº®É­Ô¦pªG¥X²{ "°õ¦æ¶¥¬q¿ù»~13 : «¬ºA¤£²Å¦X"
¥i¥H¥Îµ{¦¡¦Û°Ê½T»{µM«áÄ~Äò°õ¦æ¶Ü?

ScreenHunter_02 Aug. 18 21.04.jpg (13.53 KB)

¿ù»~°T®§

ScreenHunter_02 Aug. 18 21.04.jpg

ScreenHunter_04 Aug. 18 21.04.jpg (32.49 KB)

¿ù»~µe­±

ScreenHunter_04 Aug. 18 21.04.jpg

TOP

¦^´_ 30# cadillac
23#¤£¬O¦³¨¾¿ù¾÷¨î,ªþ¤Wµ{¦¡½X¬Ý¬Ý
  1. If ­¶¼Æ <> "" Then
  2.         ¶×¤J¤é³øªí ªÑ²¼¥N¸¹, ­¶¼Æ
  3.        MsgBox Format(Time - T, "§¹¦¨ ¶O®É HH:MM:SS")
  4.     Else
  5.         MsgBox "ªÑ²¼¥N¸¹  " & ªÑ²¼¥N¸¹ & " ¦³»~ !!!"
  6.     End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD