chang0833

¦^´_ 39# GBKEE


    ·PÁª©¤jªº¼ö¤ß¦^´_^^
    ª©¤j³o¦¸¼gªºµ{¦¡¡A¹ï·s¤âªº§Ú¦³ÂI....§xÃø
    §Ú¸ÕµÛ¶]µ{¦¡....¦ý¶]¥X"°}¦C¯Á¤Þ¶W¥X½d³ò"...³o¬O¤°»ò±¡§Î

GBKEE

¦^´_ 38# chang0833
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim URL As String, xCo_Id As String, X As Integer
   
4.     Dim xSyear As Integer, xSseason As Integer, Ar(1 To 4)
   
5.     Dim Sh(1 To 2) As Worksheet, AY, Rng As Range, E As Variant
   
6.     Dim Wb As Workbook
   
7.     For X = 0 To 3
   
8.         Ar(X + 1) = 1 + (6 * X)  '²Ä¤@©u¨ì²Ä¥|©uªºÄæ¦ì
   
9.     Next
   
10.     xCo_Id = Application.InputBox("½Ð¿é¤JªÑ²¼¥N¸¹", , 2303)         '¹w³]¬° 2303
    
11.     X = Year(Date) - 1910                 '¤¤µØ¥Á°êªº¦~«×
    
12.     Application.ScreenUpdating = False
    
13.     Set Wb = Workbooks("book1.xls")           '«ü©w¬¡­¶Ã¯
    
14.     With Wb
    
15.         Set Sh(1) = .Sheets.Add               '·s¼W¤u§@ªí: ½Æ»s©u°]³ø¨ì«ü©w¤u§@­¶
    
16.         Set Sh(2) = .Sheets.Add               '·s¼W¤u§@ªí:  WEB¬d¸ß¥Î
    
17.     End With
    
18.     On Error GoTo Er                        '³B²zµ{¦¡¤Wªº¿ù»~
    
19.     Sh(1).Name = xCo_Id & "©u³øªí"          '³o¦WºÙ¤u§@ªí¦p¤w¦s¦bµ{¦¡·|¦³¿ù»~
    
20.     On Error GoTo 0                         '¤£¦b³B²zµ{¦¡¤Wªº¿ù»~
    
21.    
    
22.     For xSyear = X To X - 3 Step -1        '°j°é:¦~«×    '105->102
    
23.     'For xSyear = X - 3 To X               '°j°é:¦~«×    '102->105
    
24.         For xSseason = 1 To 4 '             '°j°é:©u§O    '1,2,3,4
    
25.             URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
    
26.             With Sh(2).QueryTables.Add(Connection:=URL, Destination:=Sh(2).[A1])
    
27.                 .Name = xCo_Id & "_" & xSyear & "_²Ä" & xSseason & "©u" 'WEB¬d¸ßªº¦WºÙ
    
28.                 .AdjustColumnWidth = True                  '¦Û°Ê½Õ¾ãÄæ¼e
    
29.                 .WebSelectionType = xlSpecifiedTables
    
30.                 .WebFormatting = xlWebFormattingNone
    
31.                 .WebTables = "2,3,4"                  '¸ê²£­t¶Åªí,ºî¦X·l¯qªí,²{ª÷¬y¶qªí
    
32.                 .WebPreFormattedTextToColumns = True
    
33.                 .WebConsecutiveDelimitersAsOne = True
    
34.                 .WebSingleBlockTextImport = False
    
35.                 .WebDisableDateRecognition = False
    
36.                 .WebDisableRedirections = False
    
37.                 .Refresh BackgroundQuery:=False
    
38.                 If .ResultRange.Rows.Count > 2 Then '¦³¸ê®Æ
    
39.                     Set Rng = Sh(1).Cells(1, Ar(xSseason)).Cells(Rows.Count).End(xlUp)
    
40.                     If Rng.Row > 1 Then Set Rng = Rng.Offset(2)
    
41.                     .ResultRange.Copy Rng
    
42.                 Else
    
43.                     .Delete
    
44.                 End If
    
45.                
    
46.             End With
    
47.         Next
    
48.     Next
    
49.     Application.DisplayAlerts = False
    
50.     Sh(2).Delete
    
51.     Application.DisplayAlerts = True
    
52.     Application.ScreenUpdating = True
    
53.     Sh(1).Parent.Save
    
54.     MsgBox "Ok"
    
55.     Exit Sub
    
56. Er:     '³B²z xCo_Id &©u³øªí ¤u§@ªí¤w¦s¦b
    
57.     Application.DisplayAlerts = False
    
58.     Sheets(xCo_Id & "©u³øªí").Delete
    
59.     Application.DisplayAlerts = True
    
60.    Resume Next  '¦^¨ì¿ù»~ªºµ{¦¡½X
    
