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

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

¦^´_ 12# Hsieh

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

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

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

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

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