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

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

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

¤£¦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§¹¥þ¥´¤£¶}

Â^¨ú.PNG
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
*¦v¤k¤@ªTµL»~*

¦^´_ 2# lpk187

   l¤j~~~~«D±`·PÁÂÀ°¦£¡A¤£¹L¤p©f´ú¸Õ¤§«á­ìÀÉ¥X²{¥H¤U¿ù»~°T®§¡A¥i¥H¦A½Ð±zÀ°¦£¬Ý¬Ý¶Ü~~~~
Â^¨ú.PNG
2016-8-21 00:27


Â^¨ú1.PNG
2016-8-21 00:27


Â^¨ú2.PNG
2016-8-21 00:27
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 3# zyzzyva

z¤j~~~~~±z¤S¥X¤â¬Û§U¤F!!!«D±`·PÁ³á~~~~~
¤£¹L´ú¸Õ¤§«á¡AÁöµM¤w¸g«ö¹L¦sÀÉ¡A¦ý¥u­nÃö³¬ÀÉ®×®ÉÁÙ¬O·|¦A¥X²{¤@¦¸¥H¤Uªº°T®§µøµ¡¡A½Ð°Ý¬O§_¥i¸õ¹L¦¹¹ï¸Üµøµ¡©O!?

Â^¨ú3.PNG
2016-8-21 00:36
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 10# zyzzyva


   z¤j~~~~´ú¸Õ¤w¦¨¥\¡A¯uªº¶W¯Å·PÁªºËç
*¦v¤k¤@ªTµL»~*

TOP

¥»©«³Ì«á¥Ñ msmplay ©ó 2016-11-2 20:02 ½s¿è

¦^´_ 10# zyzzyva


   z¤j~~¥i¥H½Ð±Ð¨â­Ó©µ¦ùªº°ÝÃD¶Ü?
´N¬O¦pªG¦Û°Ê³Æ¥÷¦ì¸m§Æ±æ§ï¬°Àɮתº¤W¼h¸ê®Æ§¨¡A¸Ó¦p¦ó­×§ï©O?
¨Ò¦p:ÀÉ®× ©ñ©ó C:\Users\Downloads\´ú¸Õ¡A§Æ±æ¦Û°Ê³Æ¥÷Àɮשó C:\Users\Downloads


¥t¥~¦pªG§Æ±æ¦Û°Ê³Æ¥÷ªºÀɮשT©w¦s¬°°ßŪÀÉ¡A¤S¸Ó¦p¦ó­×§ï©O?
¨Ò¦p: ´ú¸ÕÀÉ.xlsm ¦sÀɮɦ۰ʳƥ÷¬° ´ú¸ÕÀÉ.xlsx(°ßŪ)
*¦v¤k¤@ªTµL»~*

TOP

¥»©«³Ì«á¥Ñ msmplay ©ó 2016-11-2 22:33 ½s¿è

¦^´_ 13# zyzzyva

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

2.PNG
2016-11-2 22:28
1.PNG
2016-11-2 22:28
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 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ÁÂ~~~~~~
*¦v¤k¤@ªTµL»~*

TOP

¥»©«³Ì«á¥Ñ msmplay ©ó 2016-11-3 12:45 ½s¿è

¦^´_ 17# zyzzyva

z¤j~~¯uªº¥i¥H¤F­C¡IÁÂÁ§A*^O^*
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 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
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 20# zyzzyva


   «¢~~~~~~«ç»ò¿ì§Ú¦n²Â³á!!!
*¦v¤k¤@ªTµL»~*

TOP

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