Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saving a worksheet to a separate file
I've used this same code in the past and it worked, but its not working in
this workbook. Need some help. I'm using Excel 2003 and want save a worksheet in my workbook as a separte file using a filename generated from the worksheet. Here is the code I'm using: Private Sub CommandButton6_Click() Sheets("quicksilver asc").Select Range("c8:c10").Select Selection.Copy Sheets("quicksilver asc f").Select Sheets("quicksilver asc F").Range("c8:c10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("quicksilver asc f").Copy Dim strappend As String Dim strpath As String Dim str3 As String strappend = ActiveSheet.Range("l8") strpath = "c:\field tickets\" str3 = ActiveSheet.Range("b14") fsavename = strpath & strappend & str3 & ".xls" ActiveWorkbook.Sheets("quicksilver asc f").SaveAs fsavename ActiveWorkbook.Close False End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Saving just 1 worksheet out of a workbook to a separate file | Excel Discussion (Misc queries) | |||
Saving Totals Row to Separate Worksheet - Next w/o For Error ? | Excel Programming | |||
How do I save part of a worksheet in a separate file? | Excel Worksheet Functions | |||
Saving each row of an excel file in separate excel files | Excel Programming | |||
Saving a sheet as a separate file | Excel Discussion (Misc queries) |