- ©«¤l
- 142
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 119
- §@·~¨t²Î
- win10 64¦ì¤¸
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW °ª¶¯¥«
- µù¥U®É¶¡
- 2015-7-18
- ³Ì«áµn¿ý
- 2024-5-4
|
¦^´_ 2# stillfish00
Sub SPGCL2LP()
Sheets("SPGCL2LP").Select
Dim E As Object, myItems As Object, myitem
With CreateObject("InternetExplorer.Application")
.Visible = False
.Navigate "http://finance.yahoo.com/quote/%5ESPGCL2LP"
Application.Wait Now + #12:00:03 AM#
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
With ActiveSheet
.Cells.Clear
.[A1].Select
.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
End With
.Quit 'Ãö³¬ºô¶
End With
[A52].Select
End Sub |
|