Save file to Network Drive and prompt for name

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
 
R

Rob van Gelder

KO,

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

Rob
 
C

colby s

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.
 
M

mudraker

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)
 
Top