- ©«¤l
- 4
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 6
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-4-29
- ³Ì«áµn¿ý
- 2016-6-6
|
¥»©«³Ì«á¥Ñ 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ªº®ÉÔ¥un¨ú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 |
|