ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±Ð¥X²{ "¥²¶·¬O±`¼Æ¹Bºâ¦¡" ªº½sĶ¿ù»~¸Ó¦p¦ó¸Ñ¨M?

½Ð±Ð¥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

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

TOP

ÁÂÁ­㴣³¡ªLª©¥D¡A¤£¹L«á­±¤S¥X¤F­Ó°ÝÃD¦p¤U

[attach]27011[/attach]

TOP

ÁÂÁ­㴣³¡ª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ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD