GBKEE

¦^´_ 79# smart3135

1. For Each E In Rng
   
2.         With IE
   
3.             Do While .Busy Or .ReadyState <> 4:    Loop
   
4.             .Document.getelementbyid("STK_NO").Value = E
   
5.             .Document.getelementSbyNAME("login_btn")(0).Click '«ö¤U¬d¸ß
   
6.             Do While .Busy Or .ReadyState <> 4:    Loop
   
7.             .Refresh  'ºô­¶ »Ý­«·s¾ã²z ,¤~¦³¸ê®Æ¤U¸ü
   
8.             Do While .Busy Or .ReadyState <> 4:    Loop
   
9.             Set a = .Document.getelementsbytagname("TABLE")
   
10.             Do While a.Length <> 14:   Loop    'ª½¨ì a¤¸¯Àªº¤l¶µ¥Ø¦³14­Ó
    
11.             xFile = xPath & "\" & E & "\HPY.txt"

½Æ»s¥N½X

GBKEE

¦^´_ 81# smart3135

¦bIE8¤U¥i°õ¦æ,½Ð¬Ý¬Ý§AªºIE [ºô»Úºô¸ô¿ï¶µ]»Ý­×§ï¤°»ò!!

GBKEE

¤U¸ü (186.64 KB)

2017-6-15 15:14

1. For Each X In Rng1
   
2.             With IE
   
3.                 .Document.getElementsByTagName("select")("Yy").Value = X
   
4.                 'yy -> ¦~«×,mm -> ¤ë¥÷, dd -> ¤é´Á
   
5.                 .Document.getelementsbyname("stockNo")(0).Value = E
   
6.                 'ªÑ²¼¥N½X  stockNo  '**¤j¤p¼g­n¤@­P**
   
7.               '  .Document.getelementsbyname("query-button")(0).Click  '«ö¤U¬d¸ß
   
8.                 For Each Ea In .Document.body.all.tags("a")
   
9.                     If Ea.classname = "button search" Then
   
10.                         Ea.Click: Exit For  '«ö¤U¬d¸ß
    
11.                     End If
    
12.                 Next
    
13.                 Do While .Busy Or .readyState <> 4:    Loop
    
14.                 On Error Resume Next

½Æ»s¥N½X

¦^´_ 84# smart3135

GBKEE

¦^´_ 86# smart3135

ÃÒ¥æ©Òºô­¶¦³¬y¶qºÞ¨î.ªþÀɦ³­«·s­×§ï¤@¨Ç¦a¤è.

¤W¥«¤ë¦¨¥æ¸ê°T.rar (52.87 KB)

¤U¸ü¦¸¼Æ: 8

2017-6-19 16:42