yangjie

¦^´_ 5# GBKEE
½Ð±ÐGBKEE
§Ú°Ñ¦Ò±zªº
Sub Backup()
    Dim FileDate As String
    Set wb = ThisWorkbook
    wb.Activate
    If MsgBox("­n³Æ¥÷¸ê®Æ¶Ü?", vbYesNo + vbQuestion, "°T®§µøµ¡") = vbYes Then
         Application.DisplayAlerts = False
        'With ActiveWorkbook.Sheets(Array(1, 3)).Copy     ±N¦¹¦C§ï¦¨¬õ¦â¤@¦C´N¤£³q嘞
        With ActiveWorkbook.copy
            FileDate = Format(Date, "yyyymmdd")
            ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\¸ê®Æ®w\" & FileDate & ".xls"
            Application.EnableEvents = False
            ActiveWorkbook.Close True
            Application.EnableEvents = True
        End With
    Else
        MsgBox "¦A¨£ !", vbOKOnly + vbInformation, "°T®§µøµ¡"
    End If
    Application.DisplayAlerts = True
End Sub
À³¦p¦ó  §@
¦bwb¤¤¥Îvba
¨Ï­ìwb  copy¦¨  wb1      µM«á wb1.close  (³o¤@¬q§Ú¤£·|¡Atry«Ü¤[嘞)
¦^wb ¦A°µ²Ä¤G

yangjie

¦^´_ 7# yangjie
·PÁÂGBKEE  
§Ú°Ñ¦Ò³o¦¸»P«e13.14­¶ªºÀɮ׽ƻs»Psheets¥t¦s·sÀÉ
§Úªº°ÝÃD¸Ñ¨M¤F
Sub Backup()
    Dim FileName1 As String
    Set wb = ThisWorkbook
    wb.Activate
    Dim str1 As String
    Dim ar() As String
    n = Sheets("°ò¥»¸ê®Æ").Cells(1, 60).End(xlToLeft).Column - 5
    If n <= 0 Then Exit Sub
    ReDim ar(n)
    For i = 1 To n
        ar(i - 1) = Sheets("°ò¥»¸ê®Æ").Cells(1, i + 5)
    Next
    str1 = Sheets("°ò¥»¸ê®Æ").Cells(1, 1) & Sheets("°ò¥»¸ê®Æ").Cells(1, 2)
    If MsgBox("­n³Æ¥÷¸ê®Æ¶Ü?", vbYesNo + vbQuestion, "°T®§µøµ¡") = vbYes Then
        Application.DisplayAlerts = False
        For i = 1 To n
            FileName1 = ThisWorkbook.Path & "\" & str1 & "¾Ç´Á(" & ar(i - 1) & ")¥X¯Ê¶Ôº[¼úÃgµn¿ý.xls"
            With ActiveWorkbook
                ActiveWorkbook.SaveCopyAs FileName:=FileName1    'º}«G
            End With
        Next
    Else
        MsgBox "¦A¨£ !", vbOKOnly + vbInformation, "°T®§µøµ¡"
    End If
    Application.DisplayAlerts = True
  End Sub