Save file to Network Drive and prompt for name

  • Thread starter Thread starter turtle
  • Start date Start date
T

turtle

I am having trouble writing a macro that when ran it will save my file
into a network location and prompt me for the file name. The network
path will always be the same place but the file name will change.

Any help would be great.
thanks,
KO
 
KO,

Maybe you could incorporate the current time into the filename to make it
unique?

Rob
 
You could use

ActiveWorkbook.saveas("c:\direcory\" & inputbox("File Name ?"))

This will just pop up a simple box to type in your file name and will
save it to the c drive in the folder you choose.
 
Dim sFile As String
sFile$ = Application.GetSaveAsFilename()
If sFile = False Then
Exit Sub
End If
If InStr(1, sFile, ".xls") = 0 Then
sFile = sFile & ".xls"
End If
ActiveWorkbook.SaveAs (sFile)
 
Back
Top