[µo°Ý] ¤£Àx¦sª½±µÃö³¬

yuras

vb ·s¤â¤W¸ô¡A­n½Ð±Ð¦U¦ì°ª¤â:P
¤U­±¬O§Úªºµ{¦¡½X ¨º­n¦p¦ó °õ¦æApplication.Quit«á ¤£¦sÀɪ½±µÃö³¬ÀÉ®×
¸Õ«Ü¤[³£¤£¦¨¥\ ÁÂÁ !!

Sub getnewbook()

Application.DisplayAlerts = False

With Sheets("sheet2")

   .Copy

   With ActiveWorkbook

    ActiveWorkbook.SaveAs Filename:="D:\¦¨¥»¸Õºâªí" & Format(Date, "MMDD") & ".xls"
    ActiveWorkbook.Close True
  End With

Application.DisplayAlerts = True
Application.Quit
End With


End Sub

Private Sub Workbook_Open()
Call «ö¶s6_Click
End Sub

kimbal

¸Õ¸Õ§ï¦¨³o¼Ë?
Application.DisplayAlerts = True
Application.Quit
->
Application.DisplayAlerts = FALSE  '©Î§R¥h,¦]¬°¤W­±¤w¦³
Application.Quit

yuras

3Q 3Q ÁÂÁÂ

smooth131

workbooks("book1.xls").close savechanges := false

¬O³o­Ó·N«ä¶Ü¡H

buysellman88

½Ð°Ý¬°Ô£µLªk~«ü¥O¿ù»~ ¬O§_¯à´£¨Ñ¸û§¹¾ãªºCODE