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

[µo°Ý] µ{¦¡½X¦b2003¥i°õ¦æ..¦b2010¥X²{¿ù»~

[µo°Ý] µ{¦¡½X¦b2003¥i°õ¦æ..¦b2010¥X²{¿ù»~

°Q½×°Ïªº¤å³¹ : ÃÒ¥æ©Ò¥þ³¡¤W¥«ªÑ²¼¥æ©ö©ú²Ó¤U¸ü
«ö·Ó 7# GBKEE ¤jªºµ{¦¡½X¥i¥H¦bEXCEL 2003°õ¦æ
¦ý¦bEXCEL  2010¦³¥X²{¿ù»~ ( °õ¦æ¶¥¬q¿ù»~91 : ¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅÜ¼Æ )
«öF8³v¨B°õ¦æ®Éµo²{¬O¥d¦b²Ä149¦æ ( ³øªí­¶¼Æ = element.Item(0).innertext )
·Q½Ð°Ý¦U¦ì°ª¤â¸Ó¦p¦ó­×§ï
ÁÂÁÂ

¸Éªþ¤WGBKEE¤jªºµ{¦¡½X..

Private Function ³øªí­¶¼Æ(Sstock_N0 As String)
    Dim element As Object
    On Error GoTo xlerr:
xlAgain:
    Set element = IE.Document.getElementsByName("txtTASKNO")
    element.Item(0).Value = Sstock_N0
    Set element = IE.Document.getElementsByName("btnOK")
    element.Item(0).Click
    With IE
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
    End With
    Set element = IE.Document.getElementsByName("sp_ListCount")
    ³øªí­¶¼Æ = element.Item(0).innertext
    Exit Function
xlerr:        '³B¸Ìºô­¶¤¤Â_
    IE.Quit
    ºô­¶
    Err.Clear
    GoTo xlAgain
End Function

TOP

½Ð°Ý¬O§_°ÝÃD´y­z¤£°÷²M·¡
¤£¾å±o¬O§_»Pwindows 8 §@·~¨t²Î¦³Ãö
©Î¬O§Ú­Ó¤Hªº¹q¸£ªº°ÝÃD
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD