oobird

1. Sub Stock_Data()
   
2.     Dim STK_NO As String, url As String
   
3.     STK_NO = Sheets("Result").Cells(3, "B")
   
4.     If STK_NO = "" Then Exit Sub
   
5.     url = "http://www.google.com/finance/historical?q=TPE%3A" & STK_NO & "&start=0&num=200"
   
6.     'Cells.Clear
   
7.     Application.DisplayStatusBar = True
   
8.     Application.ScreenUpdating = False
   
9.     Set ie = CreateObject("internetexplorer.application")
   
10.     With ie
    
11.         .Visible = False
    
12.         .Navigate url
    
13.         Do While .ReadyState <> 4
    
14.             DoEvents
    
15.         Loop
    
16.         .ExecWB 17, 2
    
17.         .ExecWB 12, 2
    
18.         Application.Goto Sheets("Data").Range("B7")
    
19.         ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
    
20.                                                                              False, NoHTMLFormatting:=True
    
21.     End With
    
22.     Range("B7:G51,B252:G275").Delete Shift:=xlUp
    
23.     ie.Quit
    
24. End Sub

½Æ»s¥N½X

oobird

1.§A¬O¥Î"Const url As String ="¤è¦¡«Å§iurl¬°¦r²Å«¬ºA¡A³o¾A¦X¥Î¦b±`¶q«Å§i¡A¤£¯à¥Î¦bÅܶq¡C
2.­ì¥ýªº Sheets("Sheet2").Range("B7"). Activate¥²¶·¦b·í«e¤u§@ªí¬°"Sheet2"®É¤~¯à¦³®Äªº¨ìrange("b7"), ­Y¤£¦b³o­Óªí´N¥²¶·¼g¨â¦æ¡A¥ý¨ìsheet2, ¦A¨ìb7. §ï¬°Application.Goto Sheets("Sheet2").Range("B7")¬O¬°¤F¤@¦æ¨ì¦ì¡C

oobird

1.§A¬O¥Î"Const url As String ="¤è¦¡«Å§iurl¬°¦r²Å«¬ºA¡A³o¾A¦X¥Î¦b±`¶q«Å§i¡A¤£¯à¥Î¦bÅܶq¡C
2.­ì¥ýªº Sheets("Sheet2").Range("B7"). Activate¥²¶·¦b·í«e¤u§@ªí¬°"Sheet2"®É¤~¯à¦³®Äªº¨ìrange("b7"), ­Y¤£¦b³o­Óªí´N¥²¶·¼g¨â¦æ¡A¥ý¨ìsheet2, ¦A¨ìb7. §ï¬°Application.Goto Sheets("Sheet2").Range("B7")¬O¬°¤F¤@¦æ¨ì¦ì¡C