[µo°Ý] ¸ê®Æ§ì¨ú¥t¦s¦b¤£¦Psheet, ¥X²{¿ù»~1004

b7502040

¦U¦ì«e½ú¦n
§Ú¬O·s¤â¡A¦b½m²ß®É¸I¨ì¥H¤U°ÝÃD

CommandButton1³]©w¦bsheet1
·QÅý¸ê®Æ¦s¨ú©ñ¦bsheet2

©Ò¥H§Úªº¨BÆJ¦p¤U
1. click CommandButton1
2. ¿ï¨úSheet2¡A¨Ã²M°£Â¦³¸ê®Æ
3. ¶i¤J¥~³¡³sµ²¶×¤J¸ê®Æ¡A¦s©ñ¦bSheet2ªºA1Àx¦s®æ

¦ý°õ¦æ®É«oÅã¥Ü
°õ¦æ¶¥¬q¿ù»~'1004':
À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~

½Ð°Ý¥H¤Uµ{¦¡À³¸Ó¦p¦ó­×§ï¡H
¦hÁ«ü±Ð

Private Sub CommandButton1_Click()

    Sheets("Sheet2").Select
    Columns("A:AC").Select
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://mops.twse.com.tw/mops/web/ajax_t51sb01?step=1&firstin=1&TYPEK=sii" _
        , Destination:=Range("$A$1"))
        .Name = "ajax_t51sb01?step=1&firstin=1&TYPEK=sii"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
   
    Columns("C:AB").Select
    Selection.Delete Shift:=xlToLeft
   
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
   
End Sub

Hsieh

¦^´_ 1# b7502040

1. Private Sub CommandButton1_Click()
   
2.    With Sheets(2)
   
3.     .Columns("A:AC").ClearContents
   
4.     With .QueryTables.Add(Connection:= _
   
5.         "URL;http://mops.twse.com.tw/mops/web/ajax_t51sb01?step=1&firstin=1&TYPEK=sii" _
   
6.         , Destination:=.Range("$A$1"))
   
7.         .Name = "ajax_t51sb01?step=1&firstin=1&TYPEK=sii"
   
8.         .FieldNames = True
   
9.         .RowNumbers = False
   
10.         .FillAdjacentFormulas = False
    
11.         .PreserveFormatting = True
    
12.         .RefreshOnFileOpen = False
    
13.         .BackgroundQuery = True
    
14.         .RefreshStyle = xlInsertDeleteCells
    
15.         .SavePassword = False
    
16.         .SaveData = True
    
17.         .AdjustColumnWidth = True
    
18.         .RefreshPeriod = 0
    
19.         .WebSelectionType = xlEntirePage
    
20.         .WebFormatting = xlWebFormattingNone
    
21.         .WebPreFormattedTextToColumns = True
    
22.         .WebConsecutiveDelimitersAsOne = True
    
23.         .WebSingleBlockTextImport = False
    
24.         .WebDisableDateRecognition = False
    
25.         .WebDisableRedirections = False
    
26.         .Refresh BackgroundQuery:=False
    
27.     End With
    
28.     .Columns("C:AB").Delete Shift:=xlToLeft
    
29.     .Rows("1:1").Delete Shift:=xlUp
    
30.    End With
    
31. End Sub

½Æ»s¥N½X

b7502040

¦hÁªO¥D¦^ÂÐ!!

GBKEE

¦^´_ 3# b7502040

1. Private Sub CommandButton1_Click() '¤u§@ªíª«¥ó¼Ò²Õ(Sheet1) ªºµ{¦¡½X
   
2.     Sheets("Sheet2").Select     '§@¥Î¤¤ªº¤u§@ªíÂಾ¨ìSheet2
   
3.     Columns("A:AC").Select      '1004¿ù»~:³o¤u§@ªíª«¥ó¼Ò²Õ(Sheet1):«ü©w¤@­ÓÀx¦s®æ©Î¤@­ÓÀx¦s®æ½d³ò
   
4.     '*********************************************
   
5.     '·í§@¥Î¤¤ªº¤u§@ªí(Sheet2)¤£¬O¤u§@ªíª«¥ó¼Ò²Õ(Sheet1)ªº¤u§@ªí
   
6.     '¤£¯à«ü©w³o¤u§@ªíª«¥ó¼Ò²Õ(Sheet1)¤u§@ªíªº¤@­ÓÀx¦s®æ©Î¤@­ÓÀx¦s®æ½d³ò
   
7.     '³oµ{¦¡½X¦p¦b¤@¯ë¼Ò²Õ,ThisWorkbook,¤£·|¦³³o¿ù»~.
   
8.     '*****************************************************
   
9.     Selection.ClearContents     'Selection¬OSheet2ªº ¨S¦³1004
   
10.     Range("A1").Select          '¦P¤W ¦³1004¿ù»~

½Æ»s¥N½X

bulletin

½Ð°Ý«e½ú

¨Ì·Ó³o¼Ëªº§@ªk¡A­×§ï¤F¥t¥~¤@­ÓÀÉ®×
µ{¦¡½X¥i¥H°õ¦æ¡A¦ý¬O¥þ³¡³£¶K¦bsheet1
¦Ó«D«ü©wªºCFQ, INC, ISQ, BSQ·í¤¤
³o¬Oµ{¦¡½X­þ­Ó¦a¤è¨S«ü©w²M·¡©O¡H

Private Sub CommandButton1_Click()

    With Sheets("CFSQ")
        With QueryTables.Add(Connection:= _
            "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_2002.djhtm", Destination:=Range( _
            "$A$1"))
            .Name = "zc3_2002.djhtm"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "3"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    End With
   
    With Sheets("ISQ")
        With QueryTables.Add(Connection:= _
            "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_2002.asp.htm", Destination:=Range( _
            "$A$1"))
            .Name = "zcq_2002.asp"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "3"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    End With
   
    With Sheets("BSQ")
        With QueryTables.Add(Connection:= _
            "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_2002.asp.htm", Destination:= _
            Range("$A$1"))
            .Name = "zcpa_2002.asp"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = """oMainTable"""
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    End With
   
    With Sheets("INC")
        With QueryTables.Add(Connection:= _
            "URL;http://dj.mybank.com.tw/z/zc/zch/zch_2002.asp.htm", Destination:=Range( _
            "$A$1"))
            .Name = "zch_2002.asp"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = """oMainTable"""
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    End With
   
End Sub

GBKEE

¦^´_ 5# bulletin
³o°ÝÃD¤Ó¦h¤H°Ý¹L
   

With Sheets("CFSQ")
        With QueryTables.Add(Connection:= _
            "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_2002.djhtm", Destination:=.Range( _
            "$A$1"))

With ¤¤¤Ö¤F¤@ÂI. ´N¤£¬O With ªºÄݩʩΤèªk

bulletin

¤£¦n·N«ä
§Úª¾¹D¤F
ª¦¹L¤å¡A²´·ú¤Ó¤jÁû¨Sµo²{ "."ªº¦s¦b
>"<