[µo°Ý] µ{¦¡°õ¦æ³t«×¶V¨Ó¶VºC

bulletin

¦U¦ì«e½ú¦n
¤p§Ìªì¾Ç¡AÁÙ¤£ª¾¹D­n«ç»ò³B²z¸ê®Æ®w
¦]¦¹¼g¤F¤@­Óµ{¦¡§ì¨ú¨é°Ó¤w¾ã²z¦nªº°]³ø
µ{¦¡¥i¥H°õ¦æ
¦ý¬Oµo²{´X­Ó°ÝÃD

1. ­Y¨S¦³¥t¦s·sÀÉ¡A¸ê®Æ¥i§ì¨ú¡A¦ý¬OÀHµÛ®É¶¡¹L¥h¡Aexcel·|¶VÅܶVºC, ±q¨Cµ§¬ù1¬íºCºCÅܦ¨1¤ÀÄÁ....
     ½Ð°Ý³o¦³¤°»ò¦n¤èªk¥i¥H§ïµ½¶Ü¡H
     ¥ý§â°]³ø§ì¤U¨Ó¤§«á¦A°µ¸ê®Æ¿z¿ï¨Ã¥t¦s¬O§_¬O¸û¦nªº¿ï¾Ü¡H
     
µù¡G¨S¦s·sÀÉ´N¬Oµ{¦¡³Ì¤U¤èªº³o´X¦æ§R°£

            Sheets(Array("CFSQ", "ISQ", "BSQ")).Copy
            ActiveWorkbook.SaveAs Filename:= _
              "C:\Users\user\Documents\KT\§ë¸ê²z°]\Excel¤ÀªR¼Ò²Õ\" & stockid & "©u³ø.xlsx", FileFormat:= _
               xlOpenXMLWorkbook, CreateBackup:=False
                       
            Application.DisplayAlerts = True
            Windows(stockid & "©u³ø.xlsx").Close

2. ¦³¥t¦s·sÀɪºµ{¦¡¦p¤U, ¥­§¡¨Cµ§³£»Ýªá¶O1~2¤ÀÄÁ¤~¯à§¹¦¨
     ½Ð°Ýµ{¦¡½X¦³¤°»ò¦a¤è¥i¥H§ïµ½¶Ü¡H
     ÁÙ¬O³o¼Ë§ì¨ú¸ê®Æ¤Ñ¥Í´Nµù©w³t«×·|ÀHµÛ°O¾ÐÅéªÅ¶¡¦û¾Ú¦Ó³vº¥ÅܺC¡H
     ¦³½Ð¦U¦ì«e½ú¨ó§U

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     Dim StartTime
   
4.     StartTime = Timer
   
5.     Application.ScreenUpdating = False
   
6. 
   
7.     For i = 1 To 100
   
8.         
   
9.         Dim stockid
   
10.         stockid = Range("A" & i).Value
    
11.    
    
12.     Application.Wait Now + TimeValue("00:00:01")
    
13. 
    
14.        '²{ª÷¬y¶qªí©u³ø
    
15.        With Sheets("CFSQ")
    
16.            .Rows("1:64").ClearContents
    
17.            With .QueryTables.Add(Connection:= _
    
18.                "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range( _
    
19.                "$A$1"))
    
20.                .Name = "zc3_2002.djhtm"
    
21.                .FieldNames = True
    
22.                .RowNumbers = False
    
23.                .FillAdjacentFormulas = False
    
24.                .PreserveFormatting = True
    
25.                .RefreshOnFileOpen = False
    
26.                .BackgroundQuery = True
    
27.                .RefreshStyle = xlInsertDeleteCells
    
28.                .SavePassword = False
    
29.                .SaveData = True
    
30.                .AdjustColumnWidth = True
    
31.                .RefreshPeriod = 0
    
32.                .WebSelectionType = xlSpecifiedTables
    
33.                .WebFormatting = xlWebFormattingNone
    
34.                .WebTables = "3"
    
35.                .WebPreFormattedTextToColumns = True
    
36.                .WebConsecutiveDelimitersAsOne = True
    
37.                .WebSingleBlockTextImport = False
    
38.                .WebDisableDateRecognition = False
    
39.                .WebDisableRedirections = False
    
40.                .Refresh BackgroundQuery:=False
    
41.            End With
    
42.        End With
    
43.       
    
44.       '·l¯qªí©u³ø
    
45.        With Sheets("ISQ")
    
46.            .Rows("1:64").ClearContents
    
47.            With .QueryTables.Add(Connection:= _
    
48.                "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range( _
    
49.                "$A$1"))
    
50.                .Name = "zcq_2002.asp"
    
51.                .FieldNames = True
    
52.                .RowNumbers = False
    
53.                .FillAdjacentFormulas = False
    
54.                .PreserveFormatting = True
    
55.                .RefreshOnFileOpen = False
    
56.                .BackgroundQuery = True
    
57.                .RefreshStyle = xlInsertDeleteCells
    
58.                .SavePassword = False
    
59.                .SaveData = True
    
60.                .AdjustColumnWidth = True
    
61.                .RefreshPeriod = 0
    
62.                .WebSelectionType = xlSpecifiedTables
    
63.                .WebFormatting = xlWebFormattingNone
    
64.                .WebTables = "3"
    
65.                .WebPreFormattedTextToColumns = True
    
66.                .WebConsecutiveDelimitersAsOne = True
    
67.                .WebSingleBlockTextImport = False
    
68.                .WebDisableDateRecognition = False
    
69.                .WebDisableRedirections = False
    
70.                .Refresh BackgroundQuery:=False
    
71.            End With
    
72.        End With
    
73.       
    
74.       '¸ê²£­t¶Åªí©u³ø
    
75.        With Sheets("BSQ")
    
76.            .Rows("1:64").ClearContents
    
77.            With .QueryTables.Add(Connection:= _
    
78.                "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:= _
    
79.                .Range("$A$1"))
    
80.                .Name = "zcpa_2002.asp"
    
81.                .FieldNames = True
    
82.                .RowNumbers = False
    
83.                .FillAdjacentFormulas = False
    
84.                .PreserveFormatting = True
    
85.                .RefreshOnFileOpen = False
    
86.                .BackgroundQuery = True
    
87.                .RefreshStyle = xlInsertDeleteCells
    
88.                .SavePassword = False
    
89.                .SaveData = True
    
90.                .AdjustColumnWidth = True
    
91.                .RefreshPeriod = 0
    
92.                .WebSelectionType = xlSpecifiedTables
    
93.                .WebFormatting = xlWebFormattingNone
    
94.                .WebTables = """oMainTable"""
    
95.                .WebPreFormattedTextToColumns = True
    
96.                .WebConsecutiveDelimitersAsOne = True
    
97.                .WebSingleBlockTextImport = False
    
98.                .WebDisableDateRecognition = False
    
99.                .WebDisableRedirections = False
    
100.                .Refresh BackgroundQuery:=False
     
101.            End With
     
102.        End With
     
103.       
     
104.             Application.DisplayAlerts = False '¦sÀɮɪ½±µÂл\­ì¦³ÀÉ®×
     
105.       
     
106.         '¥t¦s·sÀÉ
     
107.             Sheets(Array("CFSQ", "ISQ", "BSQ")).Copy
     
108.             ActiveWorkbook.SaveAs Filename:= _
     
109.               "C:\Users\user\Documents\KT\§ë¸ê²z°]\Excel¤ÀªR¼Ò²Õ\" & stockid & "©u³ø.xlsx", FileFormat:= _
     
110.                xlOpenXMLWorkbook, CreateBackup:=False
     
111.                        
     
112.             Application.DisplayAlerts = True
     
113.             Windows(stockid & "©u³ø.xlsx").Close
     
114.                
     
115.     Next i
     
116. 
     
117.    Application.ScreenUpdating = True
     
118.    EndTime = Timer
     
119.    MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
     
120.       
     
121.    
     
122. End Sub

½Æ»s¥N½X

heavenweaver

¦^´_ 14# bulletin

1. Sub stest()
   
2. 
   
3.         Dim StartTime, LastRow
   
4.         Dim wbnew As Workbook
   
5.       
   
6.         DELETE_QueryTables
   
7.       
   
8.         StartTime = Timer
   
9.         LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ
   
10. 
    
11.         Application.ScreenUpdating = False
    
12.       
    
13.         For i = 1 To 50
    
14.             
    
15.             Dim stockid
    
16.             If i <= 50 Then
    
17.                stockid = Range("A" & i + 10).Value
    
18.             Else
    
19.                stockid = Range("B" & i + 10).Value
    
20.             End If
    
21.             Application.DisplayAlerts = False
    
22.             Application.Wait Now + TimeValue("00:00:01")
    
23.             
    
24.             
    
25.             Set wbnew = Workbooks.Add() '·s¼W¬¡­¶Ã¯
    
26.             'wbnew.SaveAs Filename:="C:\myStock\Test\" & stockid & ".xls"  '¥t¦s·sÀÉ
    
27.             wbnew.SaveAs Filename:="C:\myStock\Test\" & stockid & "©u³ø.xls"  '¥t¦s·sÀÉ
    
28. 
    
29.             With wbnew.Sheets(1) 'CFSQ
    
30.                '.Rows("1:64").ClearContents
    
31.                
    
32.                '******************************
    
33.                 If .QueryTables.Count > 1 Then
    
34.                     .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
    
35.                 Else  '¨S¦³QueryTable®É·s¼W
    
36.                     .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
    
37.                 End If
    
38.                 With .QueryTables(1)  '¤£¦A·s¼W
    
39.                     .AdjustColumnWidth = True
    
40.                     .RefreshPeriod = 0
    
41.                     .WebSelectionType = xlSpecifiedTables
    
42.                     .WebFormatting = xlWebFormattingNone
    
43.                     .WebTables = "3"
    
44.                     .WebPreFormattedTextToColumns = True
    
45.                     .WebConsecutiveDelimitersAsOne = True
    
46.                     .Refresh BackgroundQuery:=False
    
47.                 End With
    
48.                 '******************************
    
49.                
    
50.            End With
    
51.          
    
52.         With wbnew.Sheets(2)
    
53.                '.Rows("1:64").ClearContents
    
54.                
    
55.                '******************************
    
56.                 If .QueryTables.Count > 1 Then
    
57.                     .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
    
58.                 Else  '¨S¦³QueryTable®É·s¼W
    
59.                     .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
    
60.                 End If
    
61.                 With .QueryTables(1)  '¤£¦A·s¼W
    
62.                     .AdjustColumnWidth = True
    
63.                     .RefreshPeriod = 0
    
64.                     .WebSelectionType = xlSpecifiedTables
    
65.                     .WebFormatting = xlWebFormattingNone
    
66.                     .WebTables = "3"
    
67.                     .WebPreFormattedTextToColumns = True
    
68.                     .WebConsecutiveDelimitersAsOne = True
    
69.                     .Refresh BackgroundQuery:=False
    
70.                 End With
    
71.                 '******************************
    
72.                
    
73.            End With
    
74.          
    
75.            With wbnew.Sheets(3)
    
76.                '.Rows("1:64").ClearContents
    
77.                
    
78.                '******************************
    
79.                 If .QueryTables.Count > 1 Then
    
80.                     .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
    
81.                 Else  '¨S¦³QueryTable®É·s¼W
    
82.                     .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
    
83.                 End If
    
84.                 With .QueryTables(1)  '¤£¦A·s¼W
    
85.                     .AdjustColumnWidth = True
    
86.                     .RefreshPeriod = 0
    
87.                     .WebSelectionType = xlSpecifiedTables
    
88.                     .WebFormatting = xlWebFormattingNone
    
89.                     .WebTables = "3"
    
90.                     .WebPreFormattedTextToColumns = True
    
91.                     .WebConsecutiveDelimitersAsOne = True
    
92.                     .Refresh BackgroundQuery:=False
    
93.                 End With
    
94.                 '******************************
    
95.                
    
96.            End With
    
97.          
    
98.            'Windows(stockid & ".xls").Close savechanges:=True
    
99.            Windows(stockid & "©u³ø.xls").Close savechanges:=True
    
100.            Application.DisplayAlerts = True
     
101. 
     
102.         Next i
     
103.       
     
104.       
     
105.        Application.ScreenUpdating = True
     
106.        EndTime = Timer
     
107.        MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
     
108.          
     
109.       
     
110. End Sub

½Æ»s¥N½X

heavenweaver

¦^´_ 14# bulletin
§Ú§ì¥xÆW50¡Aªá¤F¬ù56¬í¡C

            
With wbnew.Sheets(1) 'CFSQ
               '.Rows("1:64").ClearContents
               
               '******************************
                If .QueryTables.Count > 1 Then
                    .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
                Else  '¨S¦³QueryTable®É·s¼W
                    .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
                End If
                With .QueryTables(1)  '¤£¦A·s¼W
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .WebSelectionType = xlSpecifiedTables
                    .WebFormatting = xlWebFormattingNone
                    .WebTables = "3"
                    .WebPreFormattedTextToColumns = True
                    .WebConsecutiveDelimitersAsOne = True
                    .Refresh BackgroundQuery:=False
                End With
                '******************************
               
           End With
         
        With wbnew.Sheets(2)
               '.Rows("1:64").ClearContents
               
               '******************************
                If .QueryTables.Count > 1 Then
                    .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
                Else  '¨S¦³QueryTable®É·s¼W
                    .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
                End If
                With .QueryTables(1)  '¤£¦A·s¼W
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .WebSelectionType = xlSpecifiedTables
                    .WebFormatting = xlWebFormattingNone
                    .WebTables = "3"
                    .WebPreFormattedTextToColumns = True
                    .WebConsecutiveDelimitersAsOne = True
                    .Refresh BackgroundQuery:=False
                End With
                '******************************
               
           End With
         
           With wbnew.Sheets(3)
               '.Rows("1:64").ClearContents
               
               '******************************
                If .QueryTables.Count > 1 Then
                    .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
                Else  '¨S¦³QueryTable®É·s¼W
                    .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
                End If
                With .QueryTables(1)  '¤£¦A·s¼W
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .WebSelectionType = xlSpecifiedTables
                    .WebFormatting = xlWebFormattingNone
                    .WebTables = "3"
                    .WebPreFormattedTextToColumns = True
                    .WebConsecutiveDelimitersAsOne = True
                    .Refresh BackgroundQuery:=False
                End With
                '******************************
               
           End With

bulletin

¦^´_ 13# bulletin

¦U¦ì«e½ú
§Ú¤S­×§ï¤F¤@­Ó¡A³o¦¸ª½±µ¥ý¶}±Ò·sªº¬¡­¶Ã¯
¨Ã±N¸ê®Æª½±µ¦s¤J¬¡­¶Ã¯¤¤

1. ¥ý§ì¸ê®Æ¡A¦A½Æ»s¥t¦s·sÀÉ
100µ§ --> 102¬í
200µ§ --> 210¬í

2. ¥ý«Ø¥ß·sÀɦA§ì¸ê®Æ¦sÀÉ
100µ§ --> 100¬í
200µ§ --> 206¬í

¦ü¥G¤Ö¤F½Æ»s¥t¦s³t«×µyµy§Ö¤@ÂI
¦ý¬O¦Ò¶qºô¸ôí©w©Ê¥H¤Îºô¯¸¦s¨úªº°ÝÃD
À³¸Ó¬O¨S¦³®t

¦¹¥~¤´µM¦³¿ù»~1004ªº°ÝÃD, ©Ò¥H¨S¿ìªk´ú¸Õ500µ§¥H¤W©Î¬O©Ò¦³¤W¥«Âd¤½¥q1400Àɪº³t«×...

¿ù»~·|µo¥Í¦b½Æ»sºô­¶¸ê®Æ¡A¦s¨ì¤u§@ªí¤¤®É
¤£¤@©w·|¦b¦ó®Éµo¥Í
¦ý­ì«h¤W¤´¯d¦b100~200µ§¤§¶¡·|µo¥Í
§Ú¦A§â©µ¿ð®É¶¡©Ôªø¡A¬Ý¯à¤£¯àÁקK¿ù»~1004
ÁÂÁ¦U¦ì«e½ú«ü±Ð~

1. Sub stest()
   
2. 
   
3.     Dim StartTime, LastRow
   
4.     Dim wbnew As Workbook
   
5.    
   
6.     DELETE_QueryTables
   
7.    
   
8.     StartTime = Timer
   
9.     LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ
   
10. 
    
11.     Application.ScreenUpdating = False
    
12.    
    
13.     For i = 2 To 101
    
14.         
    
15.         Dim stockid
    
16.         stockid = Range("A" & i).Value
    
17.    
    
18.         Application.DisplayAlerts = False
    
19.         Application.Wait Now + TimeValue("00:00:01")
    
20.         
    
21.         
    
22.         Set wbnew = Workbooks.Add() '·s¼W¬¡­¶Ã¯
    
23.         wbnew.SaveAs Filename:="C:\Users\KT\Desktop\Test2\" & stockid & ".xlsx"  '¥t¦s·sÀÉ
    
24. 
    
25.         With wbnew.Sheets(1) 'CFSQ
    
26.            '.Rows("1:64").ClearContents
    
27.            
    
28.            '******************************
    
29.             If .QueryTables.Count > 1 Then
    
30.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
    
31.             Else  '¨S¦³QueryTable®É·s¼W
    
32.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
    
33.             End If
    
34.             With .QueryTables(1)  '¤£¦A·s¼W
    
35.                 .AdjustColumnWidth = True
    
36.                 .RefreshPeriod = 0
    
37.                 .WebSelectionType = xlSpecifiedTables
    
38.                 .WebFormatting = xlWebFormattingNone
    
39.                 .WebTables = "3"
    
40.                 .WebPreFormattedTextToColumns = True
    
41.                 .WebConsecutiveDelimitersAsOne = True
    
42.                 .Refresh BackgroundQuery:=False
    
43.             End With
    
44.             '******************************
    
45.             
    
46.        End With
    
47.       
    
48.     With Sheets(2)
    
49.            '.Rows("1:64").ClearContents
    
50.            
    
51.            '******************************
    
52.             If .QueryTables.Count > 1 Then
    
53.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
    
54.             Else  '¨S¦³QueryTable®É·s¼W
    
55.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
    
56.             End If
    
57.             With .QueryTables(1)  '¤£¦A·s¼W
    
58.                 .AdjustColumnWidth = True
    
59.                 .RefreshPeriod = 0
    
60.                 .WebSelectionType = xlSpecifiedTables
    
61.                 .WebFormatting = xlWebFormattingNone
    
62.                 .WebTables = "3"
    
63.                 .WebPreFormattedTextToColumns = True
    
64.                 .WebConsecutiveDelimitersAsOne = True
    
65.                 .Refresh BackgroundQuery:=False
    
66.             End With
    
67.             '******************************
    
68.             
    
69.        End With
    
70.       
    
71.        With Sheets(2)
    
72.            '.Rows("1:64").ClearContents
    
73.            
    
74.            '******************************
    
75.             If .QueryTables.Count > 1 Then
    
76.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
    
77.             Else  '¨S¦³QueryTable®É·s¼W
    
78.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
    
79.             End If
    
80.             With .QueryTables(1)  '¤£¦A·s¼W
    
81.                 .AdjustColumnWidth = True
    
82.                 .RefreshPeriod = 0
    
83.                 .WebSelectionType = xlSpecifiedTables
    
84.                 .WebFormatting = xlWebFormattingNone
    
85.                 .WebTables = "3"
    
86.                 .WebPreFormattedTextToColumns = True
    
87.                 .WebConsecutiveDelimitersAsOne = True
    
88.                 .Refresh BackgroundQuery:=False
    
89.             End With
    
90.             '******************************
    
91.            
    
92.        End With
    
93.       
    
94.        Windows(stockid & ".xlsx").Close savechanges:=True
    
95.        Application.DisplayAlerts = True
    
96. 
    
97.     Next i
    
98.    
    
99.    
    
100.    Application.ScreenUpdating = True
     
101.    EndTime = Timer
     
102.    MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
     
103.       
     
104.    
     
105. End Sub

½Æ»s¥N½X

bulletin

¦^´_ 12# Hsieh

§Ú¤]·Q¹L¬O¬y¶qºÞ¨îªº°ÝÃD
¦hÁ»¡©ú

µL½×¦p¦ó¨Ó§ï¼g¦¨temp¦n¤F
·í°µ½m²ß¤]¦n
¨ì®É¦A½Ð¦U¦ì«e½ú«ü±Ð

Hsieh

¦^´_ 10# bulletin


    web¬d¸ß¸ò§Aºô¸ô³s½u³t«×¦³Ãö
·í¥D¾÷¦øªA¾¹±µ¨ü¤Ó¦h³s½u©Î¬O¥D¾÷ºÝ¦³¬y¶qºÞ¨î
¹ï¦P¤@IPªº¬y¶q¶i¦æºÞ±±®É
¥i¯à´NµLªk¨ú±o¸ê®Æ

bulletin

¦^´_ 10# bulletin

½Ð±ÐGBKEEª©¥D
§Úµo²{°õ¦æ®É
¨C100~200µ§´N·|µo¥Í1004¿ù»~
³o¬O¦]¬°¥Î¨ì¤j¶qªºCOPY  ¾É­P°O¾ÐÅé¥X¿ù¶Ü¡H

±Nµ{¦¡§ï¼g¡A±N¸ê®Æ§ì¨ú¨ì¦W¬°tempªº¤u§@ªí¡A¨Ì§Ç¥t¦s¨ì·sÀÉ
¬O§_¥i¥H§ïµ½¡H

©Î¬O¦³¥i¯à¬O¨ä¥L­ì¦]©Ò³y¦¨¡H

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     Dim StartTime, LastRow
   
