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

¦³¿ìªk¨Ï¥Îvba¶×¤J¥~³¡web¸ê®Æ¶Ü¡H

¦³¿ìªk¨Ï¥Îvba¶×¤J¥~³¡web¸ê®Æ¶Ü¡H

½Ð°Ý¦U¦ì°ª¤H
¦³ªk¤l¨Ï¥Îvba¶×¤J¥~³¡web¸ê®Æ¡A¦p¹Ï ¬õ¦â®Ø®Øªº²{ª÷¬y¶qªí

§Ú«ç»ò¥Îexcelªº¶×¤J¥\¯à³£¿ì¤£¨ì
½Ð«ü¾É¡AÁÂÁÂ

¦^´_ 1# gkld


    ¾Ú§Ú©Òª¾¤½¶}¸ê°T¯¸ªº¤º®e­n¥Î¤ñ¸û¯S®í»yªk¥h§ì
   ³o¦U§Ú¤]¤£·|
   §A¶Kªº¨º­ÓªíÀ³¸Ó¤£¬O¯à¶×¤Jªº®æ¦¡
   «Øij§A§ä¨ä¥Lºô¯¸¥N´À
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 2# freeffly
­ì¨Ó¬O³o¼Ë§r!!
§Ë¤F¥b¤Ñ¡A¬O®æ¦¡ªº°ÝÃD~
·PÁ¦^µª§iª¾
§Ú¦A¥h§ä¨ä¥¦ºô¯¸¸ê®Æ¥N´À¤F

TOP

¦^´_ 3# gkld
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub ­Ó§O²{ª÷¬y¶qªí()
  3.     Dim i, r As Integer, A As Variant, AA As Variant
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Navigate "http://mops.twse.com.tw/mops/web/t05st36"
  6.         .Visible = True
  7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  8.         With .Document
  9.             .getelementsbytagname("input")(38).Value = "2030"  '³o¸Ì­×§ï ªÑ²¼¥N¸¹
  10.             .getelementsbytagname("input")(41).Click
  11.         End With
  12.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  13.       
  14.       '******************************
  15.         r = 1
  16.         Cells.Clear
  17.         A = Split(.Document.getelementsbytagname("table")(16).innertext, vbLf)
  18.         For i = 0 To UBound(A)
  19.                 AA = Trim(A(i))
  20.                 Do While InStr(AA, Space(5))
  21.                     AA = Replace(AA, Space(5), Space(4))
  22.                 Loop
  23.                 AA = Split(AA, Space(2))
  24.                 Cells(r, 1).Resize(, UBound(AA) + 1) = AA
  25.                 r = r + 1
  26.         Next
  27.        .Quit
  28.         End With
  29.     '******************************
  30.      ¸ê®Æ¾ã²z
  31. End Sub
  32. Private Sub ¸ê®Æ¾ã²z()
  33.     Dim A, i
  34.     Application.DisplayAlerts = False
  35.     With ActiveSheet
  36.         .Range("B:B,D:D").Delete Shift:=xlToLeft
  37.         With .Range("B:C")
  38.             .Replace Chr(32) & Chr(13), "", xlPart          '²M°£¤£¥i¨£¦r¤¸
  39.             .Replace Chr(41) & Chr(13), ")"                 '²M°£¤£¥i¨£¦r¤¸
  40.             .Replace "$", ""
  41.             .Replace ",", ""
  42.             .NumberFormatLocal = "#,##0_);[¬õ¦â](#,##0)"
  43.             .HorizontalAlignment = xlRight
  44.             .VerticalAlignment = xlCenter
  45.         End With
  46.         With .Range("A2:C2,A3:C3,A4:C4,A5:C5")
  47.             .HorizontalAlignment = xlCenter
  48.             .VerticalAlignment = xlCenter
  49.             .WrapText = False
  50.             .Merge
  51.             .Areas(4).HorizontalAlignment = xlRight
  52.         End With
  53.         .[A6:A7].Insert Shift:=xlToRight
  54.         i = 8
  55.         Do While .Cells(i, 1) <> ""
  56.             If InStr(.Cells(i, 1), String(2, Mid(.Cells(i, 1), 1, 1))) Then
  57.                 .Cells(i, 1).Resize(, 3).Merge
  58.                 .Cells(i, 1).Resize(, 3).HorizontalAlignment = xlCenter
  59.             ElseIf Len(.Cells(i, 1)) >= 15 Then
  60.                 .Cells(i, 1).WrapText = True
  61.             End If
  62.             i = i + 1
  63.         Loop
  64.         Range("A:A").ColumnWidth = 40
  65.         .Range("B:C").EntireColumn.AutoFit
  66.     End With
  67.     Application.DisplayAlerts = True
  68. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE
·PÁªO¤j¼ö¤ß¦^¶K
§Ú²{¦b¤~¬Ý¨ì³o½g¤å³¹¡A¯u¤£¦n·N«ä§r
«á¨Ó§Ú¤w¥Î§Oªººô¯¸¸ê®Æ¥N´À¤F¡A¤]¦¨¥\¸Ñµ´¤F°ÝÃD

TOP

¦^´_ 4# GBKEE


    ª©¥Dªº¤è¦¡¥i¥H°õ¦æ
   ¸ò¤@¯ë¶×¤JWEB¬d¸ßªº¤è¦¡¤£¨Ì¼Ë
   ½Ð°Ý¦pªG­n¬d«ü©wªº©u³ø­n¦p¦ó§ï?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

[attach]14129[/attach][attach]14129[/attach][attach]14128[/attach]½Ð±ÐGBKEE¤j¤j¡A§Ú­×§ï¦¨°j°é·|¥X²{  ¨S¦³³]©wª«¥óÅܼƩÎwith °Ï¶ôÅܼƠ ªº¿ù»~°T®§¡A¦ó¸Ñ?

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2015/5/19 10:09): ¤W¶ÇªºÀÉ®×¥¢±Ñ,½Ð­«¶Ç.

