[µ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

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

bulletin

¦^´_ 2# GBKEE

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

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

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

¦^´_ 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

¦^´_ 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

³ø§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

¦^´_ 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¸ê®Æ

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©Ç

bulletin

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