Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveAsFilename - Save as box
Hi
I have a following problem. I have a document with macro from which open and convert other csv files. At the end of conversion I want t get Save as box. To do this I wrote the following code: NameAk = Sheets(1).Name & ".xls" NewName Application.GetSaveAsFilename(InitialFileName:=Act iveWorkbook.Path "\" & _ NameAk, FileFilter:="Excel Workbooks (*.xls), *.xls") If NewName < False Then ActiveWorkbook.SaveAs Filename:=NewName FileFormat:=xlWorkbookNormal End If Everything is all right if I push "save" or "cancel" button. Proble occurs when I push "save" and there is another file with the same nam in this directory. The second box occures and I got the message:"Do yo want to replace the file?" If I answer yes then it is ok but if I answe cancel or no then the macro crashes and the the message I get is "method SaveAs or object _Woorkbook failed". Can you advise me how should modify my code -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with getsaveasfilename | Excel Discussion (Misc queries) | |||
GetSaveAsFileName | Excel Programming | |||
GetSaveAsFilename | Excel Programming | |||
GetSaveAsFileName Not Working | Excel Programming | |||
File save location with Application.GetSaveAsFilename | Excel Programming |