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

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

¦^´_ 10# bulletin

½Ð±ÐGBKEEª©¥D
§Úµo²{°õ¦æ®É
¨C100~200µ§´N·|µo¥Í1004¿ù»~
³o¬O¦]¬°¥Î¨ì¤j¶qªºCOPY  ¾É­P°O¾ÐÅé¥X¿ù¶Ü¡H

±Nµ{¦¡§ï¼g¡A±N¸ê®Æ§ì¨ú¨ì¦W¬°tempªº¤u§@ªí¡A¨Ì§Ç¥t¦s¨ì·sÀÉ
¬O§_¥i¥H§ïµ½¡H

©Î¬O¦³¥i¯à¬O¨ä¥L­ì¦]©Ò³y¦¨¡H
  1. Private Sub CommandButton1_Click()

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


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

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

  93.    Application.ScreenUpdating = True
  94.    EndTime = Timer
  95.    MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
  96.       
  97.    
  98. End Sub
½Æ»s¥N½X

TOP

¦^´_ 10# bulletin


    web¬d¸ß¸ò§Aºô¸ô³s½u³t«×¦³Ãö
·í¥D¾÷¦øªA¾¹±µ¨ü¤Ó¦h³s½u©Î¬O¥D¾÷ºÝ¦³¬y¶qºÞ¨î
¹ï¦P¤@IPªº¬y¶q¶i¦æºÞ±±®É
¥i¯à´NµLªk¨ú±o¸ê®Æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 12# Hsieh

§Ú¤]·Q¹L¬O¬y¶qºÞ¨îªº°ÝÃD
¦hÁ»¡©ú

µL½×¦p¦ó¨Ó§ï¼g¦¨temp¦n¤F
·í°µ½m²ß¤]¦n
¨ì®É¦A½Ð¦U¦ì«e½ú«ü±Ð

TOP

¦^´_ 13# bulletin

¦U¦ì«e½ú
§Ú¤S­×§ï¤F¤@­Ó¡A³o¦¸ª½±µ¥ý¶}±Ò·sªº¬¡­¶Ã¯
¨Ã±N¸ê®Æª½±µ¦s¤J¬¡­¶Ã¯¤¤

1. ¥ý§ì¸ê®Æ¡A¦A½Æ»s¥t¦s·sÀÉ
100µ§ --> 102¬í
200µ§ --> 210¬í

2. ¥ý«Ø¥ß·sÀɦA§ì¸ê®Æ¦sÀÉ
100µ§ --> 100¬í
200µ§ --> 206¬í

¦ü¥G¤Ö¤F½Æ»s¥t¦s³t«×µyµy§Ö¤@ÂI
¦ý¬O¦Ò¶qºô¸ôí©w©Ê¥H¤Îºô¯¸¦s¨úªº°ÝÃD
À³¸Ó¬O¨S¦³®t

¦¹¥~¤´µM¦³¿ù»~1004ªº°ÝÃD, ©Ò¥H¨S¿ìªk´ú¸Õ500µ§¥H¤W©Î¬O©Ò¦³¤W¥«Âd¤½¥q1400Àɪº³t«×...

¿ù»~·|µo¥Í¦b½Æ»sºô­¶¸ê®Æ¡A¦s¨ì¤u§@ªí¤¤®É
¤£¤@©w·|¦b¦ó®Éµo¥Í
¦ý­ì«h¤W¤´¯d¦b100~200µ§¤§¶¡·|µo¥Í
§Ú¦A§â©µ¿ð®É¶¡©Ôªø¡A¬Ý¯à¤£¯àÁקK¿ù»~1004
ÁÂÁ¦U¦ì«e½ú«ü±Ð~
  1. Sub stest()

  2.     Dim StartTime, LastRow
  3.     Dim wbnew As Workbook
  4.    
  5.     DELETE_QueryTables
  6.    
  7.     StartTime = Timer
  8.     LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ

  9.     Application.ScreenUpdating = False
  10.    
  11.     For i = 2 To 101
  12.         
  13.         Dim stockid
  14.         stockid = Range("A" & i).Value
  15.    
  16.         Application.DisplayAlerts = False
  17.         Application.Wait Now + TimeValue("00:00:01")
  18.         
  19.         
  20.         Set wbnew = Workbooks.Add() '·s¼W¬¡­¶Ã¯
  21.         wbnew.SaveAs Filename:="C:\Users\KT\Desktop\Test2\" & stockid & ".xlsx"  '¥t¦s·sÀÉ

  22.         With wbnew.Sheets(1) 'CFSQ
  23.            '.Rows("1:64").ClearContents
  24.            
  25.            '******************************
  26.             If .QueryTables.Count > 1 Then
  27.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
  28.             Else  '¨S¦³QueryTable®É·s¼W
  29.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
  30.             End If
  31.             With .QueryTables(1)  '¤£¦A·s¼W
  32.                 .AdjustColumnWidth = True
  33.                 .RefreshPeriod = 0
  34.                 .WebSelectionType = xlSpecifiedTables
  35.                 .WebFormatting = xlWebFormattingNone
  36.                 .WebTables = "3"
  37.                 .WebPreFormattedTextToColumns = True
  38.                 .WebConsecutiveDelimitersAsOne = True
  39.                 .Refresh BackgroundQuery:=False
  40.             End With
  41.             '******************************
  42.             
  43.        End With
  44.       
  45.     With Sheets(2)
  46.            '.Rows("1:64").ClearContents
  47.            
  48.            '******************************
  49.             If .QueryTables.Count > 1 Then
  50.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
  51.             Else  '¨S¦³QueryTable®É·s¼W
  52.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
  53.             End If
  54.             With .QueryTables(1)  '¤£¦A·s¼W
  55.                 .AdjustColumnWidth = True
  56.                 .RefreshPeriod = 0
  57.                 .WebSelectionType = xlSpecifiedTables
  58.                 .WebFormatting = xlWebFormattingNone
  59.                 .WebTables = "3"
  60.                 .WebPreFormattedTextToColumns = True
  61.                 .WebConsecutiveDelimitersAsOne = True
  62.                 .Refresh BackgroundQuery:=False
  63.             End With
  64.             '******************************
  65.             
  66.        End With
  67.       
  68.        With Sheets(2)
  69.            '.Rows("1:64").ClearContents
  70.            
  71.            '******************************
  72.             If .QueryTables.Count > 1 Then
  73.                 .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
  74.             Else  '¨S¦³QueryTable®É·s¼W
  75.                 .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
  76.             End If
  77.             With .QueryTables(1)  '¤£¦A·s¼W
  78.                 .AdjustColumnWidth = True
  79.                 .RefreshPeriod = 0
  80.                 .WebSelectionType = xlSpecifiedTables
  81.                 .WebFormatting = xlWebFormattingNone
  82.                 .WebTables = "3"
  83.                 .WebPreFormattedTextToColumns = True
  84.                 .WebConsecutiveDelimitersAsOne = True
  85.                 .Refresh BackgroundQuery:=False
  86.             End With
  87.             '******************************
  88.            
  89.        End With
  90.       
  91.        Windows(stockid & ".xlsx").Close savechanges:=True
  92.        Application.DisplayAlerts = True

  93.     Next i
  94.    
  95.    
  96.    Application.ScreenUpdating = True
  97.    EndTime = Timer
  98.    MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
  99.       
  100.    
  101. End Sub
½Æ»s¥N½X

TOP

¦^´_ 14# bulletin
§Ú§ì¥xÆW50¡Aªá¤F¬ù56¬í¡C

            
With wbnew.Sheets(1) 'CFSQ
               '.Rows("1:64").ClearContents
               
               '******************************
                If .QueryTables.Count > 1 Then
                    .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
                Else  '¨S¦³QueryTable®É·s¼W
                    .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
                End If
                With .QueryTables(1)  '¤£¦A·s¼W
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .WebSelectionType = xlSpecifiedTables
                    .WebFormatting = xlWebFormattingNone
                    .WebTables = "3"
                    .WebPreFormattedTextToColumns = True
                    .WebConsecutiveDelimitersAsOne = True
                    .Refresh BackgroundQuery:=False
                End With
                '******************************
               
           End With
         
        With wbnew.Sheets(2)
               '.Rows("1:64").ClearContents
               
               '******************************
                If .QueryTables.Count > 1 Then
                    .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
                Else  '¨S¦³QueryTable®É·s¼W
                    .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
                End If
                With .QueryTables(1)  '¤£¦A·s¼W
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .WebSelectionType = xlSpecifiedTables
                    .WebFormatting = xlWebFormattingNone
                    .WebTables = "3"
                    .WebPreFormattedTextToColumns = True
                    .WebConsecutiveDelimitersAsOne = True
                    .Refresh BackgroundQuery:=False
                End With
                '******************************
               
           End With
         
           With wbnew.Sheets(3)
               '.Rows("1:64").ClearContents
               
               '******************************
                If .QueryTables.Count > 1 Then
                    .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
                Else  '¨S¦³QueryTable®É·s¼W
                    .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
                End If
                With .QueryTables(1)  '¤£¦A·s¼W
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .WebSelectionType = xlSpecifiedTables
                    .WebFormatting = xlWebFormattingNone
                    .WebTables = "3"
                    .WebPreFormattedTextToColumns = True
                    .WebConsecutiveDelimitersAsOne = True
                    .Refresh BackgroundQuery:=False
                End With
                '******************************
               
           End With

«Ü©êºp¡A§Ú¬O¤p¾Ç¥Í¡A¤£¯à¤U¸üÀɮסA¬O­Ó¤p§¾«Ä¡I

TOP

¦^´_ 14# bulletin
  1. Sub stest()

  2.         Dim StartTime, LastRow
  3.         Dim wbnew As Workbook
  4.       
  5.         DELETE_QueryTables
  6.       
  7.         StartTime = Timer
  8.         LastRow = Sheets("sheet1").Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ

  9.         Application.ScreenUpdating = False
  10.       
  11.         For i = 1 To 50
  12.             
  13.             Dim stockid
  14.             If i <= 50 Then
  15.                stockid = Range("A" & i + 10).Value
  16.             Else
  17.                stockid = Range("B" & i + 10).Value
  18.             End If
  19.             Application.DisplayAlerts = False
  20.             Application.Wait Now + TimeValue("00:00:01")
  21.             
  22.             
  23.             Set wbnew = Workbooks.Add() '·s¼W¬¡­¶Ã¯
  24.             'wbnew.SaveAs Filename:="C:\myStock\Test\" & stockid & ".xls"  '¥t¦s·sÀÉ
  25.             wbnew.SaveAs Filename:="C:\myStock\Test\" & stockid & "©u³ø.xls"  '¥t¦s·sÀÉ

  26.             With wbnew.Sheets(1) 'CFSQ
  27.                '.Rows("1:64").ClearContents
  28.                
  29.                '******************************
  30.                 If .QueryTables.Count > 1 Then
  31.                     .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm"
  32.                 Else  '¨S¦³QueryTable®É·s¼W
  33.                     .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_" & stockid & ".djhtm", Destination:=.Range("$A$1")
  34.                 End If
  35.                 With .QueryTables(1)  '¤£¦A·s¼W
  36.                     .AdjustColumnWidth = True
  37.                     .RefreshPeriod = 0
  38.                     .WebSelectionType = xlSpecifiedTables
  39.                     .WebFormatting = xlWebFormattingNone
  40.                     .WebTables = "3"
  41.                     .WebPreFormattedTextToColumns = True
  42.                     .WebConsecutiveDelimitersAsOne = True
  43.                     .Refresh BackgroundQuery:=False
  44.                 End With
  45.                 '******************************
  46.                
  47.            End With
  48.          
  49.         With wbnew.Sheets(2)
  50.                '.Rows("1:64").ClearContents
  51.                
  52.                '******************************
  53.                 If .QueryTables.Count > 1 Then
  54.                     .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm"
  55.                 Else  '¨S¦³QueryTable®É·s¼W
  56.                     .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
  57.                 End If
  58.                 With .QueryTables(1)  '¤£¦A·s¼W
  59.                     .AdjustColumnWidth = True
  60.                     .RefreshPeriod = 0
  61.                     .WebSelectionType = xlSpecifiedTables
  62.                     .WebFormatting = xlWebFormattingNone
  63.                     .WebTables = "3"
  64.                     .WebPreFormattedTextToColumns = True
  65.                     .WebConsecutiveDelimitersAsOne = True
  66.                     .Refresh BackgroundQuery:=False
  67.                 End With
  68.                 '******************************
  69.                
  70.            End With
  71.          
  72.            With wbnew.Sheets(3)
  73.                '.Rows("1:64").ClearContents
  74.                
  75.                '******************************
  76.                 If .QueryTables.Count > 1 Then
  77.                     .QueryTables(1).Connection = "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm"
  78.                 Else  '¨S¦³QueryTable®É·s¼W
  79.                     .QueryTables.Add Connection:="URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" & stockid & ".asp.htm", Destination:=.Range("$A$1")
  80.                 End If
  81.                 With .QueryTables(1)  '¤£¦A·s¼W
  82.                     .AdjustColumnWidth = True
  83.                     .RefreshPeriod = 0
  84.                     .WebSelectionType = xlSpecifiedTables
  85.                     .WebFormatting = xlWebFormattingNone
  86.                     .WebTables = "3"
  87.                     .WebPreFormattedTextToColumns = True
  88.                     .WebConsecutiveDelimitersAsOne = True
  89.                     .Refresh BackgroundQuery:=False
  90.                 End With
  91.                 '******************************
  92.                
  93.            End With
  94.          
  95.            'Windows(stockid & ".xls").Close savechanges:=True
  96.            Windows(stockid & "©u³ø.xls").Close savechanges:=True
  97.            Application.DisplayAlerts = True

  98.         Next i
  99.       
  100.       
  101.        Application.ScreenUpdating = True
  102.        EndTime = Timer
  103.        MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"
  104.          
  105.       
  106. End Sub
½Æ»s¥N½X
«Ü©êºp¡A§Ú¬O¤p¾Ç¥Í¡A¤£¯à¤U¸üÀɮסA¬O­Ó¤p§¾«Ä¡I

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD