Save file to Network Drive

[santeria]

I'm just trying to Figure out what to change for a network file save.
Probably something amazingly basic...

However, I have...

Sub SAVECMSDAILYNETWORK()
'
' SAVECMSDAILYNETWORK Macro
' Macro recorded 2/24/2004 
'

'
    Windows("M:\REPORTS\02_FEBRUARY SUMMARY\CMS Daily.xls").Activate
    ChDir "E:\HR Outsourcing\Benefits\Reports"
    ActiveWorkbook.SaveAs Filename:= _
        "E:\HR Outsourcing\Benefits\Reports\CMS Daily2.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.Close
End Sub

And I need to know what to change to make the thing work.

Ta

 

[Smitty]

such and such a file already exists, do you want to over-write

Application.DisplayAlerts = False will stop that. Just set it to True at the end of your code.

Smitty

 

[santeria]

Thanks, I have that covered.
I learned that from you previously.

I appreciate the comment.

I just can't figure the rest of the code.

Quite a quest for a few lines

Ta

 

[Guitarde]

Have you tried to replace the network drive letter by the drive name.
I'm not sure if it like this everywhere, suppose it depends which kind of server you have.

Here all our network drives have letters but also "names"
for example a path could look like : \\networkdrive\\data\file1.xls

I prefer to use the drive names is in my code as drive letter change more often and crewup our macros.

 

[santeria]

Thanks for the thought.

The Path is not at issue.
It seems like I have to have a designator for the file to be saved as another file name.

Thats the thing thats confusing.
I've gone through a bunch of code, but nothing does the trick.

I know How to start and end the thing, and where to point the file references, it's the tag references at the start of the line that seem to be the pain.

Ta

 

[Smitty]

Can you post what you're working with now?

Smitty

 

[santeria]

Sure

Sub SAVECMSDAILYNETWORK()
  Dim fname As String
With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
fname = ("M:\REPORTS\02_FEBRUARY SUMMARY\CMS Daily")
Stringfname.SaveAs "E:\HR Outsourcing\Benefits\Reports\CMS Daily2.xls"
      ActiveWorkbook.Close
With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

Ta

 

[Smitty]

That seems straightforward enough, but I think that:

fname = ("M:\REPORTS\02_FEBRUARY SUMMARY\CMS Daily")
Stringfname.SaveAs "E:\HR Outsourcing\Benefits\Reports\CMS Daily2.xls"

Should be:

fname = ("M:\REPORTS\02_FEBRUARY SUMMARY\CMS Daily")
fname.SaveAs "E:\HR Outsourcing\Benefits\Reports\CMS Daily2.xls"

Smitty

 

[santeria]

Just tried it.

Dies on the "fname.Saveas.." Line.

I am guessing it is something basic, but I am not sure.

Ta

 

[Smitty]

Doh!

Missed this:

fname.SaveAs Filename:="E:\HR Outsourcing\Benefits\Reports\CMS Daily2.xls"

Smitty

EDIT: Bolded the missing bit

 

[santeria]

Dies at same place.

Ta