[attach]14129[/attach]
½Ð±ÐGBKEE¤j¤j¡A§Ú­×§ï¦¨°j°é·|¥X²{  ¨S¦³³]©wª«¥óÅܼƩÎwith °Ï¶ôÅܼƠ ªº¿ù»~°T®§¡A¦ó¸Ñ?

TOP

·Q½Ð±Ð³o¬O³o¬O²{ª÷¬y¶qªíªººô­¶
http://mops.twse.com.tw/mops/web/t164sb05
³z¹L¤W­zµ{§Ç§ì¨ú«á¦bexcelªí¤W¦r¦êµLªk§e²{ªí®æ,½Ð°Ý­n¦p¦ó­×§ï
A = Split(.Document.getelementsbytagname("table")(16).innertext, vbLf)'³o¦æ§Ú16§ï3
A = Split(.Document.getelementsbytagname("table")(3).innertext, vbLf)

Option Explicit
Sub ­Ó§O²{ª÷¬y¶qªí()
    Dim i, r As Integer, A As Variant, AA As Variant
    With CreateObject("InternetExplorer.Application")
        .Navigate "http://mops.twse.com.tw/mops/web/t164sb05"
        .Visible = True
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        With .Document
            .getelementsbytagname("input")(38).Value = "5349"  '³o¸Ì­×§ï ªÑ²¼¥N¸¹
            .getelementsbytagname("input")(41).Click
        End With
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
      
      '******************************
        r = 1
        Cells.Clear
        A = Split(.Document.getelementsbytagname("table")(3).innertext, vbLf)
        For i = 0 To UBound(A)
                AA = Trim(A(i))
                Do While InStr(AA, Space(5))
                    AA = Replace(AA, Space(5), Space(4))
                Loop
                AA = Split(AA, Space(2))
                Cells(r, 1).Resize(, UBound(AA) + 1) = AA
                r = r + 1
        Next
       .Quit
        End With
    '******************************
     ¸ê®Æ¾ã²z
End Sub
Private Sub ¸ê®Æ¾ã²z()
    Dim A, i
    Application.DisplayAlerts = False
    With ActiveSheet
        .Range("B:B,D").Delete Shift:=xlToLeft
        With .Range("B:C")
            .Replace Chr(32) & Chr(13), "", xlPart          '²M°£¤£¥i¨£¦r¤¸
            .Replace Chr(41) & Chr(13), ")"                 '²M°£¤£¥i¨£¦r¤¸
            .Replace "$", ""
            .Replace ",", ""
            .NumberFormatLocal = "#,##0_);[¬õ¦â](#,##0)"
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
        End With
        With .Range("A2:C2,A3:C3,A4:C4,A5:C5")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Merge
            .Areas(4).HorizontalAlignment = xlRight
        End With
        .[A6:A7].Insert Shift:=xlToRight
        i = 8
        Do While .Cells(i, 1) <> ""
            If InStr(.Cells(i, 1), String(2, Mid(.Cells(i, 1), 1, 1))) Then
                .Cells(i, 1).Resize(, 3).Merge
                .Cells(i, 1).Resize(, 3).HorizontalAlignment = xlCenter
            ElseIf Len(.Cells(i, 1)) >= 15 Then
                .Cells(i, 1).WrapText = True
            End If
            i = i + 1
        Loop
        Range("A:A").ColumnWidth = 40
        .Range("B:C").EntireColumn.AutoFit
    End With
    Application.DisplayAlerts = True
End Sub

TOP

±qºô­¶Åª¨úªº¦r¦ê³£³s¦b¤@¶ô¦p¤U:
"¥¼¹ê²{¥~¹ô§I´«·l¥¢¡]§Q¯q¡^104,374-16,320"
½Ð°Ý¦p¦ó¦b¦^¶Ç¸ê®Æ®É«öªí³æ¦ì¸m©w¦ì

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD