手机

sdfsdf sddsf fggg fdggg dfg 

Back up a file
    Dim newFileName, oldFileName, tempTabName, tempPath As String    oldFileName = ActiveWorkbook.Name    newFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_emailVersion_" & Sheets("MENU").Range("A1").Text & ".xls"    tempPath = ActiveWorkbook.Path        'add new workbook and give a file name that will save in the same directory    Workbooks.Add    ActiveWorkbook.SaveAs Filename:= _        tempPath & "\" & newFileName, FileFormat _        :=xlNormal, Password:="", WriteResPassword:="", _        ReadOnlyRecommended:=False, CreateBackup:=False        Application.CutCopyMode = True        Windows(oldFileName).Activate    temptapname = Sheets("SUMMARY").Name    Sheets("SUMMARY").Cells.Copy    Windows(newFileName).Activate    Worksheets.Add Count:=1, After:=Sheets(Sheets.Count)    Selection.PasteSpecial Paste:=xlPasteValues    Selection.PasteSpecial Paste:=xlPasteFormats    Sheets(Sheets.Count).Name = temptapname      ' .................................        Application.CutCopyMode = False    ActiveWorkbook.Save    ActiveWorkbook.CloseEnd Sub


.msgcontent .wsharing ul li { text-indent: 0; }



分享

Facebook
Plurk
YAHOO!