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

[µo°Ý] VBA ÂI¿ï div class «ö¶s

[µo°Ý] VBA ÂI¿ï div class «ö¶s

½Ð°Ý¦p¦ó¥Hvbaµn¤Jºô­¶«á¡AÂI¿ïºô­¶³sµ²«ö¶s(¦@¨â¼h)¡A¦ý¦]ºô­¶¬°¤½¥q¤ººôµLªk´£¨Ñ¡AÁٽкô¤jÀ°¦£¬Ý¬Ý¬O§_¦³¸Ñ¡AÁÂÁ¡C
(¥Ø«eµn¤Jºô­¶¤w¾Ç·|¡A¦ýÂI¿ï«ö¶s´ú¸Õ¤@ª½¥¢±Ñ)
(¤½¥q¹q¸£win7¡BIE8(­­¨î¤É¯Å))


Dim p As Object
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = True
.Navigate "¤½¥qºô§}"


Do While Busy Or .ReadyState <> 4: DoEvents: Loop


Set p = .Document.all.tags("INPUT")
.Document.all.txtUsername.innerText = "xxxxxx" 'µn¤J±b¸¹
.Document.all.txtPassword.innerText = "xxxxxx" 'µn¤J±K½X
.Document.all.ImageButton2.Click 'µn¤J


Do While Busy Or .ReadyState <> 4: DoEvents: Loop

ÂI¿ï²Ä¤@¼h«ö¶s
ÂI¿ï²Ä¤G¼h«ö¶s

End With


²Ä¤@¼h«ö¶s
<div class="panel-header accordion-header" style="width: 163px; height: 15px;" jQuery1528952991125="290" sizcache="3" sizset="0">
<div class="panel-title panel-with-icon">
¤å¦r - ³B²z¤¤¤ß

²Ä¤@¼h«ö¶s.PNG



²Ä¤G¼h«ö¶s
<a class="easyui-accordion-a" href="#" rel="../InboundTrace/CC_inboundRecordListNew.aspx" ref="439" jQuery1528952991125="201">
<span class="nav">
¤å¦r - ¨Ó¹q¤º®e°O¿ý(·s)

²Ä¤G¼h«ö¶s.PNG


*¦v¤k¤@ªTµL»~*

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD