- ©«¤l
- 59
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 108
- ÂI¦W
- 0
- §@·~¨t²Î
- winXp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «ÌªF
- µù¥U®É¶¡
- 2011-12-16
- ³Ì«áµn¿ý
- 2018-8-10
|
¥»©«³Ì«á¥Ñ pitera88 ©ó 2012-1-4 16:34 ½s¿è
¦^´_ 7# GBKEE
Const ThePath = "C:\123\"
Private Sub WORKBOOK_OPEN()
¤¤¶¡¬O§_¥i¥H¥[¤J¡AÀË´ú¹q¸£¤¤¬O§_¦³¡uc:\123¡v¸ê®Æ§¨
SavePath = Dir(ThePath, 16)
If SavePath = "" Then ->³o¬O¨S¦³¸ê®Æ§¨ªº¸Ü¡A¶¶§Ç´Nn§ï¤F
¦pªG¨S¦³ ¡õ µ²§ô³oÓexcelÀÉ (¸õ¹L¬O§_¦sÀÉ¡Aª½±µ¸õ¶})
Newbook.Close True, SavePath ¡÷¤]´N¬Osavepath ¬OÓÅܼơA§Ú¤§«e´Nn³]©wÅo¡A¥i¬O§Ú¤§«e¥Î¤F¡A¨º¥i¥H«ü©w¤@ÓÅܼƮ»¨ì¥Ø«e¶}±Òªº³oÓÀɮתº§¹¾ã¸ô®|¶Ü??) ÁÙ¬O¥i¥H¤£µ¹³oӰѼÆ?
else
¦³ªº¸Ü ¡õ
MsgBox "Åwªï¨Ï¥Î¥»¥\¯à"
End Sub
¤U¥h¶]¡Aµ²ªG¡u°õ¦æ¶¥¬q¿ù»~ 424 ¡v ¦¹³B»Ýnª«¥ó ¨þ¨þ!! |
|