µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» VBA ¦p¦ó§PÂ_ºô¶ [ÀɮפU¸ü] µøµ¡¬O§_¤w¼u¥X
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
VBA ¦p¦ó§PÂ_ºô¶ [ÀɮפU¸ü] µøµ¡¬O§_¤w¼u¥X
msmplay
µoµu®ø®§
¥[¬°¦n¤Í
msmplay
·í«eÂ÷½u
UID
17535
©«¤l
218
¥DÃD
73
ºëµØ
0
¿n¤À
290
ª÷¿ú
290
ÂI¦W
0
§@·~¨t²Î
WIN10
³nÅ骩¥»
Office2010
¾\ŪÅv
20
©Ê§O
¤k
¦b½u®É¶¡
177 ¤p®É
µù¥U®É¶¡
2014-5-19
³Ì«áµn¿ý
2022-11-29
¤¤¾Ç¥Í
©«¤l
218
¥DÃD
73
ºëµØ
0
¿n¤À
290
ÂI¦W
0
§@·~¨t²Î
WIN10
³nÅ骩¥»
Office2010
¾\ŪÅv
20
©Ê§O
¤k
µù¥U®É¶¡
2014-5-19
³Ì«áµn¿ý
2022-11-29
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2018-12-13 14:54
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
VBA ¦p¦ó§PÂ_ºô¶ [ÀɮפU¸ü] µøµ¡¬O§_¤w¼u¥X
¥Ø«e¨Ï¥Î¥H¤U»yªk°õ¦æºô¶ÀɮפU¸ü§¡¥¿±`¡A¦ý¥Ø«e¹J¨ì°ÝÃD¬°¡G
¦]¬°[ÀɮפU¸ü]µøµ¡¼u¥Xªºµ¥«Ý®É¶¡ªøµu¤£©T©w¡A¦³®Éԫܧ֬ù¢°¢¯¬í¡A¦³®ÉÔ«onµ¥¨ì¢°~5¤ÀÄÁ¥H¤W¡C
¥Dn¬O¦]¬°¤½¥qªº¨t²Î°ÝÃD¡A¾ÉP¨C¦¸³]¦n©µ¿ð®É¶¡¡A³£·|¦]¬°¤Ó§Ö©Î¤ÓºC¦V¤UÄ~Äò°õ¦æ¡A¦Ó³y¦¨¤U¸ü³s½u²§±`¾ÉP¤U¸ü¥¢±Ñ¡C
©Ò¥H·Q½Ð°Ý¦b¥H¤U©µ¿ð®É¶¡¡]¦^À³[¦p¦ó³B²z]µøµ¡¡^¤Ï¬õ¦r¨º¬q©µ¿ð2¬íªº»yªk¡A¬O§_¦³¿ìªk§ï¬°§PÂ_ÀɮפU¸üµøµ¡¬O§_¤w¼u¥X¡A¦AÄ~Äò©¹¤U°õ¦æªº»yªk©O¡H¦³³oºØ¸Ñ¨M¿ìªk¶Ü¡H
-------------------------------------------------------------
Sub ¬d¸ß¨C¤é¼Æ¾Ú¨Ã¤U¸üÀÉ®×()
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = True
.Navigate "http://xxxxxxxxxxxx/xxx.aspx" '¬d¸ß¼Æ¾Úºô§}
Do While Busy Or .ReadyState <> 4: DoEvents: Loop
.Navigate "http://10.178.1.140:8023/ReportPage/ReportAgentToDay_28_tptv.aspx" '¬d¸ß¼Æ¾Ú·|¦Û°Ê²£¥Í©ó¦¹ºô§}¶±
Do While Busy Or .ReadyState <> 4: DoEvents: Loop
.document.forms(0).all("ctl00_btnDownload").Click 'ÂI¿ï¤U¸ü«ö¶s
End With
' ¦^À³[¦p¦ó³B²z]µøµ¡
Application.Wait Now + TimeValue("0:00:2") '©µ¿ð2¬í**
Application.SendKeys "%{A}" ' «ö[¥t¦s·sÀÉ]Áä
' ¦^À³[¥t¦s·sÀÉ]µøµ¡
Application.Wait Now + TimeValue("0:00:2") '©µ¿ð2¬í
Application.SendKeys "%{N}" ' <alt-N> ¿ï¨ú[ÀɮצWºÙ]Äæ¦ì
Application.SendKeys "{HOME}" & ThisWorkbook.Path & "\" ' ³]©w¦sÀɸô®|
Application.SendKeys "%{S}" ' <alt-S> «ö[¦sÀÉ]Áä
' ¦^À³[½T»{¥t¦s·sÀÉ]µøµ¡
Application.Wait Now + TimeValue("0:00:2") '©µ¿ð2¬í
Application.SendKeys "%{Y}" ' <alt-Y> «ö[¬O]Áä (¦pªG¦P¦WÀɤw¸g¦s¦b)
' ¦^À³[À˵ø¤U¸ü]µøµ¡
Application.Wait Now + TimeValue("0:00:5") '©µ¿ð5¬í
Application.SendKeys "%{C}" ' <alt-C> «ö[Ãö³¬]Áä
myIE.Quit
Set myIE = Nothing
End Sub-------------------------------------------------------------
¤U¸ü
(119.14 KB)
2018-12-13 14:54
¼Ó¥D¼ö©«
vba¶}±Ò¨Ã§ì¨ú«ü©w¸ê®Æ§¨¤ºÃöÁä¦rÀÉ®×&¬¡¶
VBA¨Ì±ø¥ó¦Û°Ê¿z¿ï
EXCEL²¤Æ¤½¦¡°ÝÃD
VBA¦hÄæ¦Û°Ê¦V¤U¶ñº¡
¦sÀɮɦ۰ʳƥ÷ÀɮרÃÂର.xlsx®æ¦¡
vba§PÂ_¬O§_¤wµn¤Jºô¶
VBAÂI¿ïÀx¦s®æ«ü©w½d³ò¦Û°Ê¤Ï¦â
¤ñ¹ï²Å¦XÃöÁä¦r¦ê±a¥X¹ïÀ³¸ê®Æ
COUNTIFS²Îp½Æ¼Æ±ø¥ó°ÝÃD
Â^¨úÀx¦s®æ¤é´Á°ÝÃD
¦¬ÂÃ
¤À¨É
*¦v¤k¤@ªTµL»~*
ÀR«ä¦Û¦b :
¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú̧óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ùÈ¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·