kimbal

§A¥i¥H¸Õ¸Õ¤@¥y¤@¥y¸Õ¸Õ¤F¸Ñ¤@¤U·N«ä

1. Sub GetTransInfo()
   
2. Worksheets("sheet2").Activate
   
3. Call ¨é°Ó¶i¥X("2885", "sheet2", "A1")
   
4. 'Call ¨é°Ó¶i¥X("2409", "sheet2", "A60")
   
5. End Sub
   
6. Sub ¨é°Ó¶i¥X(stock As String, tsheet As String, tcell As String)
   
7.     '"all&stockid",
   
8.     Call ¨é°Ó¶i¥X2("8,10,11", stock, tsheet, tcell)
   
9. End Sub
   
10. 
    
11. '(all&stockid,
    
12. Sub ¨é°Ó¶i¥X2(tbl As String, stock As String, tsheet As String, tcell As String)
    
13.      With Worksheets(tsheet).QueryTables.Add(Connection:="URL;http://yamstock.megatime.com.tw/asp/stockinfo/ps_top.asp?m=all&stockid=" & _
    
14.         stock & "&name1=D2&index1=6", _
    
15.         Destination:=Worksheets(tsheet).Range(tcell))
    
16.         .Name = all & "_" & stock
    
17.          .FieldNames = True
    
18.         .FieldNames = True
    
19.         .RowNumbers = False
    
20.         .FillAdjacentFormulas = False
    
21.         .PreserveFormatting = True
    
22.         .RefreshOnFileOpen = False
    
23.         .BackgroundQuery = False
    
24.         .RefreshStyle = xlOverwriteCells
    
25.         .SavePassword = False
    
26.         .SaveData = True
    
27.         .AdjustColumnWidth = True
    
28.         .RefreshPeriod = 0
    
29.         .WebSelectionType = xlSpecifiedTables
    
30.         .WebFormatting = xlWebFormattingNone
    
31.         .WebTables = tbl
    
32.         .WebPreFormattedTextToColumns = True
    
33.         .WebConsecutiveDelimitersAsOne = True
    
34.         .WebSingleBlockTextImport = False
    
35.         .WebDisableDateRecognition = False
    
36.         .WebDisableRedirections = False
    
37.         .Refresh BackgroundQuery:=False
    
38.     End With
    
39. 
    
40.     End Sub

½Æ»s¥N½X