4.     StartTime = Timer
   
5.     DELETE_QueryTables
   
6.     Application.ScreenUpdating = False
   
7.     LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ
   
8. 
   
9. 
   
10.     For i = 2 To LastRow
    
11.         
    
12.         Dim stockid
    
13.         stockid = Range("A" & i).Value
    
14.    
    
15.     Application.Wait Now + TimeValue("00:00:01")
    
16. 
    
17.        With Sheets("CFSQ")
    
18.            .Rows("1:64").ClearContents
    
19.            
    
20.            '******************************
    
21.             If .QueryTables.Count > 1 Then
    
22.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
    
23.             Else  '¨S¦³QueryTable®É·s¼W
    
24.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
    
25.             End If
    
26.             With .QueryTables(1)  '¤£¦A·s¼W
    
27.                 .AdjustColumnWidth = True
    
28.                 .RefreshPeriod = 0
    
29.                 .WebSelectionType = xlSpecifiedTables
    
30.                 .WebFormatting = xlWebFormattingNone
    
31.                 .WebTables = "3"
    
32.                 .WebPreFormattedTextToColumns = True
    
33.                 .WebConsecutiveDelimitersAsOne = True
    
34.                 .Refresh BackgroundQuery:=False
    
35.             End With
    
36.             '******************************
    
37.             
    
38.        End With
    
39.       
    
40.        With Sheets("ISQ")
    
41.            .Rows("1:64").ClearContents
    
42.            
    
43.            '******************************
    
44.             If .QueryTables.Count > 1 Then
    
45.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
    
46.             Else  '¨S¦³QueryTable®É·s¼W
    
47.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
    
48.             End If
    
49.             With .QueryTables(1)  '¤£¦A·s¼W
    
50.                 .AdjustColumnWidth = True
    
51.                 .RefreshPeriod = 0
    
52.                 .WebSelectionType = xlSpecifiedTables
    
53.                 .WebFormatting = xlWebFormattingNone
    
54.                 .WebTables = "3"
    
55.                 .WebPreFormattedTextToColumns = True
    
56.                 .WebConsecutiveDelimitersAsOne = True
    
57.                 .Refresh BackgroundQuery:=False
    
58.             End With
    
59.             '******************************
    
60.             
    
61.        End With
    
62.       
    
63.        With Sheets("BSQ")
    
64.            .Rows("1:64").ClearContents
    
65.            
    
66.            '******************************
    
67.             If .QueryTables.Count > 1 Then
    
68.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
    
69.             Else  '¨S¦³QueryTable®É·s¼W
    
70.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
    
71.             End If
    
