½Ð°Ý¦U¦ì¥ý¶i§Úªºµ{¦¡¦³¿ù¶Ü?¬°¦ó·|¤@ª½¥X²{¿ù»~
- ©«¤l
- 49
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 97
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-24
- ³Ì«áµn¿ý
- 2023-12-24
|
½Ð°Ý¦U¦ì¥ý¶i§Úªºµ{¦¡¦³¿ù¶Ü?¬°¦ó·|¤@ª½¥X²{¿ù»~
¥»©«³Ì«á¥Ñ dafa ©ó 2013-7-11 01:31 ½s¿è
- Private Sub Workbook_AfterSave(ByVal Success As Boolean)
- Application.DisplayAlerts = False
- If ¤u§@ªí1.[a2] = 1 Then
- ¤u§@ªí1.[a2] = 2
- ChDir "\\dumpling\supplychain$\01_Logistics\01_Shop Floor\²Ä¤TÃþ¤@¯ëÃþ(«O¦s´Á¤G¦~)"
- ActiveWorkbook.SaveAs Filename:="\\dumpling\supplychain$\01_Logistics\01_Shop Floor\²Ä¤TÃþ¤@¯ëÃþ(«O¦s´Á¤G¦~)\°ï°ª¾÷¥æ±µªí.xls", _
- FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
- ReadOnlyRecommended:=False, CreateBackup:=True
- End If
- Application.DisplayAlerts = True
- ¤u§@ªí1.[a2] = ""
- End
- End Sub
- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
- Application.DisplayAlerts = False
- ChDir "\\csgh212rg07\·s¼W¸ê®Æ§¨"
- un = Application.UserName
- sfn = Year(Date) & Month(Date) & Day(Date) & un & Hour(Now) & Minute(Now) & Second(Now)
- If ¤u§@ªí1.[a2] = "" Then
- ¤u§@ªí1.[a2] = 1
- ActiveWorkbook.SaveAs Filename:="\\csgh212rg07\·s¼W¸ê®Æ§¨\" & sfn & ".xls", _
- FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
- ReadOnlyRecommended:=False, CreateBackup:=True
- End If
- End Sub
½Æ»s¥N½X
¬°¤°»ò¨C¦¸°õ¦æ³£·|¥X²{¤U±ªº¿ù»~(¦ýÁÙ¬O¦³¦sÀÉ)
|
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# dafa
§A¬°¦ó¤£¥Î
Private Sub Workbook_BeforeClose(Cancel As Boolean)
....
End Sub
¨Ó³B²z Excel ªºÃö³¬«eªº¤@¤Á§@·~¡H |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 97
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-24
- ³Ì«áµn¿ý
- 2023-12-24
|
·PÁÂC¤jªº¦^ÂÐ
±z¯u¬O¤@»yÅå¿ô¹Ú¤¤¤Hªü~ |
|
|
|
|
|
|