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

[µo°Ý] VBA»yªk°ÝÃD---¨D¸Ñ

[µo°Ý] VBA»yªk°ÝÃD---¨D¸Ñ

¥»©«³Ì«á¥Ñ jiing0819 ©ó 2015-8-6 15:52 ½s¿è

¤j¤j±z¦n¡A¨Æ±¡¬O³o¼Ëªº¡A¦]»Ý­n¦b¸ê®Æ®w·s¼W¦C¦L¼ÐÅÒ»yªk¡A¥Ø«e·s¼W¤F¦C¦L²Ä¤T±i(¬õ¦â¦rÅé)ªº»yªk
    If IPNEET = "TAI2009" Then
        Open "s:\¸ê®Æ®w\±ø½X\½Æ±²\tomm.txt" For Output As #1
        Print #1, ±ø½X
        Close #1
        Open "s:\¸ê®Æ®w\±ø½X\½Æ±²\tomm.txt" For Append As #1
        Print #1, ±ø½X & "-2"
        Close #1
        Open "s:\¸ê®Æ®w\±ø½X\½Æ±²\tomm.txt" For Append As #1
        Print #1, ±ø½X & "-3"
        Close #1

        Shell "s:\¸ê®Æ®w\±ø½X\½Æ±²\TranE.exE"
    End If
¥Ø«e¹J¨ìªº°ÝÃD¬O ³æ¸¹¬°G50176N31D01R1¡A¦pªG§Ú¦A³sÄò¦C¦L¦b²Ä¤T±iªº®É­Ô¥u­n¨ú50176N31D01¡AÀY½X¸ò«á¨â½X³£­n¥h±¼¡A½Ð°Ý§Ú³o¼Ë¤U¬O§_¬°¥¿½T?
·P¿E¤£ºÉ
If Mid(Cells(¥[¤uRC_RecordRow, ¥[¤uRC_¤l±²±²¸¹), 2, 12) = "5" Then

¦^´_ 2# GBKEE


    ·PÁ¤j¤jªºµL¨p±Ð¾É

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD