½Ð±Ð¥X²{ "¥²¶·¬O±`¼Æ¹Bºâ¦¡" ªº½sĶ¿ù»~¸Ó¦p¦ó¸Ñ¨M?
- ©«¤l
- 51
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp sp3
- ³nÅ骩¥»
- excel 2003 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2023-10-31
|
½Ð±Ð¥X²{ "¥²¶·¬O±`¼Æ¹Bºâ¦¡" ªº½sĶ¿ù»~¸Ó¦p¦ó¸Ñ¨M?
½Ð±Ð
¦b°õ¦æ¤U±ªºµ{¦¡½X®É¡A¦]¬°»Ýn¨Ï¥Î¦Û³] QRY_TIME ¡BSTOCK_ID ¨â¶µ ¡A¤@¨Ï¥Î [&] ³sµ²¦r¦ê ¡A´N·|¥X²{"¥²¶·¬O±`¼Æ¹Bºâ¦¡" ªº½sĶ¿ù»~¸Ó¦p¦ó¸Ñ¨M?
Const url As String = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo
µ{¦¡½X¦p¤U :
Sub text()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayStatusBar = True
Sheets("sheet1").Select
YY = 2009
stockNo = 1234
Cells.Clear
Const url As String = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo
Set ie = CreateObject("internetexplorer.application")
.Visible = False
.Navigate url
Do While .ReadyState <> 4 'µ¥«Ýºô¶¶}±Ò
DoEvents
Loop
Application.StatusBar = "¸ê®Æ½Æ»s¤¤½ÐµyÔ...."
.ExecWB 17, 2
.ExecWB 12, 2
Sheets("temp").Cells.Select
text.rar (5.67 KB)
Range("A1").Activate
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With
Application.StatusBar = False
ie.Quit
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub |
|
|
|
|
|
|
- ©«¤l
- 51
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp sp3
- ³nÅ骩¥»
- excel 2003 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2023-10-31
|
ÁÂÁÂã´£³¡ªLª©¥D¡A¤£¹L«á±¤S¥X¤FÓ°ÝÃD[attach]27013[/attach]
Set ie = CreateObject("internetexplorer.application")
.Visible = False
.Navigate url
Do While .ReadyState <> 4
¦b .Visible = False ³B¡A¤S¥X²{ "¤£¥¿½Tªº¤Þ¥Î"°T®§¡A¸Ó¦p¦ó¸Ñ¡AÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 51
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp sp3
- ³nÅ骩¥»
- excel 2003 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2023-10-31
|
ÁÂÁÂã´£³¡ªLª©¥D¡A¤£¹L«á±¤S¥X¤FÓ°ÝÃD¦p¤U
[attach]27011[/attach] |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-23
|
Const url As String = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo
§ï¦¨:
url$ = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo |
|
|
|
|
|
|