[µo°Ý] [µo°Ý]¦p¦ó§ó§ï³sµ²ºô§}¦¨ÅܼÆ?

¤ô¤¸¯À

¦U¦ì«e½ú¡A§Æ±æ¤£§[½ç±Ð!!ÁÂÁÂ

»¡©ú
§Q¥Îªí³æ³sµ²¨ì«ü©wºô§}
Â^¨ú©Ò¦³¤º®e«á¥[¥H­pºâ¡C

¸ê®Æ¬°
http://www.google.com/finance/historical?q=TPE%3A1101&start=0&num=200

ºÃ°ÝÂI
1.¦p¦ó±Nºô§}¸Ìªº1101§ó§ï¦¨ÅܼơA¥i¥H¥ÑÀx¦s®æ¨Ó§ó°Ê??
2.¥ç©Î¦¹ºô§}µLªk°µÅܼƧó°Ê¡A­n¥t¥~¤èªk¨ÓÂ^¨úªí³æ??

­ì©l½X

1. Sub Stock_Data()
   
2. 
   
3. Dim STK_NO As String
   
4. 
   
5. STK_NO = 1101   'Sheets("Result").Cells(3, "B")
   
6. 
   
7. If STK_NO = "" Then Exit Sub
   
8. 
   
9. Const url As String = "http://www.google.com/finance/historical?q=TPE%3A&STK_NO&start=0&num=200"
   
10. 
    
11. Cells.Clear
    
12.    
    
13. Application.DisplayStatusBar = True
    
14. 
    
15. Application.ScreenUpdating = False
    
16.    
    
17. Set ie = CreateObject("internetexplorer.application")
    
18. 
    
19. With ie
    
20.    
    
21.     .Visible = False
    
22.    
    
23.     .Navigate url
    
24.         
    
25.     Do While .ReadyState <> 4
    
26.         
    
27.         DoEvents
    
28.    
    
29.     Loop
    
30.    
    
31.     .ExecWB 17, 2
    
32.    
    
33.     .ExecWB 12, 2
    
34.    
    
35.     Sheets("Data").Range("B7").Activate
    
36.    
    
37.     ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
    
38.             False, NoHTMLFormatting:=True
    
39. 
    
40. End With
    
41. 
    
42. Range("B7:G51,B252:G275").delete Shift:=xlUp
    
43.    
    
44. ie.Quit
    
45.    
    
46. End Sub

½Æ»s¥N½X

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

¤ô¤¸¯À

¦^´_ 2# oobird
ÁÂÁ¤j¤jªºÀ°¦£¡A¥Ø«e°ÝÃD¤w¸Ñ¨M¡C
¤pªº®Ö¹ïµ{¦¡¤Wªº®t§OÁÙ¦³¤@¨Ç°ÝÃD·Q½Ð±Ð¡A§Æ±æ¤£§[½ç±Ð!!!ÁÂÁÂ

1.±N³sµ²ºô§}³¡¤À§ï¦¨" & STK_NO & "¡A¤pªº¬Q¤Ñ¦³¹Á¸Õ¹L¡A«o¥u±o¨ì«Ü¤Ö³¡¤À¤S¤£§¹¾ãºô­¶¸ê°T¡A
   ®Ö¹ï¤Fµ{¦¡¤Wªº®t§O¡Aµo²{¤j¤j¦³©w¸q url As String¡A
   ½Ð°Ý¬°¦ó¼W¥[³o©w¸q§Y¥iÂ^¨ú§¹¾ã¸ê°T??¤S¬°¦ó¦b§Oªººô­¶¤£»Ý©w¸q¤]¥i¥H¨Ï¥Î??

2. Application.Goto Sheets("Sheet2").Range("B7") ³o¬q¸ò§Ú­ì¥ýªº Sheets("Sheet2").Range("B7"). Activate
    ®t§O¦b­þ¸Ì??§Ú¦³¥h¬dF1»¡©ú¤£¤Ó¤F¸Ñ¡A¥i§_¸ÑÄÀ¤@¤U¡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

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

¤ô¤¸¯À

¦^´_ 5# oobird
¯uªº«D±`·PÁ¤j¤j~
Åý§Ú²M·¡©ú¥Õ¿ù»~ÂI!!!!:)
¦³«éµM¤j®©ªº·Pı~ÁÂÁÂ