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

[½Ð¯q] ¨Ï¥ÎEXCEL³sµ²IE§ì¨úºô­¶¸ê®Æªº°ÝÃD

¦^´_ 1# sasho

³]©w¤Þ¥Î¶µ¥Øªº¥Øªº,¦b©óÅýEXCEL VBA »{ÃѨä¥LÀ³¥Îµ{¦¡ª«¥ó
©Ò¥H·í§A¤Ä¿ï¸Ó¤Þ¥Î¶µ¥Ø«á
¦bµ{¦¡°Ï¬q«Å§iÅܼƪº«¬ºA§¹¦¨«á
«K¥i¦³µ{¦¡½XÄݩʦ۰ʧ¹¦¨ªº²M³æ¨Ñ¿ï¨ú
¦p:
­Y¥¼³]©w¤Þ¥Î¶µ¥ØMICROSOFT HTML object libary®É
°õ¦æ®É
Dim MyIE As InternetExplorer³o¦æ´N·|³ø¿ù
¦]¬°³o®ÉEXCEL¨Ã¤£»{ÃÑInternetExplorer
³]©w¤Þ¥Î¶µ¥ØMICROSOFT HTML object libary«á¤~¯à¥¿½T«Å§i¦¹ª«¥ó
¨º»ò¦p¦óª¾¹D¸Óª«¥óÄݩʶµ¥Ø©O?
·í¿é¤JMyIE.®É´N¯à¥X²{¸Óª«¥ó©³¤U¥i¯à¨Ï¥ÎªºÄݩʲM³æ¤F
´N¸ò­ì¥»EXCELª«¥ó·í§Ú­Ì¥H¥¿½T¦æ¦¡¿é¤Jª«¥óµM«á´N·|¥X²{²M³æ¿ï¾Ü¤F
¦Ü©ó²Ä2ÂI,³o´N­n¹ïHTML»yªk¨Ó»{ÃѤF
TABLE¦bºô­¶¤¤¦ü¥G¬O¨S¦³¤@­ÓID¨Ñ§Ú­Ì¨Ó©ú½T«ü©w¨ì§Ú­Ì»Ý­nªºªí®æ(³o§Ú¤]¤£½T©w)
¦ý¬O¼gµ{¦¡¦³¤@­Ó¦@³qªº­ì«h´N¬O
±qÅܼƪº¸ê®Æ¤º®e¨Ó´M§ä³W«h
¦A¨Ì¾Ú³o¨Ç³W«h¹F¨ì¤ÀÃþ
¥H§Ú¼g¹Lªº¸gÅç
¦]¬°ªí®æ³q±`¦³¼ÐÃD¦C
¨º´N¥H³o¨Ç¤å¦r¨Ó°µ§PÂ_
¬Ý¬O§_¤w¸g¦b³oªí®æ¤W
¨Ò¦p:
¦³¤@ªí®æ
¤é´Á        ¼Æ¶q        ª÷ÃB
¬°¼ÐÃD¤å¦r
¨º»ò³oTABLEªºinnertextÄÝ©Ê­È´N¥i¥H¥Î¬O§_¬°Like "¤é´Á        ¼Æ¶q        ª÷ÃB*"
°µ¬°§PÂ_¨Ì¾Ú
Dim MyIE As InternetExplorer
with MyIE
      Set MyDoc = .Document
      With MyDoc
       For i = 0 To MyDoc.all.Length - 1
      If .all(i).tagName = "TABLE" Then
      MsgBox .all(i).innerText
          If .all(i).innerText Like "¤é´Á    ¼Æ¶q    ª÷ÃB*" Then
¥HÃþ¦ü¦¹ªk§Y¥i§PÂ_¥XTABLEªº¦ì¸m
¥H¤W¶È¥H­Ó¤H¹ïIE¾Þ§@ªº¤ß±o´£¥X
½Ð¼ô±x»yªkªº«e½ú¤£§[«ü¥¿
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD