Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Code
JT,
You may need more sophisticated error checking: does the file already exist, etc. but this will give you an idea of where to start. HTH, Bernie MS Excel MVP Sub SaveFileWithUsersFileName() Dim newFName As String newFName = Application.GetSaveAsFilename If newFName = "False" Then MsgBox "You pressed cancel" Exit Sub End If If InStr(1, newFName, ".xls") = 0 Then newFName = newFName & ".xls" End If ActiveWorkbook.SaveAs Filename:=newFName, FileFormat:=xlNormal End Sub "JT" wrote in message ... In my macro, I want to activate a certain workbook; which is no problem. Workbooks(vOldFileName).Activate What I want to do next is to open the save as dialog box and let the user select a name for the "new file". Once they they have clicked the "save" button, I will capture the active workbook name. vNewFile = activeworkbook.name I'm having trouble with the save as. Below is the code, I got when I recorded a macro to use save as. The problem is I don't know what the user will name the new file and the info below is what I called it when I recorded the macro. ActiveWorkbook.SaveAs Filename:="C:\Test\2007.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False Any help with the code to display the save as dialog box, would be greatly appreciated. Thanks for the help.... -- JT |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Before Save code | Excel Worksheet Functions | |||
How to save my VBA-code | Excel Worksheet Functions | |||
Totally Disabling (^ save ) (Save as) and Save Icon – Which code do I use: | Excel Programming | |||
Placing a code before Save & Save As | Excel Programming | |||
Save without VBA code? | Excel Programming |