ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   File Save As macro for users with different paths (https://www.excelbanter.com/excel-programming/430954-file-save-macro-users-different-paths.html)

iperlovsky

File Save As macro for users with different paths
 

Below I have a sub routine that needs to be modified to enable multiple users
with different paths to the same file location on a network drive to save the
file using this macro. The only difference in location is the letter of the
drive. On my computer it is identified as "N:", but on another user's
computer it could be identified as any letter of the alphabet. Any simple
solutions to this issue?

Sub saveNew()
yyyy = Format(Range("M1").Value, "yyyy")
mmddyyyy = Format(Range("M1").Value, "mm-dd-yyyy")
mmddyy = Range("M2").Value

ActiveWorkbook.SaveAs Filename:="N:\FOLDER\FOLDER 2\folder 3\" & yyyy & "\"
& mmddyyyy & " Distribution" & "\Rates " & mmddyy & ".xls"

End Sub


Jacob Skaria

File Save As macro for users with different paths
 
Check if path exists and if not provide a browse option to pick the folder..

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "N:\"
.Show
strFolder = .SelectedItems(1)
End With

If this post helps click Yes
---------------
Jacob Skaria


"iperlovsky" wrote:

Below I have a sub routine that needs to be modified to enable multiple users
with different paths to the same file location on a network drive to save the
file using this macro. The only difference in location is the letter of the
drive. On my computer it is identified as "N:", but on another user's
computer it could be identified as any letter of the alphabet. Any simple
solutions to this issue?

Sub saveNew()
yyyy = Format(Range("M1").Value, "yyyy")
mmddyyyy = Format(Range("M1").Value, "mm-dd-yyyy")
mmddyy = Range("M2").Value

ActiveWorkbook.SaveAs Filename:="N:\FOLDER\FOLDER 2\folder 3\" & yyyy & "\"
& mmddyyyy & " Distribution" & "\Rates " & mmddyy & ".xls"

End Sub


Jacob Skaria

File Save As macro for users with different paths
 

Hey!! Why dont you try the UNC path instead of the mapped drive...If you are
not sure check out with your network administrator...which would be same for
all users within the network.

\\servername\volumename\share\folder\

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

Check if path exists and if not provide a browse option to pick the folder..

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "N:\"
.Show
strFolder = .SelectedItems(1)
End With

If this post helps click Yes
---------------
Jacob Skaria


"iperlovsky" wrote:

Below I have a sub routine that needs to be modified to enable multiple users
with different paths to the same file location on a network drive to save the
file using this macro. The only difference in location is the letter of the
drive. On my computer it is identified as "N:", but on another user's
computer it could be identified as any letter of the alphabet. Any simple
solutions to this issue?

Sub saveNew()
yyyy = Format(Range("M1").Value, "yyyy")
mmddyyyy = Format(Range("M1").Value, "mm-dd-yyyy")
mmddyy = Range("M2").Value

ActiveWorkbook.SaveAs Filename:="N:\FOLDER\FOLDER 2\folder 3\" & yyyy & "\"
& mmddyyyy & " Distribution" & "\Rates " & mmddyy & ".xls"

End Sub


iperlovsky

File Save As macro for users with different paths
 
what does UNC stand for?

"Jacob Skaria" wrote:

Hey!! Why dont you try the UNC path instead of the mapped drive...If you are
not sure check out with your network administrator...which would be same for
all users within the network.

\\servername\volumename\share\folder\

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

Check if path exists and if not provide a browse option to pick the folder..

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "N:\"
.Show
strFolder = .SelectedItems(1)
End With

If this post helps click Yes
---------------
Jacob Skaria


"iperlovsky" wrote:

Below I have a sub routine that needs to be modified to enable multiple users
with different paths to the same file location on a network drive to save the
file using this macro. The only difference in location is the letter of the
drive. On my computer it is identified as "N:", but on another user's
computer it could be identified as any letter of the alphabet. Any simple
solutions to this issue?

Sub saveNew()
yyyy = Format(Range("M1").Value, "yyyy")
mmddyyyy = Format(Range("M1").Value, "mm-dd-yyyy")
mmddyy = Range("M2").Value

ActiveWorkbook.SaveAs Filename:="N:\FOLDER\FOLDER 2\folder 3\" & yyyy & "\"
& mmddyyyy & " Distribution" & "\Rates " & mmddyy & ".xls"

End Sub


Rick Rothstein

File Save As macro for users with different paths
 
Universal Naming Convention

http://support.microsoft.com/kb/141941

--
Rick (MVP - Excel)


"iperlovsky" wrote in message
...
what does UNC stand for?

"Jacob Skaria" wrote:

Hey!! Why dont you try the UNC path instead of the mapped drive...If you
are
not sure check out with your network administrator...which would be same
for
all users within the network.

\\servername\volumename\share\folder\

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

Check if path exists and if not provide a browse option to pick the
folder..

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "N:\"
.Show
strFolder = .SelectedItems(1)
End With

If this post helps click Yes
---------------
Jacob Skaria


"iperlovsky" wrote:

Below I have a sub routine that needs to be modified to enable
multiple users
with different paths to the same file location on a network drive to
save the
file using this macro. The only difference in location is the letter
of the
drive. On my computer it is identified as "N:", but on another
user's
computer it could be identified as any letter of the alphabet. Any
simple
solutions to this issue?

Sub saveNew()
yyyy = Format(Range("M1").Value, "yyyy")
mmddyyyy = Format(Range("M1").Value, "mm-dd-yyyy")
mmddyy = Range("M2").Value

ActiveWorkbook.SaveAs Filename:="N:\FOLDER\FOLDER 2\folder 3\" & yyyy
& "\"
& mmddyyyy & " Distribution" & "\Rates " & mmddyy & ".xls"

End Sub



ryguy7272

File Save As macro for users with different paths
 
ALWAYS use the UNC. I learned that lesson a long time ago.
Good luck,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Rick Rothstein" wrote:

Universal Naming Convention

http://support.microsoft.com/kb/141941

--
Rick (MVP - Excel)


"iperlovsky" wrote in message
...
what does UNC stand for?

"Jacob Skaria" wrote:

Hey!! Why dont you try the UNC path instead of the mapped drive...If you
are
not sure check out with your network administrator...which would be same
for
all users within the network.

\\servername\volumename\share\folder\

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

Check if path exists and if not provide a browse option to pick the
folder..

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "N:\"
.Show
strFolder = .SelectedItems(1)
End With

If this post helps click Yes
---------------
Jacob Skaria


"iperlovsky" wrote:

Below I have a sub routine that needs to be modified to enable
multiple users
with different paths to the same file location on a network drive to
save the
file using this macro. The only difference in location is the letter
of the
drive. On my computer it is identified as "N:", but on another
user's
computer it could be identified as any letter of the alphabet. Any
simple
solutions to this issue?

Sub saveNew()
yyyy = Format(Range("M1").Value, "yyyy")
mmddyyyy = Format(Range("M1").Value, "mm-dd-yyyy")
mmddyy = Range("M2").Value

ActiveWorkbook.SaveAs Filename:="N:\FOLDER\FOLDER 2\folder 3\" & yyyy
& "\"
& mmddyyyy & " Distribution" & "\Rates " & mmddyy & ".xls"

End Sub




ryguy7272

File Save As macro for users with different paths
 
Forgot the links:
http://www.uwplatt.edu/oit/terms/uncpath.html

http://en.wikipedia.org/wiki/Path_(computing)

http://en.wikipedia.org/wiki/Path_(c...ing_Convention

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Rick Rothstein" wrote:

Universal Naming Convention

http://support.microsoft.com/kb/141941

--
Rick (MVP - Excel)


"iperlovsky" wrote in message
...
what does UNC stand for?

"Jacob Skaria" wrote:

Hey!! Why dont you try the UNC path instead of the mapped drive...If you
are
not sure check out with your network administrator...which would be same
for
all users within the network.

\\servername\volumename\share\folder\

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

Check if path exists and if not provide a browse option to pick the
folder..

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "N:\"
.Show
strFolder = .SelectedItems(1)
End With

If this post helps click Yes
---------------
Jacob Skaria


"iperlovsky" wrote:

Below I have a sub routine that needs to be modified to enable
multiple users
with different paths to the same file location on a network drive to
save the
file using this macro. The only difference in location is the letter
of the
drive. On my computer it is identified as "N:", but on another
user's
computer it could be identified as any letter of the alphabet. Any
simple
solutions to this issue?

Sub saveNew()
yyyy = Format(Range("M1").Value, "yyyy")
mmddyyyy = Format(Range("M1").Value, "mm-dd-yyyy")
mmddyy = Range("M2").Value

ActiveWorkbook.SaveAs Filename:="N:\FOLDER\FOLDER 2\folder 3\" & yyyy
& "\"
& mmddyyyy & " Distribution" & "\Rates " & mmddyy & ".xls"

End Sub





All times are GMT +1. The time now is 12:20 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com