GBKEE

¦^´_ 3# chihminyang88

Hsieh(2013-3-10 12:01): ªþ¤Wºô§}¨Ã»¡©ú¾Þ§@¥H«K´ú¸Õ

Áٯʻ¡©ú¾Þ§@  :ªþÀÉ ©Î µ{¦¡½X

GBKEE

¦^´_ 6# chihminyang88
­pºâ«á¤§¸ê®Æ.½Ð°Ý§A¬O¦p¦ó¥ÎVBAªºµ{§Ç(µ{¦¡½X)¨Ó¨ú±o ,§A­n¨q¤W¨Ó¬Ý¬Ý,®Ç¤H¤~ª¾¦p¦óÀ°¦£.

GBKEE

¦^´_ 8# chihminyang88
§A¬°¦ó¥Î¤u§@ªí¤WÀx¦s®æ¦³­×§ïªº¹w³]¨Æ¥ó  ¶·­×§ï¤@¤U

1. Private Sub Worksheet_Change(ByVal TARGET As Range)
   
2.         Dim stockno As String
   
3.         Application.EnableEvents = False   
   
4.        'EnableEvents ÄÝ©Ê  ¦pªG«ü©wª«¥ó¯àIJµo¨Æ¥ó¡A«h¥»Äݩʬ° True¡CŪ/¼g Boolean¡C
   
5.         stockno = 3176
   
6.         With ActiveSheet.QueryTables.Add(Connection:= _
   
7.              "URL;http://www.stockdog.tw/stockdog/index.php?p=3&m=2&sid=" & stockno & "&sdate=2013-01-01&edate=2013-01-31&Submit=%ACd%B8%DF" _
   
8.              , Destination:=Range("A5"))
   
9.              .Name = "«ùªÑ¤À§G"
   
10.              .FieldNames = True
    
11.              .RowNumbers = False
    
12.              .FillAdjacentFormulas = False
    
13.              .PreserveFormatting = False
    
14.              .RefreshOnFileOpen = False
    
15.              .BackgroundQuery = True
    
16.              .RefreshStyle = xlOverwriteCells
    
17.              .SavePassword = False
    
18.              .SaveData = True
    
19.              .AdjustColumnWidth = False
    
20.              .RefreshPeriod = 0
    
21.              .WebSelectionType = xlSpecifiedTables
    
22.              .WebFormatting = xlWebFormattingNone
    
23.              .WebTables = "1,2,3,4,5,6,7,8,9,10"
    
24.              .WebPreFormattedTextToColumns = True
    
25.              .WebConsecutiveDelimitersAsOne = True
    
26.              .WebSingleBlockTextImport = False
    
27.              .WebDisableDateRecognition = False
    
28.              .WebDisableRedirections = False
    
29.              .Refresh BackgroundQuery:=False
    
30.          End With
    
31.          Application.EnableEvents = True
    
32. End Sub

½Æ»s¥N½X

¶×¤Jªº¥~³¡¸ê®Æ ¦p¤U¦³¦ó¤£¹ï?
¡ã                                       
¨é°Ó        ¶R±i        ½æ±i        ¦X­p        «ùªÑ¦¨¥»       
9659(´I¨¹°ª¶¯)        545        446        99        176.53       
9653(´I¨¹©µ¥­)        513        185        328        173.68       
5260(¤j¼y)        436        308        128        173.07       
126U(§»»·À]«e)        293        95        198        181.41       
9183(¸s¯qª÷¹©°ª¶¯)        264        220        44        175.28       
µù¥U¬°·|­û¥i¬d¸ß©Ò¦³¨é°Ó¶i¥X¸ê®Æ¡B±Æ¦æ¡B«ù¦³§¡»ù                                       
                                       
                                       
½Ð¥ý µn¤J ¡A¬d¸ß§ó¦h¸ê®Æ                                       
                                       
µù¥U¦¨¬°·|­û

GBKEE

¦^´_ 10# chihminyang88
¸Óºô¯¸»Ý¥Ó½Ð¬°·|­û(§K¶O)    ¦ý·|·j¶°­Ó¤H¸ê°T (¤£·Q¥[¤J)
°õ¦æ§AªºÀɮצp¹Ï

¤U¸ü (82.96 KB)

2013-3-11 12:25