GBKEE

¦^´_ 2# xisun2002
µ{¦¡°Ï §ä§ä¦³'http://mops.twse.com.tw/mops/webªº¸ê°T

GBKEE

¦^´_ 5# pupai
¨C¤@ºô­¶ªº«Ø¸m¤£¦P,­n¬Ýºô­¶¤º®e­×§ïµ{§Çªº.

GBKEE

¦^´_ 7# pupai

¤U¸ü (43.35 KB)

2013-11-27 08:42

   
«ö¤U ¹Ï¤ùªººô§} http://mops.twse.com.tw/server-j ... N=3&REPORT_ID=C

1. Option Explicit
   
2. Sub Ex()
   
3. Dim URL As String, xCo_Id As String, xSyear As String, xSseason As String
   
4. xCo_Id = "[" & """ªÑ²¼¥N¸¹""" & "," & """2485""" & "]"                     '­n¨D¿é¤Jºô­¶ªº°Ñ¼Æ:ªÑ²¼¥N¸¹
   
5. xSyear = "[" & """¦~«×""" & "," & """" & Format(Date, "e") & """" & "]"    'Format(Date, "e")->¤¤µØ¥Á°êªº¦~«×
   
6. xSseason = "[" & """©u§O""" & "," & """" & Format(Date, "q") & """" & "]"       'Format(Date, "q")->·í¦~«×ªº©u§O
   
7. URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
   
8.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("A1"))
   
9.         .AdjustColumnWidth = False                   '¦Û°Ê½Õ¾ãÄæ¼e
   
10.         .WebSelectionType = xlSpecifiedTables
    
11.         .WebFormatting = xlWebFormattingNone
    
12.         .WebTables = "2,3,4"                 '¸ê²£­t¶Åªí,ºî¦X·l¯qªí,²{ª÷¬y¶qªí
    
13.         .WebPreFormattedTextToColumns = True
    
14.         .WebConsecutiveDelimitersAsOne = True
    
15.         .WebSingleBlockTextImport = False
    
16.         .WebDisableDateRecognition = False
    
17.         .WebDisableRedirections = False
    
18.         .Refresh BackgroundQuery:=False
    
19.     End With
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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

GBKEE

"xCo_Id = "K"                   '­n¨D¿é¤Jºô­¶ªº°Ñ¼Æ:ªÑ²¼¥N¸¹"¡K¡K³o¤@¦æ¸Ó¦p¦ó¼g¡A©ÎªÌ¦³¨ä¥¦§ó¦nªº¤è¦¡

¦^´_ 22# chang0833

°Ñ¦Ò ³o¸Ì  §ï¤@¤U

1. X = Application.InputBox("½Ð¿é¤J¿z¿ïÃöÁä¦r")
   
2. If X = "" Or X = "False" Then Exit Sub

½Æ»s¥N½X

GBKEE

¦^´_ 25# chang0833
¤w­×§ï ¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim URL As String, xCo_Id As String, xSyear As String, X As Integer, Rng As Range
   
4.     Dim xSseason As Variant
   
5.     xCo_Id = Application.InputBox("½Ð¿é¤JªÑ²¼¥N¸¹", , 2303)         '¹w³]¬° 2303
   
6.     X = Application.InputBox("½Ð¿é¤J³Ì·s¦~«×", , Year(Date) - 1911) '¤¤µØ¥Á°êªº¦~«×
   
7.    
   
8.     With ActiveSheet
   
9.         For Each xSseason In .QueryTables 'WEB¬d¸ßª«¥ó¶°¦X
   
10.             xSseason.Delete
    
11.         Next
    
12.         For Each xSseason In .Names       'Name ª«¥óªº¶°¦X
    
13.             .Names(xSseason.Name).Delete
    
14.         Next
    
15.         .UsedRange.Clear
    
16.         Set Rng = .Range("a1") '«ü©w¤u§@ªí¤W WEB¬d¸ßªº¦ì¸m
    
17.     End With
    
18.     '''''''''''''''''''
    
19.     For Each xSseason In Array(2, 3, 4, 1) '°j°éxSseason => 2, 3, 4, 1
    
20.         xSyear = "" & IIf(xSseason > 1, X - 2, X - 1)
    
21.         URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
    
22.         With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Rng)
    
23.             .Name = xCo_Id & "-" & xSyear & "- ²Ä " & xSseason & " ©u" 'WEB¬d¸ßªº¦WºÙ
    
24.             .AdjustColumnWidth = True                  '¦Û°Ê½Õ¾ãÄæ¼e
    
25.             .WebSelectionType = xlSpecifiedTables
    
26.             .WebFormatting = xlWebFormattingNone
    
27.             .WebTables = "2,3,4"                  '¸ê²£­t¶Åªí,ºî¦X·l¯qªí,²{ª÷¬y¶qªí
    
