Q: save a sheet to a file

J

JIM.H.

I use ActiveWorkbook.SaveAs destFile in a macro to save current workbook to a
n excel file, how can I save only a specific sheet in current workbook to a
file?
 
D

Dave Peterson

Manually, you could copy that sheet to a new workbook and save that new
workbook.

Dim Wks as worksheet
dim destFile as string

destfile = "c:\temp\myfile.xls"
set wks = activeworkbook.worksheets("Sheet99")
wks.copy 'creates a new workbook

activeworkbook.saveas destfile
activeworkbook.close savechanges:=false
 
I

i-Zapp

ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= "C:\somefilename.xls"

try using the record macro functionality. works good for stuff lik
this
 
Top