Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs worksheets
Is there a way to save multiple worksheet as a new wookbook without having
the vba modules included with the save? I currently am doing the following, but this saves the vba modules as well as the worksheets. I just want to save the work sheets. Private Sub Save_Dialog() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) Dim vrtSelectedItem As Variant With fd .Filters.Add "Excel", "*.xls; *.csv; *.csv", 2 If .Show = -1 Then 'user pressed action button. .Execute 'Application.ActiveWorkbook.SaveCopyAs (vrtSelectedItem) Else 'The user pressed Cancel. End If End With Set fd = Nothing End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs worksheets
Hi Niek,
To create a new workbook, try: '============= Public Sub Tester() ActiveWorkbook.Worksheets.Copy End Sub '<<============= Only code in the sheet modules ot the ThisWorkbook modules will be carried to the new workbook. If your intention is to delete all code, see Chip Pearson at: Programming To The Visual Basic Editor http://www.cpearson.com/excel/vbe.htm --- Regards, Norman "miek" wrote in message ... Is there a way to save multiple worksheet as a new wookbook without having the vba modules included with the save? I currently am doing the following, but this saves the vba modules as well as the worksheets. I just want to save the work sheets. Private Sub Save_Dialog() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) Dim vrtSelectedItem As Variant With fd .Filters.Add "Excel", "*.xls; *.csv; *.csv", 2 If .Show = -1 Then 'user pressed action button. .Execute 'Application.ActiveWorkbook.SaveCopyAs (vrtSelectedItem) Else 'The user pressed Cancel. End If End With Set fd = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SaveAs - VBA | Excel Discussion (Misc queries) | |||
SaveAs csv | Excel Programming | |||
SaveAs | Excel Worksheet Functions | |||
Help with SaveAs | Excel Programming | |||
SaveAs | Excel Programming |