72.             With .QueryTables(1)  '¤£¦A·s¼W
    
73.                 .AdjustColumnWidth = True
    
74.                 .RefreshPeriod = 0
    
75.                 .WebSelectionType = xlSpecifiedTables
    
76.                 .WebFormatting = xlWebFormattingNone
    
77.                 .WebTables = "3"
    
78.                 .WebPreFormattedTextToColumns = True
    
79.                 .WebConsecutiveDelimitersAsOne = True
    
80.                 .Refresh BackgroundQuery:=False
    
81.             End With
    
82.             '******************************
    
83.            
    
84.        End With
    
85.       
    
86.             Application.DisplayAlerts = False '¦sÀɮɪ½±µÂл\­ì¦³ÀÉ®×
    
87.       
    
88.             Sheets(Array("CFSQ", "ISQ", "BSQ")).Copy
    
89.             ActiveWorkbook.SaveAs Filename:= _
    
90.               "C:\Users\KT\Desktop\Test\" & stockid & "©u³ø.xlsx", FileFormat:= _
    
91.                xlOpenXMLWorkbook, CreateBackup:=False
    
92.             Windows(stockid & "©u³ø.xlsx").Close
    
93.                        
    
94.             Application.DisplayAlerts = True
    
95.       
    
96.     Next i
    
