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

[µo°Ý] ºô­¶¸ê®Æ¤U¸ü²¤Æ

[µo°Ý] ºô­¶¸ê®Æ¤U¸ü²¤Æ

¥»©«³Ì«á¥Ñ carzyindex ©ó 2011-5-21 09:26 ½s¿è

³o­Óºô¯¸¤ñ¸û¦³¤H©Ê¤@ÂI  °Ñ¼Æ§äªº¨ì¤]¥i¥H³]©w

¦ý¬O§Ú¤£ª¾¹D­¶¼Æ¦³´X±i

¤gªk·Ò¿û¤@­¶¤@­¶§Ë¤]«Ü¨S¦³®Ä²v

¬d¸ß¤Ó¦h¦¸ÁÙ·|³QÀÉ

½Ð°Ýµ{¦¡¸Ó¦p¦ó¤U¸ü

¨Ò¦p1101

     2201

<span id="sp_ListCount">54</span>

¥Î page_num = document.getElementById("sp_ListCount").innerText

´Nª¾¹D­¶¼Æ¤F...

¤£¹L¬d¸ß¤j¦h¦¸·|³Q¾×¡A¥ÎVBAµ{¦¡¤@¼Ë·|³Q¾×.....
diabo

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-1 10:46 ½s¿è

¦^´_ 1# carzyindex
PS: ¤µ¤é(5/1)´ú¸Õ¦¹ºô­¶ ¥u¤¹³\³sÄò¤U¸ü10­¶
  1. Sub Ex()
  2.     Dim ªÑ²¼¥N¸¹ As String, ¤é´Á  As Variant, N, i As Integer
  3.     Do While Not IsDate(¤é´Á)
  4.         ¤é´Á = InputBox("¿é¤J¬d¸ß¤é´Á", "¤é´Á", Date)
  5.         If ¤é´Á = "" Then End
  6.     Loop
  7.     Do While ªÑ²¼¥N¸¹ = ""
  8.         ªÑ²¼¥N¸¹ = InputBox("ªÑ²¼¥N¸¹", "¿é¤J¬d¸ß¤§ªÑ²¼¥N¸¹", "1101")
  9.         If ¤é´Á = "" Then End
  10.     Loop
  11.     ¤é´Á = Format(¤é´Á, "yyyymmdd")
  12.     With ActiveSheet
  13.         For Each N In .Names
  14.             N.Delete
  15.         Next
  16.         .Cells.Clear
  17.         Application.ScreenUpdating = False
  18.         With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=1", Destination:=Range("A1"))
  19.             .Name = ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "_1"
  20.             .FieldNames = True
  21.             .RowNumbers = False
  22.             .FillAdjacentFormulas = False
  23.             .PreserveFormatting = True
  24.             .RefreshOnFileOpen = False
  25.             .BackgroundQuery = True
  26.             .RefreshStyle = xlInsertDeleteCells
  27.             .SavePassword = False
  28.             .SaveData = True
  29.             .AdjustColumnWidth = True
  30.             .RefreshPeriod = 0
  31.             .WebSelectionType = xlEntirePage
  32.             .WebFormatting = xlWebFormattingNone
  33.             .WebPreFormattedTextToColumns = True
  34.             .WebConsecutiveDelimitersAsOne = True
  35.             .WebSingleBlockTextImport = False
  36.             .WebDisableDateRecognition = False
  37.             .WebDisableRedirections = False
  38.             .Refresh BackgroundQuery:=False
  39.             If Application.CountA(.ResultRange) = 0 Then
  40.                 MsgBox Format(¤é´Á, "0000/00/00") & " ¥ð¥«!!!  ©Î  ªÑ²¼¥N¸¹:" & ªÑ²¼¥N¸¹ & " ¿ù»~ !!!"
  41.                 [A1].Select
  42.                 End
  43.             End If
  44.         End With
  45.         i = 2
  46.         Do
  47.             .Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
  48.             With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=" & i, Destination:=Selection)
  49.                 .Name = ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "_" & i
  50.                 .WebSelectionType = xlSpecifiedTables
  51.                 .WebFormatting = xlWebFormattingNone
  52.                 .WebTables = "6"
  53.                 .WebPreFormattedTextToColumns = True
  54.                 .WebConsecutiveDelimitersAsOne = True
  55.                 .WebSingleBlockTextImport = False
  56.                 .WebDisableDateRecognition = False
  57.                 .WebDisableRedirections = False
  58.                 .Refresh BackgroundQuery:=False
  59.                 If .ResultRange(1) Like "ip*" Then
  60.                     .ResultRange.Clear
  61.                     GoTo Out
  62.                 End If
  63.                 i = i + 1
  64.             End With
  65.         Loop
  66. Out:
  67.         .UsedRange.Columns.AutoFit
  68.         .[A1].Select
  69.     End With
  70.     Application.ScreenUpdating = True
  71. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ carzyindex ©ó 2011-5-3 08:20 ½s¿è

¦^´_ 3# GBKEE


    ·PÁ¦U¦ì¤j¤jªºÀ°¦£

½Ð°Ý¥i¥H§å¦¸10­¶10­¶ªº¤U¸ü¶Ü

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-4 09:15 ½s¿è

¦^´_ 4# carzyindex
½Ð­@¤ßµ¥­Ô  µ{¦¡¦b¶]®É **½Ð¤Å«ö¤U** [½T©w]

'¦¹ºô­¶¦³¤U¸üºÞ¨î ¶·¦³¤U¸ü®É¶¡¶¡¹j 3¬í ¥i¥þ³¡¤U¸ü§¹¦¨
A = CreateObject("WScript.Shell").popup("½Ðµ¥«Ý4¬í«á¤U¸ü" & Chr(10) & Chr(10) & "** ½Ð¤Å«ö¤U ** [½T©w]", 3, ¤é´Á & "_" & .[F2] & "  ²Ä" & i & "­¶", 16 * 3 + 0)
  1. Sub ­ÓªÑ¥æ©ö©ú²Ó¤U¸ü()
  2.     Dim ªÑ²¼¥N¸¹ As String, ¤é´Á As Variant, N, i As Integer, A, T As Date
  3.     Do While Not IsDate(¤é´Á)
  4.         ¤é´Á = InputBox("¿é¤J¬d¸ß¤é´Á", "¤é´Á", Date)
  5.         If ¤é´Á = "" Then End
  6.     Loop
  7.     Do While ªÑ²¼¥N¸¹ = ""
  8.         ªÑ²¼¥N¸¹ = InputBox("ªÑ²¼¥N¸¹", "¿é¤J¬d¸ß¤§ªÑ²¼¥N¸¹", "1101")
  9.         If ¤é´Á = "" Then End
  10.     Loop
  11.     ¤é´Á = Format(¤é´Á, "yyyymmdd")
  12.     T = Time
  13.     With ActiveSheet
  14.         For Each N In .Names
  15.             N.Delete
  16.         Next
  17.         .Cells.Clear
  18.         Application.StatusBar = False
  19.         On Error GoTo A_Wait
  20.         With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=1", Destination:=Range("A1"))
  21.             .Name = ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "_1"
  22.             .FieldNames = True
  23.             .RowNumbers = False
  24.             .FillAdjacentFormulas = False
  25.             .PreserveFormatting = True
  26.             .RefreshOnFileOpen = False
  27.             .BackgroundQuery = True
  28.             .RefreshStyle = xlInsertDeleteCells
  29.             .SavePassword = False
  30.             .SaveData = True
  31.             .AdjustColumnWidth = True
  32.             .RefreshPeriod = 0
  33.             .WebSelectionType = xlEntirePage
  34.             .WebFormatting = xlWebFormattingNone
  35.             .WebPreFormattedTextToColumns = True
  36.             .WebConsecutiveDelimitersAsOne = True
  37.             .WebSingleBlockTextImport = False
  38.             .WebDisableDateRecognition = False
  39.             .WebDisableRedirections = False
  40.             .Refresh BackgroundQuery:=False
  41.             If Application.CountA(.ResultRange) = 0 Then
  42.                 MsgBox Format(¤é´Á, "0000/00/00") & " ¥ð¥«!!!  ©Î  ªÑ²¼¥N¸¹:" & ªÑ²¼¥N¸¹ & " ¿ù»~ !!!"
  43.                 [A1].Select
  44.                 End
  45.             End If
  46.         End With
  47.         i = 2
  48.         Do
  49.             .Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
  50.             With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=" & i, Destination:=Selection)
  51.                 .Name = ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "_" & i
  52.                 .WebSelectionType = xlSpecifiedTables
  53.                 .WebFormatting = xlWebFormattingNone
  54.                 .WebTables = "6"
  55.                 .WebPreFormattedTextToColumns = True
  56.                 .WebConsecutiveDelimitersAsOne = True
  57.                 .WebSingleBlockTextImport = False
  58.                 .WebDisableDateRecognition = False
  59.                 .WebDisableRedirections = False
  60.               ''''''µLªk¬d¸ß®Éµy«Ý  ¨ì  A_Wait: '''''
  61.                 .Refresh BackgroundQuery:=False
  62.                 If Application.CountA(.ResultRange) = 0 Then GoTo Out
  63.                 i = i + 1
  64.             End With
  65.             A = CreateObject("WScript.Shell").popup("½Ðµ¥«á¤U¸ü..." & Chr(10) & Chr(10) & "** ½Ð¤Å«ö¤U ** [½T©w]", 4, ¤é´Á & "_" & .[F2] & "  ²Ä" & i & "­¶", 16 * 3 + 0)
  66.             Application.ScreenUpdating = True
  67.         Loop
  68. Out:
  69.         .UsedRange.Columns.AutoFit
  70.         .[A1].Select
  71.         A = CreateObject("WScript.Shell").popup("¦@¤U¸ü" & i & "­¶", 5, ¤é´Á & "_" & ªÑ²¼¥N¸¹, 48 + 0)
  72.         Application.StatusBar = "¦@¤U¸ü " & i & "­¶ ¶O®É " & Format(Time - T, "HH:MM:SS")
  73.     End With
  74.     End
  75. A_Wait:
  76.     Application.StatusBar = "µLªk¬d¸ßµ¥­Ô10¬íÄÁ"
  77.     Application.Wait Now + TimeValue("00:00:10")
  78.     Err.Clear
  79.     Application.StatusBar = False
  80.     Resume    '­«ªð¬d¸ß
  81. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE


    ·PÁª©¤j¦A¦¸¬Û§U,«D±`·PÁÂ.

TOP

¦^´_ 5# GBKEE


¬Ý¨Ó°ÝÃD¤ñ§Ú·Q¹³¤¤ÁÙ¤jªº¼Ë¤l

²Ä¤@­¶¸ê®Æ¦ì¸m°¾²¾

¤µ¤Ñ¦­¤W´ú¸Õ¥X²{error 408

¸ü¨ì²Ä¤»­¶´N±¾±¼¤F

µL©`§Ú¥u·|±Æª©ªºvba¹ïºô­¶ªº¤£ª¾¹D±q¦ó¤U¤â

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-4 19:57 ½s¿è

¦^´_ 7# carzyindex
5¼Óªºµ{¦¡­è¤~´ú¸Õ¬O¦³¨Ç¤£¶¶ ¤wµy¬°­×§ï¤F
²Ä¤@­¶¸ê®Æ¦ì¸m°¾²¾
  1. Sub ²©ö©ú²Ó¤U¸ü()
  2.     Dim ªÑ²¼¥N¸¹ As String, ¤é´Á As Variant, N, i As Integer, A, T As Date
  3.     Do While Not IsDate(¤é´Á)
  4.         ¤é´Á = InputBox("¿é¤J¬d¸ß¤é´Á", "¤é´Á", Date)
  5.         If ¤é´Á = "" Then End
  6.     Loop
  7.     Do While ªÑ²¼¥N¸¹ = ""
  8.         ªÑ²¼¥N¸¹ = InputBox("ªÑ²¼¥N¸¹", "¿é¤J¬d¸ß¤§ªÑ²¼¥N¸¹", "1101")
  9.         If ¤é´Á = "" Then End
  10.     Loop
  11.     ¤é´Á = Format(¤é´Á, "yyyymmdd")
  12.     T = Time
  13.     With ActiveSheet
  14.         For Each N In .Names
  15.             N.Delete
  16.         Next
  17.         .Cells.Clear
  18.         Application.StatusBar = False
  19.         On Error GoTo A_Wait
  20.         i = 1
  21.         Do
  22.             .Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
  23.             With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=" & i, Destination:=Selection)
  24.                 .Name = ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "_" & i
  25.                 .WebSelectionType = xlSpecifiedTables
  26.                 .WebFormatting = xlWebFormattingNone
  27.                 .WebTables = "6"
  28.                 .WebPreFormattedTextToColumns = True
  29.                 .WebConsecutiveDelimitersAsOne = True
  30.                 .WebSingleBlockTextImport = False
  31.                 .WebDisableDateRecognition = False
  32.                 .WebDisableRedirections = False
  33.               ''''''µLªk¬d¸ß®Éµy«Ý  ¨ì  A_Wait: '''''
  34.                 .Refresh BackgroundQuery:=False
  35.                 If Application.CountA(.ResultRange) = 0 Then GoTo Out
  36.                 i = i + 1
  37.             End With
  38.             A = CreateObject("WScript.Shell").popup("½Ðµ¥«á¤U¸ü..." & Chr(10) & Chr(10) & "** ½Ð¤Å«ö¤U  [½T©w] **", 4, ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "  ²Ä" & i & "­¶", 16 * 3 + 0)
  39.             Application.ScreenUpdating = True
  40.         Loop
  41. Out:
  42.         .UsedRange.Columns.AutoFit
  43.         .[A1].Select
  44.         A = CreateObject("WScript.Shell").popup("¦@¤U¸ü" & i & "­¶", 5, ¤é´Á & "_" & ªÑ²¼¥N¸¹, 48 + 0)
  45.         Application.StatusBar = ªÑ²¼¥N¸¹ &" ¦@¤U¸ü " & i & "­¶ ¶O®É " & Format(Time - T, "HH:MM:SS")
  46.     End With
  47.     End
  48. A_Wait:
  49.     Application.StatusBar = "µLªk¬d¸ßµ¥­Ô5¬íÄÁ"
  50.     Application.Wait Now + TimeValue("00:00:05")
  51.     Err.Clear
  52.     Application.StatusBar = False
  53.     Resume    '­«ªð¬d¸ß
  54. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# carzyindex
³o¬O¥t¤@»â°ì §Ú¥\¤O¤£°÷ ¤]§ä¤£¥X¨Óªü!

TOP

¦^´_ 10# GBKEE


    ·PÁª©¤j¦^ÂÐ

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD