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

[µo°Ý] µ{¦¡°õ¦æ³t«×¶V¨Ó¶VºC

[µo°Ý] µ{¦¡°õ¦æ³t«×¶V¨Ó¶VºC

¥»©«³Ì«á¥Ñ bulletin ©ó 2014-2-5 19:14 ½s¿è

¦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.     Dim StartTime
  3.     StartTime = Timer
  4.     Application.ScreenUpdating = False

  5.     For i = 1 To 100
  6.         
  7.         Dim stockid
  8.         stockid = Range("A" & i).Value
  9.    
  10.     Application.Wait Now + TimeValue("00:00:01")

  11.        '²{ª÷¬y¶qªí©u³ø
  12.        With Sheets("CFSQ")
  13.            .Rows("1:64").ClearContents
  14.            With .QueryTables.Add(Connection:= _
  15.                "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range( _
  16.                "$A$1"))
  17.                .Name = "zc3_2002.djhtm"
  18.                .FieldNames = True
  19.                .RowNumbers = False
  20.                .FillAdjacentFormulas = False
  21.                .PreserveFormatting = True
  22.                .RefreshOnFileOpen = False
  23.                .BackgroundQuery = True
  24.                .RefreshStyle = xlInsertDeleteCells
  25.                .SavePassword = False
  26.                .SaveData = True
  27.                .AdjustColumnWidth = True
  28.                .RefreshPeriod = 0
  29.                .WebSelectionType = xlSpecifiedTables
  30.                .WebFormatting = xlWebFormattingNone
  31.                .WebTables = "3"
  32.                .WebPreFormattedTextToColumns = True
  33.                .WebConsecutiveDelimitersAsOne = True
  34.                .WebSingleBlockTextImport = False
  35.                .WebDisableDateRecognition = False
  36.                .WebDisableRedirections = False
  37.                .Refresh BackgroundQuery:=False
  38.            End With
  39.        End With
  40.       
  41.       '·l¯qªí©u³ø
  42.        With Sheets("ISQ")
  43.            .Rows("1:64").ClearContents
  44.            With .QueryTables.Add(Connection:= _
  45.                "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range( _
  46.                "$A$1"))
  47.                .Name = "zcq_2002.asp"
  48.                .FieldNames = True
  49.                .RowNumbers = False
  50.                .FillAdjacentFormulas = False
  51.                .PreserveFormatting = True
  52.                .RefreshOnFileOpen = False
  53.                .BackgroundQuery = True
  54.                .RefreshStyle = xlInsertDeleteCells
  55.                .SavePassword = False
  56.                .SaveData = True
  57.                .AdjustColumnWidth = True
  58.                .RefreshPeriod = 0
  59.                .WebSelectionType = xlSpecifiedTables
  60.                .WebFormatting = xlWebFormattingNone
  61.                .WebTables = "3"
  62.                .WebPreFormattedTextToColumns = True
  63.                .WebConsecutiveDelimitersAsOne = True
  64.                .WebSingleBlockTextImport = False
  65.                .WebDisableDateRecognition = False
  66.                .WebDisableRedirections = False
  67.                .Refresh BackgroundQuery:=False
  68.            End With
  69.        End With
  70.       
  71.       '¸ê²£­t¶Åªí©u³ø
  72.        With Sheets("BSQ")
  73.            .Rows("1:64").ClearContents
  74.            With .QueryTables.Add(Connection:= _
  75.                "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:= _
  76.                .Range("$A$1"))
  77.                .Name = "zcpa_2002.asp"
  78.                .FieldNames = True
  79.                .RowNumbers = False
  80.                .FillAdjacentFormulas = False
  81.                .PreserveFormatting = True
  82.                .RefreshOnFileOpen = False
  83.                .BackgroundQuery = True
  84.                .RefreshStyle = xlInsertDeleteCells
  85.                .SavePassword = False
  86.                .SaveData = True
  87.                .AdjustColumnWidth = True
  88.                .RefreshPeriod = 0
  89.                .WebSelectionType = xlSpecifiedTables
  90.                .WebFormatting = xlWebFormattingNone
  91.                .WebTables = """oMainTable"""
  92.                .WebPreFormattedTextToColumns = True
  93.                .WebConsecutiveDelimitersAsOne = True
  94.                .WebSingleBlockTextImport = False
  95.                .WebDisableDateRecognition = False
  96.                .WebDisableRedirections = False
  97.                .Refresh BackgroundQuery:=False
  98.            End With
  99.        End With
  100.       
  101.             Application.DisplayAlerts = False '¦sÀɮɪ½±µÂл\­ì¦³ÀÉ®×
  102.       
  103.         '¥t¦s·sÀÉ
  104.             Sheets(Array("CFSQ", "ISQ", "BSQ")).Copy
  105.             ActiveWorkbook.SaveAs Filename:= _
  106.               "C:\Users\user\Documents\KT\§ë¸ê²z°]\Excel¤ÀªR¼Ò²Õ\" & stockid & "©u³ø.xlsx", FileFormat:= _
  107.                xlOpenXMLWorkbook, CreateBackup:=False
  108.                        
  109.             Application.DisplayAlerts = True
  110.             Windows(stockid & "©u³ø.xlsx").Close
  111.                
  112.     Next i

  113.    Application.ScreenUpdating = True
  114.    EndTime = Timer
  115.    MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
  116.       
  117.    
  118. End Sub
½Æ»s¥N½X

¦^´_ 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. Sub Ex()
  12.     Dim stockid
  13.     stockid = 2303
  14.     With Sheets("CFSQ")
  15.         .Rows("1:64").ClearContents
  16.         If .QueryTables.Count > 1 Then
  17.             .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
  18.         Else  '¨S¦³QueryTable®É·s¼W
  19.              .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
  20.         End If
  21.         With .QueryTables(1)  '¤£¦A·s¼W
  22.             .AdjustColumnWidth = True
  23.             .RefreshPeriod = 0
  24.             .WebSelectionType = xlSpecifiedTables
  25.             .WebFormatting = xlWebFormattingNone
  26.             .WebTables = "3"
  27.             .WebPreFormattedTextToColumns = True
  28.             .WebConsecutiveDelimitersAsOne = True
  29.             .Refresh BackgroundQuery:=False
  30.         End With
  31.     End With
  32. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

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

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

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-6 06:43 ½s¿è

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

TOP

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

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

VBA´ú¸Õ±M¥Î.zip (270.05 KB)
  1. Private Sub CommandButton1_Click()

  2.     Dim StartTime
  3.     StartTime = Timer
  4.     Application.ScreenUpdating = False
  5.     LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ

  6.     For i = 2 To LastRow
  7.         
  8.         Dim stockid
  9.         stockid = Range("A" & i).Value
  10.    
  11.     Application.Wait Now + TimeValue("00:00:01")

  12.        With Sheets("CFSQ")
  13.            '.Rows("1:64").ClearContents
  14.            '******************************
  15.             If .QueryTables.Count > 1 Then
  16.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
  17.             Else  '¨S¦³QueryTable®É·s¼W
  18.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
  19.             End If
  20.             With .QueryTables(1)  '¤£¦A·s¼W
  21.                 .AdjustColumnWidth = True
  22.                 .RefreshPeriod = 0
  23.                 .WebSelectionType = xlSpecifiedTables
  24.                 .WebFormatting = xlWebFormattingNone
  25.                 .WebTables = "3"
  26.                 .WebPreFormattedTextToColumns = True
  27.                 .WebConsecutiveDelimitersAsOne = True
  28.                 .Refresh BackgroundQuery:=False
  29.             End With
  30.             '******************************
  31.        End With
  32.       
  33.        With Sheets("ISQ")
  34.            '.Rows("1:64").ClearContents
  35.            '******************************
  36.             If .QueryTables.Count > 1 Then
  37.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
  38.             Else  '¨S¦³QueryTable®É·s¼W
  39.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
  40.             End If
  41.             With .QueryTables(1)  '¤£¦A·s¼W
  42.                 .AdjustColumnWidth = True
  43.                 .RefreshPeriod = 0
  44.                 .WebSelectionType = xlSpecifiedTables
  45.                 .WebFormatting = xlWebFormattingNone
  46.                 .WebTables = "3"
  47.                 .WebPreFormattedTextToColumns = True
  48.                 .WebConsecutiveDelimitersAsOne = True
  49.                 .Refresh BackgroundQuery:=False
  50.             End With
  51.             '******************************
  52.        End With
  53.       
  54.        With Sheets("BSQ")
  55.            '.Rows("1:64").ClearContents
  56.            '******************************
  57.             If .QueryTables.Count > 1 Then
  58.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
  59.             Else  '¨S¦³QueryTable®É·s¼W
  60.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
  61.             End If
  62.             With .QueryTables(1)  '¤£¦A·s¼W
  63.                 .AdjustColumnWidth = True
  64.                 .RefreshPeriod = 0
  65.                 .WebSelectionType = xlSpecifiedTables
  66.                 .WebFormatting = xlWebFormattingNone
  67.                 .WebTables = "3"
  68.                 .WebPreFormattedTextToColumns = True
  69.                 .WebConsecutiveDelimitersAsOne = True
  70.                 .Refresh BackgroundQuery:=False
  71.             End With
  72.             '******************************
  73.        End With
  74.       
  75.             Application.DisplayAlerts = False '¦sÀɮɪ½±µÂл\­ì¦³ÀÉ®×
  76.       
  77.             Sheets(Array("CFSQ", "ISQ", "BSQ")).Copy
  78.             ActiveWorkbook.SaveAs Filename:= _
  79.               "C:\Users\user\Desktop\Test\" & stockid & "©u³ø.xlsx", FileFormat:= _
  80.                xlOpenXMLWorkbook, CreateBackup:=False
  81.             Windows(stockid & "©u³ø.xlsx").Close
  82.                        
  83.             Application.DisplayAlerts = True

  84.        DELETE_QueryTables
  85.       
  86.     Next i

  87.    Application.ScreenUpdating = True
  88.    EndTime = Timer
  89.    MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
  90.       
  91.    
  92. 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¦^ÂÐ~

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-6 13:17 ½s¿è

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

TOP

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

TOP

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





3.BSQ¤u§@ªíªÅ¥Õ°ÝÃD, ¥i¬d¬O­þ¤@ÀɪѲ¼¬Ýºô­¶¬O§_¤]µL¸ê®Æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^³ø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©Ç

TOP

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

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD