[µo°Ý] ¦sÀɮɦ۰ʳƥ÷ÀɮרÃÂର.xlsx®æ¦¡

msmplay

¤£¦n·N«ä·Q½Ð°Ý¤@¤U¡A§Ú·Q¥´¶}¤@¥÷¦³¥¨¶°ªºexcelÀÉ«á¡A¦bÀÉ®×Àx¦s®É¯à¦P¨B¦Û°Ê³Æ¥÷Àɮרì¡u³Æ¥÷¡v¸ê®Æ§¨
¥BÀɮ׮榡­nÂର.xlsx¡A¦ý§Ú´ú¸Õ¥H¤U¥N½X«á¡A¦Û°Ê³Æ¥÷Àɮרì¡u³Æ¥÷¡v¸ê®Æ§¨¦³¦¨¥\¡A¦ý¥´¶}Àɮ׮ɫo¥X²{¥H¤Uµøµ¡¦Ó¥B§¹¥þ¥´¤£¶}

¤U¸ü (13.13 KB)

2016-8-20 01:17

·Q½Ð°Ý¥H¤U¥N½X¬O§_¦³»~©Î¸Ó¦p¦ó­×¥¿©O!?«D±`·PÁÂ~~~~~~~

thisworkbook¡A¥N½X¡G
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Dim mypath As String, fname As String
fname = "¦Û°Ê³Æ¥÷" & Format(Date, "yymmdd") & ".xlsx"
mypath = ThisWorkbook.Path & "/³Æ¥÷/"
ThisWorkbook.SaveCopyAs mypath & fname
End Sub

msmplay

¦^´_ 20# zyzzyva


   «¢~~~~~~«ç»ò¿ì§Ú¦n²Â³á!!!

zyzzyva

¦^´_ 19# msmplay
À³¸Ó¥u¬O¦h¤F¤@­Ó\¡A§ï¦¨mypath = ThisWorkbook.Path & "\³Æ¥÷"¸Õ¸Õ¬Ý¡C

msmplay

¦^´_ 17# zyzzyva

z¤j~~~~µ²ªG¤½¥q¤S­n±N³Æ¥÷Àɧï©ñ©ó¹³¤§«e¼gªº¨º¼Ë¡A©ñ¦bÀɮפU¤@¼h³Æ¥÷¸ê®Æ§¨¤ºmypath = ThisWorkbook.Path & "\³Æ¥÷\"


µ²ªG§Ú¹Á¸Õ§ï¤F¤@¤U¦ý³£¤£¹ï¡A¥i¥H¦A³Â·Ð±z¶Ü~~~~
¬õ¦â¬O§Ú¦Û¤v¶Ã§ïªº

• Private Sub Workbook_BeforeClose(Cancel As Boolean)
•     Dim mypath As String, fname As String
•     fname = "\¦Û°Ê³Æ¥÷" & Format(Date, "yymmdd") & ".xlsx"
•     mypath = ThisWorkbook.Path & "\³Æ¥÷\"
•     Targetfile = mypath & fname
•     If Not Me.Saved Then
•         Msg = "Do you want to save the changes you made to "
•         Msg = Msg & Me.Name & "?"
•         Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
•         Select Case Ans
•             Case vbYes
•                 Me.Save
•             Case vbNo
•                 Me.Saved = False
•             Case vbCancel
•                 Cancel = True
•                 Exit Sub
•           End Select
•     End If
•     If Me.Saved Then
•         Application.DisplayAlerts = False 'Ãö³¬¨t²Îĵ§i°T®§
•         'ThisWorkbook.Save '­nÀx¦s¦Û¨­ÀɮסA½Ð¦Û¦æ¿ï¾Ü­n¤£­nÀx¦s
•         If Dir(Targetfile) <> "" Then
•             If GetAttr(Targetfile) And vbReadOnly Then
•                 SetAttr Targetfile, vbNormal
•             End If
•         End If
•         ThisWorkbook.SaveAs mypath & fname, FileFormat:=xlOpenXMLWorkbook
•         Application.DisplayAlerts = True '¶}±Ò¨t²Îĵ§i°T®§
•     Else
•         Me.Saved = True
•     End If
•     If Dir(Targetfile) <> "" Then
•         If GetAttr(Targetfile) Then
•             SetAttr Targetfile, vbReadOnly
•         End If
•     End If
• End Sub

msmplay

¦^´_ 17# zyzzyva

z¤j~~¯uªº¥i¥H¤F­C¡IÁÂÁ§A*^O^*

zyzzyva

¦^´_ 16# msmplay
§ï¤F¤@¤U¡AÀ³¸Ó¥i¥H¡A¦A¸Õ¸Õ¬Ý¡C

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim mypath As String, fname As String
   
3.    
   
4.     fname = "\¦Û°Ê³Æ¥÷" & Format(Date, "yymmdd") & ".xlsx"
   
5.     mypath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
   
6.     Targetfile = mypath & fname
   
7.    
   
8. 
   
9.     If Not Me.Saved Then
   
10.         Msg = "Do you want to save the changes you made to "
    
11.         Msg = Msg & Me.Name & "?"
    
12.         Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
    
13.         Select Case Ans
    
14.             Case vbYes
    
15.                 Me.Save
    
16.             Case vbNo
    
17.                 Me.Saved = False
    
18.             Case vbCancel
    
19.                 Cancel = True
    
20.                 Exit Sub
    
21.           End Select
    
22.     End If
    
23.    
    
24.     If Me.Saved Then
    
25.         Application.DisplayAlerts = False 'Ãö³¬¨t²Îĵ§i°T®§
    
26.         'ThisWorkbook.Save '­nÀx¦s¦Û¨­ÀɮסA½Ð¦Û¦æ¿ï¾Ü­n¤£­nÀx¦s
    
27.         If Dir(Targetfile) <> "" Then
    
28.             If GetAttr(Targetfile) And vbReadOnly Then
    
29.                 SetAttr Targetfile, vbNormal
    
30.             End If
    
31.         End If
    
32.         ThisWorkbook.SaveAs mypath & fname, FileFormat:=xlOpenXMLWorkbook
    
33.         Application.DisplayAlerts = True '¶}±Ò¨t²Îĵ§i°T®§
    
34.     Else
    
35.         Me.Saved = True
    
36.     End If
    
37. 
    
38.     If Dir(Targetfile) <> "" Then
    
39.         If GetAttr(Targetfile) Then
    
40.             SetAttr Targetfile, vbReadOnly
    
41.         End If
    
42.     End If
    
43.       
    
44. End Sub

½Æ»s¥N½X

msmplay

¦^´_ 15# zyzzyva

z¤j~~~~¨º½Ð°Ý¥i¥H¦sÀɧYÂл\ÂÂÀɶܡH¤]´N¬OµL½×¦p¦ó¡A­ì©lÀÉ¥u­n¦sÀÉ´N¬O­nÂл\³Æ¥÷°ßŪÀÉ¡A¥i¥HÂæ¶Ü¡H¤S¸Ó¦p¦ó­×§ï©O¡H¯uªº«D±`·PÁÂ~~~~~~

zyzzyva

¦^´_ 14# msmplay
¹ïªü¡A¬O°ßŪÄݩʪº°ÝÃD¡C¦pªG§Æ±æ¤§«áÁÙ¥i¥Hª½±µ¦sÀÉ¡A¥i¯à¦sÀÉ«e­n¥[­ÓÀˬd¡A¦pªGÄݩʤw¸g¬O°ßŪ¡A´N§ï¦^¤@¯ë(vbNormal)

msmplay

¦^´_ 13# zyzzyva

   z¤j~~~~~´ú¸Õ«á¡Aµo²{²Ä¤@¦¸¦sÀɦ¨¥\¡A¦ý²Ä¤G¦¸­n¦A¦sÀÉ´N·|¥X²{¥H¤U¿ù»~¡A¬O¤£¬O¦]¬°°ßŪÀɵLªkÂл\°ÝÃD©O??

¤U¸ü (15.52 KB)

2016-11-2 22:28

¤U¸ü (20.33 KB)

2016-11-2 22:28

zyzzyva

¦^´_ 12# msmplay
´ú¸Õ¬Ý¬Ý¡C(¤£­n©ñ¦b®Ú¥Ø¿ý¦pC:\¤U)

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim mypath As String, fname As String
   
3. 
   
4.     If Not Me.Saved Then
   
5.         Msg = "Do you want to save the changes you made to "
   
6.         Msg = Msg & Me.Name & "?"
   
7.         Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
   
8.         Select Case Ans
   
9.             Case vbYes
   
10.                 Me.Save
    
11.             Case vbNo
    
12.                 Me.Saved = False
    
13.             Case vbCancel
    
14.                 Cancel = True
    
15.                 Exit Sub
    
16.           End Select
    
17.     End If
    
18.    
    
19.     If Me.Saved Then
    
20.         Application.DisplayAlerts = False 'Ãö³¬¨t²Îĵ§i°T®§
    
21.         fname = "\¦Û°Ê³Æ¥÷" & Format(Date, "yymmdd") & ".xlsx"
    
22.         mypath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
    
23.         'ThisWorkbook.Save '­nÀx¦s¦Û¨­ÀɮסA½Ð¦Û¦æ¿ï¾Ü­n¤£­nÀx¦s
    
24.         ThisWorkbook.SaveAs mypath & fname, FileFormat:=xlOpenXMLWorkbook
    
25.         Application.DisplayAlerts = True '¶}±Ò¨t²Îĵ§i°T®§
    
26.     Else
    
27.         Me.Saved = True
    
28.     End If
    
29.    
    
30.     Targetfile = mypath & fname
    
31. 
    
32.     If GetAttr(Targetfile) Then
    
33.         SetAttr Targetfile, vbReadOnly
    
34.     End If
    
35.       
    
36. End Sub

½Æ»s¥N½X