61. End Sub

½Æ»s¥N½X

chang0833

¦^´_ 36# GBKEE
ª©¤j¡A§Ú±N§Aªºµ{¦¡¡A§ï¦¨¦U©u°]³ø¾î©ñ¡A¦ý­n¦p¦ó½Æ»s¦U©u°]³ø¨ì¨ä¥L¤u§@­¶®É¡A¥i¥H"«ü©w"Àx¦s®æ¦s©ñ
¤ñ¦p²Ä¤@©u°]³ø½Æ»s¨ä¥L¤u§@ªí¨ìa¨ìdÄæ¡A²Ä¤G©u½Æ»s¨ìgÄæ¨ìjÄæ¦s©ñ      -----(   ±Ä©T©w4Ä檺®æ¦¡¦s©ñ)
§Ú¥»¨Ó·Q»¡¥ÎIF¶]°j°éªºµ{¦¡¦pŪ¨ú¨ì²Ä¤@¦C¦³"·|­p¶µ¥Ø"®É¡A«h¿ï¨ú²Ä1¨ì²Ä4Äæ½Æ»s¨ì¨ä¥¦¤u§@ªíªº«ü©w¦ì¸m
Ū¨ú¨ì²Ä¤G­Ó"·|­p¶µ¥Ø"®É¡A½Æ»s¨ì¤Uªº­Ó«ü©wªº¤u§@ªí¤W...
¤£¹L¹ï·s¤âªº§Ú¨Ó»¡ÁÙ¬O«ÜÃø°µ¨ì¡A¦A·Ð½Ðª©¤j½ç±Ð¤F¡AÁÂÁÂ^^

Dim URL As String, xCo_Id As String, x As Integer, Rng As Range
    Dim E As Variant, xSyear As Integer, xSseason As Integer, D_Name As String
    Dim Ia As Integer
    With ActiveSheet
        For Each E In .QueryTables 'WEB¬d¸ßª«¥ó¶°¦X
            E.Delete
        Next
        For Each E In .Names       'Name ª«¥óªº¶°¦X
            .Names(E.Name).Delete
        Next
        .UsedRange.Clear
        Set Rng = .Range("a1") '«ü©w¤u§@ªí¤W WEB¬d¸ßªº¦ì¸m
    End With
    xCo_Id = Application.InputBox("½Ð¿é¤JªÑ²¼¥N¸¹", , 2303)         '¹w³]¬° 2303
    x = Year(Date) - 1910                  '¤¤µØ¥Á°êªº¦~«×
    For xSyear = x To x - 3 Step -1        '°j°é:¦~«×    '105->102
    'For xSyear = X - 3 To X               '°j°é:¦~«×    '102->105
        For xSseason = 4 To 1 Step -1 '             '°j°é:©u§O    '1,2,3,4
            URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
            With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Rng)
                .Name = xCo_Id & "_" & xSyear & "_²Ä" & xSseason & "©u" 'WEB¬d¸ßªº¦WºÙ
                .AdjustColumnWidth = True                  '¦Û°Ê½Õ¾ãÄæ¼e
                .WebSelectionType = xlSpecifiedTables
                .WebFormatting = xlWebFormattingNone
                .WebTables = "2,3,4"                  '¸ê²£­t¶Åªí,ºî¦X·l¯qªí,²{ª÷¬y¶qªí
                .WebPreFormattedTextToColumns = True
                .WebConsecutiveDelimitersAsOne = True
                .WebSingleBlockTextImport = False
                .WebDisableDateRecognition = False
                .WebDisableRedirections = False
                .Refresh BackgroundQuery:=False
                If .ResultRange.Rows.Count = 2 Then 'µL¸ê®Æ
                    D_Name = .Name                  'WEB¬d¸ßªº¦WºÙ
                    .Delete                         '§R°£:WEB¬d¸ß
                    With Rng.Parent
                        For Each E In .Names
                            If InStr(E.Name, D_Name) Then E.Delete '§R°£:¤u§@ªí¤Wªº¦WºÙ->WEB¬d¸ßªº¦WºÙ
                        Next
                    End With
                Else
                    With .ResultRange      'WEB¬d¸ß¸ê®Æªº½d³ò
                        Set Rng = .Cells(1, .Columns.Count + 2) '¤U¤@WEB¬d¸ßªº¦ì¸m
                    End With
                End If
            End With
        Next
    Next
   
Dim Ba As Integer                                '¦]Ū¨ú¨ìÁÙ¥¼µo§Gªº°]³ø¡A·|¯dªÅ¥ÕÄæ
                                                 '§PÂ_«e50Äæ¬O§_¦³ªÅ¥ÕÄæ¡A¦³«h§R°£
For Ba = 1 To 50
   If Range("A" & Ba).Value = "" Then
      Selection.EntireColumn.Delete
      Else
   End If
