Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saving Individual Worksheets
I am using this code to save my workbooks:
'-------------------------------------------------------------------------- Sub SaveAsTodaysDate() Dim sFileName As String, sPath As String Application.ScreenUpdating = False sPath = "C:\LOGS\" 'change path here sFileName = "NW Failures " + Format(Now(), "dd.mm.yyyy") & ".xls" ActiveWorkbook.SaveAs (sPath & sFileName) Application.ScreenUpdating = True MsgBox ("File - " & sFileName & " - Saved Successfully"), vbOKOnly End Sub '-------------------------------------------------------------------------- This save the workbook with the date of creation. What i want to do is save an individual worksheet with the sam filename formatting as above. The worksheets i have are called "PASS" and "FAIL". Can anyine suggest a way to do this please. TI -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saving Individual Worksheets
Hi,
i have used this code, but it's not working for me at the mo,?-why? it has before. The idea is simple, i copy the page to a new workbook and sane it with a file name form the input box. I am doing some work to day which might improve on this, if what i do is any good i'll post back. so this might give you a few ideas? Sub CopyAndSaveSheet() ' ' CopyAndSaveSheet Macro ' wrote for luck by ross ' ' Keyboard Shortcut: Ctrl+Shift+T ' On Error GoTo oh****e A = "D:\Documents and Settings\702292505\My Documents\" B = InputBox("Whats the name then pal?? eh. yeah you gimp", "SheetSaver .::by::. RamCo Ltd.") ActiveSheet.Copy sName = ActiveSheet.Name Workbooks.Add Sheets(1).Name = sName Sheets(sName).Activate Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveWorkbook.SaveAs FileName:=A & B, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=True ActiveWorkbook.Close Exit Sub oh****e: Exit Sub End Sub good luck ross |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Put data into individual worksheets | New Users to Excel | |||
Master Worksheets and Individual Worksheets | Excel Worksheet Functions | |||
Email individual worksheets? | New Users to Excel | |||
Saving worksheets within workbooks as individual files | Excel Worksheet Functions | |||
Saving workbook sheets to individual excel files | Excel Programming |