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

[µo°Ý] ¤£¦n·N«ä,¨D±Ð©ó¦U¤è°ª¤â...

[µo°Ý] ¤£¦n·N«ä,¨D±Ð©ó¦U¤è°ª¤â...

§Ú¦³¤@¬qµ{¦¡½X,¤w¸g¬Ý¤F¤@­Ó¤ë¤F,©l²×¬Ý¤£¥X¿ù»~,¥u¦n¨Ó½Ð¨DÀ°¦£,
³o¬qµ{¦¡½X¥i¦b Excel 2007¦~ª©¶¶§Q°õ¦æ Download¸ê®Æ,¦ý¬O Excel 2013µLªk°õ¦æ.
µ{¦¡¤À¬°¨â³¡¤À,

¦pªþ¥ó©Ò¥Ü,²Ä¤@³¡¤À¬O ¿é¤J¤½¥q¥N¸¹¨Ã¥B«ö¶s°õ¦æ,
²Ä¤G³¡¤À¬O Download¸ê®Æ,¨ä¹ê²Ä¤G³¡¤À¬O¿ý»s¥¨¶°
¤§«á¦A¤â§ï§¹¦¨ªº. Question.zip (23.34 KB)

¦^´_ 1# verify9k


    goodinfo ¨S¿ìªk¥Î QueryTables.Add §ì,­n¥Îxml,01¨ºÃä¤å®Ñ°Ï¶W¦h½d¨Ò,¤£¹L«ÜÃø

«ÜºG§ÔªºÀ°§A½ÄÀvba¤U¸ü«áªº¨º¬q¶Ã½X
è«??網ç??§å®¹ä¸?è»??¥è©¢?¬ç¶²ç«?
(½Ð¤Å³z¹Lºô¯¸¤º®e¤U¸ü³nÅé¬d¸ß¥»ºô¯¸)

TOP

¦^´_ 1# verify9k

GBKEE¤j,¼gªº«Ü¦hie½d¨Ò¤]¥i¥H¥Î,µ{¦¡½Xªø«×¸ò QueryTables.Add®t¤£¦h,²³æ©öÀ´

Sub Ex()

    Dim R As Integer, C As Integer
   
    With CreateObject("InternetExplorer.Application")
       .Visible = True
        .Navigate "https://goodinfo.tw/StockInfo/ShowSaleMonChart.asp?STOCK_ID=2330"
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        
        With .Document.all.tags("table")(21)
            For R = 0 To .Rows.Length - 1
                For C = 0 To .Rows(R).Cells.Length - 1
                    ActiveSheet.Cells(R + 1, C + 1) = .Rows(R).Cells(C).innerText
                Next
            Next
        End With
        .Quit
      End With
      
End Sub

TOP

¦^´_ 3# quickfixer

¦hÁÂÀ°¦£,ÁÂÁ±z!!!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD