ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦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

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

½Ð°Ý«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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-21 09:35 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD