D
Der
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:=ActiveWorkbook.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
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:=ActiveWorkbook.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