Next
   
End Sub

chang0833

¦^´_ 35# c_c_lai
·PÁ¤j¤jªº¦^´_¡A§ÚÀ´¤F¡A­ì¨Ó®t²§´N¦b«e­±ªÅ®æªº±Æ¦C¶¶§Ç¤F¡A¤£¥J²Ó¬Ý¯uªº¬Ý¤£¥X¨Ó^^
¥t¥~·PÁÂGBKEEª©¤jªº¥Î¤ß¦^´_ÁÂÁÂ^^

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

c_c_lai

¦^´_ 34# chang0833
²Ä¤@­Ó¡yÀ³¦¬²¼¾Ú²bÃB¡z¬O¡y¶µ¥Ø¡z(¼ÐÃD)¡A
²Ä¤G­Ó¡yÀ³¦¬²¼¾Ú²bÃB¡z¬O·|­p¡y¬ì¥Ø¡z¡A
¨âªÌ¦bÄ_ªí¤W¬O¦³«e«á¦ì¸m®t²§ªº¡A
Âà¤J«á¦p¤£¥J²ÓÆ[¹î¡A«K¥H¬°¬O
­«ÂСy¬ì¥Ø¡z¤F¡C
¦Ü©ó VLOOKUP ªºÀ³¥Î´N¦³³Ò GBKEE ª©¤j¤F¡C

chang0833

ª©¤j¡A¥i¥H¦b½Ð±Ð¤@¤UÃö©ó³o­Ó°]³øºô­¶¤U¸ü¤U¨Óªº¸ê®Æ°ÝÃD¶Ü¡H
§Ú¥Îvlookup ¨Ó¤ñ¹ï¸ê®Æ¡A«oµo²{¤U¦C¸ê®Æ¦³­«½Æ¡Avlookup ¥u¯à®»¨ì²Ä¤@µ§¸ê®Æ¡A
¦ý¬O²Ä¤@µ§¸ê®Æ¬OªÅ¥Õªº¡A­n¦p¦ó®»¨ì­«½Æ¸ê®Æ¦ý¤S¥i¥H¿ï¾Ü¨ä«á¦³¸ê®ÆªºÄæ¦ì®»¨ú
¦A³Â·Ðª©¤j½ç±Ð¤F^^

     À³¦¬²¼¾Ú²bÃB       
     À³¦¬²¼¾Ú²bÃB        72,036
     À³¦¬±b´Ú²bÃB       
     À³¦¬±b´Ú²bÃB        19,452,028
     À³¦¬±b´Ú¡ÐÃö«Y¤H²bÃB       
     À³¦¬±b´Ú¡ÐÃö«Y¤H²bÃB        231,367

c_c_lai

¦^´_  c_c_lai
³oºô­¶¦³ÂI©_©Ç,¦~«×ªº¿ï¶µ¬°¦ó¦³¤U¤@¦~«×(¥¼¨Óªº¦~«×).
¦³¤H¥i¤À¨É¶Ü?
GBKEE µoªí©ó 2015-11-13 06:00

¤U¤@¦~«×(¥¼¨Óªº¦~«×)  ¥Á°ê 105 ¦~©|¥¼¨ì¹F¡A²z½×¤W¥¦¬O¤@­Ó¥¼ª¾¼Æ¡A
·|­p¦~«×¤]¥u¨ì¤µ¦~«×¦Ó¤w¡A¥B©|¥¼¦~«×µ²Âà­þ¨Óªº¸ê®Æ¡H

¤U¸ü (71.06 KB)

2015-11-13 07:46

GBKEE

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

c_c_lai

¦^´_ 29# chang0833
¦^´_ 28# GBKEE

GBKEE ª©¤j¨S¯d·N±z¦b 34. ~ 46. ¶¡¥[¤J¤F        If ~ Then ªº§PÂ_»y¥y¡C¤ï¶Õ¡I

1.     If .ResultRange.Rows.Count = 2 Then 'µL¸ê®Æ
   
2.         D_Name = .Name      'WEB¬d¸ßªº¦WºÙ
   
3.         .Delete             '§R°£:WEB¬d¸ß
   
4.         With Rng.Parent
   
5.             For Each E In .Names
   
6.         If InStr(E.Name, D_Name) Then E.Delete '§R°£:¤u§@ªí¤Wªº¦WºÙ->WEB¬d¸ßªº¦WºÙ
   
7.             Next
   
8.         End With
   
9.     Else
   
10.         With .ResultRange      ''WEB¬d¸ß¸ê®Æªº½d³ò
    
11.             Set Rng = .Cells(.Rows.Count + 2, 1)     ' ¤U¤@WEB¬d¸ßªº¦ì¸m
    
12.         End With
    
13.     End If

½Æ»s¥N½X