- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-20 11:56 ½s¿è
¦^´_ 4# vinejason - Sub Backup()
- Dim FileDate As String
- If MsgBox("n³Æ¥÷¸ê®Æ¶Ü?", vbYesNo + vbQuestion, "°T®§µøµ¡") = vbYes Then
- Application.StatusBar = "Àɮ׳ƥ÷¤¤,·q½ÐµyÔ!"
- Application.DisplayAlerts = False
- With ActiveWorkbook.Sheets(Array(3, 5, 6, 10, 11, 12, 14, 15)).Copy
- 'With ActiveWorkbook ¬°§@¥Î¬Oµøµ¡¤¤ªº¬¡¶Ã¯
- '¥i§ï¦¨ With ThisWorkbook ¬°µ{¦¡½X©Ò¦bªº¬¡¶Ã¯
- '¥i§ï¦¨ With Workbooks("TEST.XLS")¬°«ü©wªº¬¡¶Ã¯
- FileDate = Format(Date, "yyyymmdd") ' ¦~¤ë¤é®æ¦¡¦@8ӼƦr(³Æ¥÷)
-
- ActiveWorkbook.SaveAs Filename:="\\Web_server\pcmac¥æ´«°Ï\µo¦æ\³Æ¥÷\" & FileDate & ".xls", FileFormat:=xlXMLSpreadsheet
- '**********************************
- '2003ª©:¬¡¶Ã¯ªºÀɮ׮榡¤Î (©Î) Ãþ«¬¡C FileFormat:=xlXMLSpreadsheet «ü©w¬° Sheet¸Ì¨S¦³µ{¦¡½XªºÃþ«¬
- '********************************
-
- ActiveWorkbook.Close
- '³o¸ÌªºActiveWorkbook ¤£¥i§ï
- '.Copy«áªº¬¡¶Ã¯¬°ActiveWorkbook
- End With
- Else
- MsgBox "¦A¨£ !", vbOKOnly + vbInformation, "°T®§µøµ¡"
- End If
- Application.DisplayAlerts = True
- End Sub
½Æ»s¥N½X |
|