97. 
    
98.    Application.ScreenUpdating = True
    
99.    EndTime = Timer
    
100.    MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
     
101.       
     
102.    
     
103. End Sub

½Æ»s¥N½X

bulletin

³ø§i¤@¤Uµ²ªG
¬Q¤Ñ§â¹q¸£ÁÙ­ì¨ì«e¤@¦¸³Æ¥÷
³t«×´N«ì´_¥¿±`¤F
ÁÂÁÂGBKEEª©¥D~~

bulletin

¦^³øGBKEEª©¥D
ªÅ¥Õ¸ê®Æªººô­¶§Ú³£¦³½T»{¹L¡A¹ê»Ú¤W³£¦³¸ê®Æ
¥Ø«e¼È¥¼¥X²{   ­Y¦³¨ä¥L°ÝÃD¦A¸ò±z½Ð±Ð
ÁÂÁÂ

³t«×ªº°ÝÃD§Ú¦A§ä§ä¬Ý­ì¦]
¤W­Ó¬P´Á¤@¶}©l¼g¥X¨Óªº®É­Ô«Ü§Ö¡A¤@¤ÀÄÁ¬ù¦s10­ÓÀÉ¡AÀHÀÉ®×¼W¥[¦Ó®É¶¡¼É¼W
¤£ª¾¬°¦ó²{¦b¨C¦¸°õ¦æ³£­n1~2¤ÀÄÁ
¦³¥i¯à¬OµêÀÀ°O¾ÐÅé¨S³QÄÀ©ñ¶Ü
¦n©Ç

GBKEE

¦^´_ 7# bulletin
2.©I¥sDelete_Querytables®É¡Aµo¥Í1004¿ù»~
¦]°õ¦æ¤Ó¦h¦¸ªº

1. With .QueryTables.Add(Connection:=

½Æ»s¥N½X

³y¦¨³\¦hNameªº¦ì¸m³£¬Û¦P,¾É­P²Ä1ª©ªºSub DELETE_QueryTables()ªº¿ù»~
©Ò¥H§ï¥Î ²Ä2ª©ªºSub DELETE_QueryTables()ªºµ{¦¡½X

¤U¸ü (93.8 KB)

2014-2-6 14:19

3.BSQ¤u§@ªíªÅ¥Õ°ÝÃD, ¥i¬d¬O­þ¤@ÀɪѲ¼¬Ýºô­¶¬O§_¤]µL¸ê®Æ