bulletin

³ø§iGBKEEª©¥D
¤]³\¥i¯à¬O§Úªº¹q¸£Àô¹Ò°ÝÃD³y¦¨³t«×ÅܺC....

¨º½Ð±Ð°ÝÃD2, 3ªº°ÝÃDªº­ì¦]¬°¦ó¡H
2.©I¥sDelete_Querytables®É¡Aµo¥Í1004¿ù»~
3.BSQ¤u§@ªíªÅ¥Õ°ÝÃD

ÁÂÁ±z~

GBKEE

¦^´_ 5# bulletin
¥t¦s·sÀɮɡA¦³ªºÀɮצ³¤º®e¡A¦³ªºÀɮרS¤º®e¡A·|¬Oºô­¶¤W¨ºÀɪѲ¼¨S¦³¸ê®Æ?
§AªþÀɦsÀɪº³t«×¨S¦³§A»¡ªººC.

1. Sub DELETE_QueryTables()  '¶È¶·°õ¦æ¤@¦¸²M°£©Ò¦³QueryTable
   
2.     Dim SH As Worksheet, Q As Variant
   
3.     For Each Q In Names
   
4.         Q.Delete
   
5.     Next
   
6.     For Each SH In Sheets           '¬¡­¶Ã¯ªº¤u§@ªí¶°¦Xª«¥ó
   
7.         For Each Q In SH.QueryTables
   
8.            Q.Delete
   
9.         Next
   
10.     Next
    
11. End Sub

½Æ»s¥N½X

1. Private Sub CommandButton1_Click()
   
2.     Dim StartTime
   
3.     DELETE_QueryTables  '**«Øij¥ý²M°£***
   
4.     StartTime = Timer
   
5.     Application.ScreenUpdating = False
   
6.     LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ

½Æ»s¥N½X

bulletin

¦^´_ 4# GBKEE

