- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¦^´_ 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 |
|