28.             .WebPreFormattedTextToColumns = True
    
29.             .WebConsecutiveDelimitersAsOne = True
    
30.             .WebSingleBlockTextImport = False
    
31.             .WebDisableDateRecognition = False
    
32.             .WebDisableRedirections = False
    
33.             .Refresh BackgroundQuery:=False
    
34.             With .ResultRange      'WEB¬d¸ß¸ê®Æªº½d³ò
    
35.                 Set Rng = .Cells(.Rows.Count + 2, 1) '¤U¤@WEB¬d¸ßªº¦ì¸m
    
36.             End With
    
37.         End With
    
38.     Next
    
39. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 27# chang0833
¸Õ¸Õ¬Ý(¥þ³¡)

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim URL As String, xCo_Id As String, X As Integer, Rng As Range
   
4.     Dim E As Variant, xSyear As Integer, xSseason As Integer, D_Name As String
   
5.    
   
6.     With ActiveSheet
   
7.         For Each E In .QueryTables 'WEB¬d¸ßª«¥ó¶°¦X
   
8.             E.Delete
   
9.         Next
   
10.         For Each E In .Names       'Name ª«¥óªº¶°¦X
    
11.             .Names(E.Name).Delete
    
12.         Next
    
13.         .UsedRange.Clear
    
14.         Set Rng = .Range("a1") '«ü©w¤u§@ªí¤W WEB¬d¸ßªº¦ì¸m
    
15.     End With
    
16.     xCo_Id = Application.InputBox("½Ð¿é¤JªÑ²¼¥N¸¹", , 2303)         '¹w³]¬° 2303
    
17.     X = Year(Date) - 1910                  '¤¤µØ¥Á°êªº¦~«×
    
18.     For xSyear = X To X - 3 Step -1        '°j°é:¦~«×    '105->102
    
19.     'For xSyear = X - 3 To X               '°j°é:¦~«×    '102->105
    
20.         For xSseason = 1 To 4 '             '°j°é:©u§O    '1,2,3,4
    
21.             URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
    
22.             With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Rng)
    
23.                 .Name = xCo_Id & "_" & xSyear & "_²Ä" & xSseason & "©u" 'WEB¬d¸ßªº¦WºÙ
    
24.                 .AdjustColumnWidth = True                  '¦Û°Ê½Õ¾ãÄæ¼e
    
25.                 .WebSelectionType = xlSpecifiedTables
    
26.                 .WebFormatting = xlWebFormattingNone
    
27.                 .WebTables = "2,3,4"                  '¸ê²£­t¶Åªí,ºî¦X·l¯qªí,²{ª÷¬y¶qªí
    
28.                 .WebPreFormattedTextToColumns = True
    
29.                 .WebConsecutiveDelimitersAsOne = True
    
30.                 .WebSingleBlockTextImport = False
    
31.                 .WebDisableDateRecognition = False
    
32.                 .WebDisableRedirections = False
    
33.                 .Refresh BackgroundQuery:=False
    
34.                 If .ResultRange.Rows.Count = 2 Then 'µL¸ê®Æ
    
35.                     D_Name = .Name                  'WEB¬d¸ßªº¦WºÙ
    
36.                     .Delete                         '§R°£:WEB¬d¸ß
    
37.                     With Rng.Parent
    
38.                         For Each E In .Names
    
39.                             If InStr(E.Name, D_Name) Then E.Delete '§R°£:¤u§@ªí¤Wªº¦WºÙ->WEB¬d¸ßªº¦WºÙ
    
40.                         Next
    
41.                     End With
    
42.                 Else
    
43.                     With .ResultRange      'WEB¬d¸ß¸ê®Æªº½d³ò
    
44.                         Set Rng = .Cells(.Rows.Count + 2, 1) '¤U¤@WEB¬d¸ßªº¦ì¸m
    
45.                     End With
    
46.                 End If
    
47.             End With
    
48.         Next
    
49.     Next
    
50.     MsgBox "Ok"
    
51. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 31# c_c_lai
³oºô­¶¦³ÂI©_©Ç,¦~«×ªº¿ï¶µ¬°¦ó¦³¤U¤@¦~«×(¥¼¨Óªº¦~«×).
¦³¤H¥i¤À¨É¶Ü?

GBKEE

¦^´_ 34# chang0833
©Î¬OªþÀÉ »Ý­n­þ¨Ç¸ê®Æ

1. Next
   
2.     '''¥[¤W³o¬q¸Õ¸Õ¬Ý
   
3.     With Rng.Parent
   
4.          .Range("A:A").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
   
5.          '§R°£:¤u§@ªí¤WªºªÅ¥Õ¦C
   
6.     End With
   
7.     ''''''''''''''''
   
8.     MsgBox "Ok"

½Æ»s¥N½X