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