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

[µo°Ý] EXCEL VBA ¶×¤JPCHOMEºô­¶¸ê®Æ

[µo°Ý] EXCEL VBA ¶×¤JPCHOMEºô­¶¸ê®Æ

¦U¦ì«e½ú §A­Ì¦n

§Ú·Q¨Ï¥Î¥~³¡ºô­¶¸ê®Æ¶×¤J "http://pchome.megatime.com.tw/stock/sid9907.html" ¶×¨ìEXCEL ¤¤ ¦ý¬OVBA¨S¦³¤ÏÀ³

¦³«e½ú¥i¥HÀ°¦£¸Ñ¨M³o­Ó°ÝÃD¶Ü

ScreenShot00102.png (36.26 KB)

ScreenShot00102.png

¬¡­¶Ã¯1.rar (16.71 KB)

¦^´_ 1# s13983037
  1. Option Explicit
  2. Sub Ex_Pchome()
  3.     Dim E As Object, i As Integer, ii As Integer, k As Integer
  4.     Dim xadte As Date
  5.     xadte = DateAdd("yyyy", -1, Date)  '¤é´Á(°_)¡G
  6.     With CreateObject("InternetExplorer.Application")
  7.         .Visible = True
  8.         .Navigate "http://pchome.megatime.com.tw/stock/sid9907.html"
  9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  10.         Set E = .document.getElementsByTAGName("TABLE")(4)
  11.         ActiveSheet.UsedRange.Clear
  12.         For i = 0 To E.Rows.Length - 1
  13.             k = k + 1
  14.             For ii = 0 To E.Rows(i).Cells.Length - 1
  15.                 Cells(k, ii + 1) = E.Rows(i).Cells(ii).INNERTEXT
  16.             Next
  17.         Next
  18.         .Quit        'Ãö³¬ºô­¶
  19.     End With
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

GBKEE«e½ú±z¦n ¤p§Ìªì¾Ç VBA °w¹ï¥H¤Uµ{¦¡½X·Q¥[¥H¤F¸Ñ
      xadte = DateAdd("yyyy", -1, Date)  '¤é´Á(°_)¡G
      '°õ¦æ¦¹¦æªº¥Øªº¬O??
    With CreateObject("InternetExplorer.Application")                                          
      '¦¹¦æ¬O§_¶}±ÒInternetExplorer APP ??
        .Visible = True                                                                                                                          
        .Navigate "http://pchome.megatime.com.tw/stock/sid9907.html"           
      '¦¹¦æ¬O±NInternetExplorer¿é¤Jºô§}¶Ü??
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop                                 
        '¦¹¦æ·í¤¤ªº .Busy Or .ReadyState <> 4: DoEvents: Loop¬Æ»ò·N«ä??
        Set E = .document.getElementsByTAGName("TABLE")(4)                           
   '¦¹¦æ¬O©w¸q¬Æ»ò·N«ä
    End With

TOP

¦^´_ 3# s13983037
VBA µ{¦¡½X¬Ý¤£À´ ¥i¦h¬Ý VBA ªº»¡©ú
  1. DateAdd ¨ç¼Æ ¶Ç¦^­È¬°¤@ Variant (Date)¡A¤º®e¬°¬Y­Ó°ò·Ç¤é´Á¥[¤W¯S©w®É¶¡¶¡¹j³æ¦ì«áªº¤é´Á¡C
½Æ»s¥N½X
  1. CreateObject ¨ç¼Æ «Ø¥ß¨Ã¶Ç¦^¹ï©ó ActiveX ª«¥óªº¤Þ¥Î
½Æ»s¥N½X
  1. Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  2. 'Do While °õ¦æ±ø¥ó ¦¨¥ß¤@ª½°õ¦æ°j°é,¤£¦¨¥ßÂ÷¶}°j°é  
½Æ»s¥N½X
  1. Set E = .document.getElementsByTAGName("TABLE")(4)
½Æ»s¥N½X
Åܼƫü©w¬°ª«¥ó¶·¥[¤WSet
ºô­¶¤å¥óªº¤¸¯ÀTAGName¬°"TABLE"ª«¥ó¶°¦X²Ä5­Ó¤lª«¥ó(0,1,2,3,4)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

½Ð°Ý¤@¤U GBKEEª©¥D¤j
§Ú¬O¤@­Ó·s¤â, ­è¶}©l±µÄ²VBA, ·Q½Ð±Ð¤@¤UÃö©óparse ºô­¶ªº¤@¨Ç¤èªk
¹³¬O±z¼gªº ¤U­±¤è¦¡, ¬O¤£¬O¦³°Ñ¦Òºô­¶¥i¥HÅý§Ú¾Ç²ß¤@¤U©O?
Set E = .document.getElementsByTAGName("TABLE")(4)
§Ú¬O§Æ±æ¦Û¤v¥i¥H§¹¾ãªºparseÃþ¦ü¥xÅK©Î¬OGmailªººô­¶
¥Ø«e¤w¸g¦Û¾Ç¨ì, ¥i¥H¥ÎVBAÀ°§Ú¦Û°Êµn¤JGmail
¦ý¬Oµn¤J«áªº¬ÛÃö°Ñ¼Æ«o¬O¤£¼ô

¥ý¦hÁ¤F!!!

TOP

¦^´_ 5# kof0018
¥i°Ñ¦Ò³o¸Ì,§ä¥Xºô­¶¤Wªº¤¸¯À
http://forum.twbts.com/thread-13669-1-1.html
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD