how can i save a sheet in my workbook as a separate file usi

LMF · Apr 16th, 2002, 06:12 AM

how can i save a sheet in my workbook as a separate file using macro???

Ricky Morris · Apr 16th, 2002, 06:22 AM

Try this:

Sub Save_Sheet()
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs FileName:="C:My DocumentsSheet1.xls"
End Sub

LMF · Apr 16th, 2002, 08:38 AM

how about saving a range of cells to a new work sheet???

nisht · Apr 16th, 2002, 08:52 AM

Sub saveonesheet()

Dim sht As Worksheet
Dim strshtname As String
Application.DisplayAlerts = False
strshtname = InputBox("Give the Name of the Sheet You Want to Protect as Workbook.")
For Each sht In Worksheets
If sht.Name <> strshtname Then
sht.Delete
End If
Next sht
Application.GetSaveAsFilename strshtname
' You can save your file in number of formats.
'ThisWorkbook.SaveAs "d:myback" & Worksheets("sheet4").Range("a1").Text, xlNormal

Application.DisplayAlerts = True
End Sub

nishith desai
http://www.pexcel.com

Apr 16th, 2002, 06:22 AM	#2
Ricky Morris Board Regular Join Date: Mar 2002 Posts: 363	Try this: Sub Save_Sheet() Sheets("Sheet1").Copy ActiveWorkbook.SaveAs FileName:="C:My DocumentsSheet1.xls" End Sub __________________ It's never too late to learn something new. Ricky

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 16th, 2002, 06:12 AM	#1
LMF Board Regular Join Date: Mar 2002 Posts: 73	how can i save a sheet in my workbook as a separate file using macro???

Apr 16th, 2002, 08:38 AM	#3
LMF Board Regular Join Date: Mar 2002 Posts: 73	how about saving a range of cells to a new work sheet???

Apr 16th, 2002, 08:52 AM	#4
nisht Board Regular Join Date: Feb 2002 Location: Ahmedabad Gujarat Posts: 303	Sub saveonesheet() Dim sht As Worksheet Dim strshtname As String Application.DisplayAlerts = False strshtname = InputBox("Give the Name of the Sheet You Want to Protect as Workbook.") For Each sht In Worksheets If sht.Name <> strshtname Then sht.Delete End If Next sht Application.GetSaveAsFilename strshtname ' You can save your file in number of formats. 'ThisWorkbook.SaveAs "d:myback" & Worksheets("sheet4").Range("a1").Text, xlNormal Application.DisplayAlerts = True End Sub nishith desai http://www.pexcel.com