GBKEEª©¥D±z¦n
§Ú¥[¤J±z­×§ïªºµ{¦¡¡A¸Ô¦pªþ¥ó
´ú¸Õ¤§«áµo²{´X­Ó°ÝÃD

1. ©|¥¼©I¥sDelete_QueryTables«e¡A³t«×®t²§¬Æ¤j
¤£¥t¦s·sÀÉ¡G99µ§¸ê®Æ¦@112¬í
¥t¦s·sÀÉ¡G²Ä1µ§´Nªá¤F121¬í...
¥i¨£©ì²Ö³t«×¬O¥t¦s·sÀɪº­ì¦]¡A½Ð°Ý¦³¦ó¸Ñ¨M¤§¹D¡H

2. ©I¥sDelete_QueryTables¡Aµo¥Í¿ù»~1004
¿ù»~¤º®e¦p¤U¹Ï

¤U¸ü (84.68 KB)

2014-2-6 11:44

§Úµo²{¿ù»~¤º®e¬OQ.nameªº¦a¤è¦¨¬°"zc3_2002.djhtm_231"
¤£À´¬°¦ó«á­±·|¦h¤F_231³o´X­Ó¦r

VBA´ú¸Õ±M¥Î.zip (270.05 KB)

¤U¸ü¦¸¼Æ: 6

2014-2-6 11:36

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

½Æ»s¥N½X

3. µ{¦¡½X¥[¤J¤§«á¡ABSQ³o­Ósheet¤º®e·|Åܦ¨ªÅ¥Õ
¥t¦s·sÀɮɡA¦³ªºÀɮצ³¤º®e¡A¦³ªºÀɮרS¤º®e¡A³o¬O¤°»ò­ì¦]³y¦¨ªº¡H

4. Delete_Querytables¦b¨C¤@¦¸°j°é°õ¦æ§¹²¦«á©I¥s¹ï¶Ü¡H

ÁÂÁª©¥D¦^ÂÐ~

GBKEE

¦^´_ 3# bulletin
Sub DELETE_QueryTables()  ½Æ»s¦b¦ó¼Ò²Õ¤W,°õ¦æ¤@¦¸¥i²M°£©Ò¦³¤u§@ªí¤WQueryTable

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim StartTime, LastRow
   
4.     StartTime = Timer
   
5.     Application.ScreenUpdating = False
   
6.     LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ
   
7.     For i = 1 To LastRow
   
8.         Dim stockid
   
9.         stockid = Range("A" & i).Value
   
10.         Application.Wait Now + TimeValue("00:00:01")
    
11.         With Sheets("CFSQ")
    
12.             .Rows("1:64").ClearContents
    
13.             '******************************
    
14.             If .QueryTables.Count > 1 Then
    
15.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
    
16.             Else  '¨S¦³QueryTable®É·s¼W
    
17.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
    
18.             End If
    
19.             With .QueryTables(1)  '¤£¦A·s¼W
    
20.                 .AdjustColumnWidth = True
    
21.                 .RefreshPeriod = 0
    
22.                 .WebSelectionType = xlSpecifiedTables
    
23.                 .WebFormatting = xlWebFormattingNone
    
24.                 .WebTables = "3"
    
25.                 .WebPreFormattedTextToColumns = True
    
26.                 .WebConsecutiveDelimitersAsOne = True
    
27.                 .Refresh BackgroundQuery:=False
    
28.             End With
    
29.             '******************************
    
30.        End With
    
31.       
    
32.        With Sheets("ISQ")
    
33.            .Rows("1:64").ClearContents
    
34.            '®M¤W­×§ï .QueryTables(1).Connection =??? .QueryTables.Add Connection=???
    
35.        End With
    
36.       
    
37.        With Sheets("BSQ")
    
38.            .Rows("1:64").ClearContents
    
39.            '®M¤W­×§ï .QueryTables(1).Connection =??? .QueryTables.Add Connection=???
    
40.            '.WebTables = """oMainTable""" ¶·­×§ï
    
41.            End With
    
42.        End With
    
43.        'µ{¦¡½X
    
44.        '
    
45.        '
    
46.     Next
    
47. End Sub

½Æ»s¥N½X

bulletin

¦^´_ 2# GBKEE

¦hÁÂGBKEEª©¥D¦^´_
§Úªºµ{¦¡©ñ¦bªþ¥ó¤¤

½Ð°Ý±z¦^ÂЪº¤º®e¸Ó«ç»ò¨Ï¥Î...
§ÚÁÙ¤£·|¨Ï¥Îmodule
ª½±µ©ñ¨ì¤@­Ó·sªºÀɮפ¤°õ¦æ¤]µo¥Í°ÝÃD
¤£ª¾¹D¸Ó¦p¦ó¨Ï¥Î¥¦
«Ü©êºp³y¦¨±zªº§xÂZ~

GBKEE

¦^´_ 1# bulletin
¤u§@ªí¤@ª½ªº QueryTables.Add ·s¼WWeb¬d¸ß,Àɮ׶V¨Ó¶VÃe¤j,©ìºCµ{¦¡ªº³t«×

1. Option Explicit
   
2. Sub DELETE_QueryTables()  '¶È¶·°õ¦æ¤@¦¸²M°£©Ò¦³QueryTable
   
3.     Dim SH As Worksheet, Q As QueryTable
   
4.     For Each SH In Sheets           '¬¡­¶Ã¯ªº¤u§@ªí¶°¦Xª«¥ó
   
5.         For Each Q In SH.QueryTables
   
6.             Names(Q.Name).Delete    '§R°£ ©w¸q¦WºÙ
   
7.             Q.Delete                '§R°£ QueryTable
   
8.         Next
   
9.     Next
   
10. End Sub
    
11. 
    
12. Sub Ex()
    
13.     Dim stockid
    
14.     stockid = 2303
    
15.     With Sheets("CFSQ")
    
16.         .Rows("1:64").ClearContents
    
17.         If .QueryTables.Count > 1 Then
    
18.             .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
    
19.         Else  '¨S¦³QueryTable®É·s¼W
    
20.              .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
    
21.         End If
    
22.         With .QueryTables(1)  '¤£¦A·s¼W
    
23.             .AdjustColumnWidth = True
    
24.             .RefreshPeriod = 0
    
25.             .WebSelectionType = xlSpecifiedTables
    
26.             .WebFormatting = xlWebFormattingNone
    
27.             .WebTables = "3"
    
28.             .WebPreFormattedTextToColumns = True
    
29.             .WebConsecutiveDelimitersAsOne = True
    
30.             .Refresh BackgroundQuery:=False
    
31.         End With
    
32.     End With
    
33. End Sub

½Æ»s¥N½X