Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Name Exists Error Trap
I need to stop the file exists from killing my macro and
loop back until my user inputs a filename that is unique. fname = InputBox("Please Enter File Name", "File Name") With Application.FileSearch .Filename = fname .Execute If FoundFiles.Count < 0 Then fname = InputBox("FileName Exists Please Try Again.", "File Exists") Else ActiveWorkbook.SaveAs Filename:=fname End If The denotes where I was headed. I am slowly but surely eating this elephant one bite at a time. Thanks... (Hopefully you guys like the taste of Elephant also) |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Name Exists Error Trap
Hi
you may try fname = InputBox("Please Enter File Name", "File Name") With Application.FileSearch .lookin = "C:\Temp" 'change this .Filename = fname If .Execute then fname = InputBox("FileName Exists Please Try Again.", "File Exists") Else ActiveWorkbook.SaveAs Filename:=fname End If -- Regards Frank Kabel Frankfurt, Germany Mike wrote: I need to stop the file exists from killing my macro and loop back until my user inputs a filename that is unique. fname = InputBox("Please Enter File Name", "File Name") With Application.FileSearch .Filename = fname .Execute If FoundFiles.Count < 0 Then fname = InputBox("FileName Exists Please Try Again.", "File Exists") Else ActiveWorkbook.SaveAs Filename:=fname End If The denotes where I was headed. I am slowly but surely eating this elephant one bite at a time. Thanks... (Hopefully you guys like the taste of Elephant also) |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Name Exists Error Trap
One way:
fName = Application.InputBox( _ Prompt:="Please enter file name", _ Title:="File name", _ Type:=2) Do Until Dir(fName) = "" If fName = "False" Then Exit Sub 'user clicked Cancel fName = Application.InputBox( _ Prompt:="FileName Exists Please Try Again.", _ Title:="File Exists", _ Type:=2) Loop ThisWorkbook.SaveAs Filename:=fName In article , "Mike" wrote: I need to stop the file exists from killing my macro and loop back until my user inputs a filename that is unique. fname = InputBox("Please Enter File Name", "File Name") With Application.FileSearch .Filename = fname .Execute If FoundFiles.Count < 0 Then fname = InputBox("FileName Exists Please Try Again.", "File Exists") Else ActiveWorkbook.SaveAs Filename:=fname End If The denotes where I was headed. I am slowly but surely eating this elephant one bite at a time. Thanks... (Hopefully you guys like the taste of Elephant also) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error.Type or IsError to trap #VALUE! and #NUM! | Excel Worksheet Functions | |||
Cleaner Error trap in Loop. | Excel Discussion (Misc queries) | |||
Trap a DateValue Error | Excel Programming | |||
error trap | Excel Programming |