Saving File

[Richard]

Hi

If I save my file "manually", using File, Save As, I get no issue. If I try
saving with the following code:

Sub SaveFile()

Dim strFileName As String
Dim strFilePath As String
Dim strYear As String


strYear = Worksheets("Dates").range("PrevWrkDay")
strYear = Format(strYear, "yyyy")


strFileName = "European Exchange Volume " & strYear & ".xls"

strFilePath = "\\atkams\Credit Lists\"

application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strFilePath & strFileName
application.DisplayAlerts = True

End Sub

I get run-time error '1004':
cannot access 'filename'

What am I doing wrong.

Thanks in advance
Richard

 

[Geoff K]

Try an explicit path ??

strFilePath = "C:\atkams\Credit Lists\"

hth

Geoff K

 

[Richard]

Geoff,

I was trying to avoid that, as it isn't a path that everyone has mapped. Is
that the only reliable method?

Richard

 

[Dave Peterson]

No.

I think that Geoff was suggesting that you get the guts of the code working
using an explicit path. Then when you change to that network path, you'll know
that the problem is either your spelling of that network path--or a network
problem itself.

Can you manually save a file to that location?

(Maybe it's a permissions thing.)

 

[Richard]

Dave

Yes I can manually save a file to that location and yes if I explicitly
state the drive mapping ie L: it works so it doesn't appear to be a
permission issue and beleive me I have checked and re-checked the spelling of
the path name and I am certain it is correct.

Richard

 

[Dave Peterson]

I'm betting that you'll find that you made a mistake in the UNC path.

Maybe opening windows explorer and looking at how the L: was mapped will help
find your typo.

 

[Geoff K]

Unless you have sorted the problem this may be an alternative:

Sub SaveFile()

Dim strFileName As String
Dim strFilePath As String
Dim strYear As String
Dim fname As Variant

strYear = Worksheets("Dates").Range("PrevWrkDay")
strYear = Format(strYear, "yyyy")

strFileName = "European Exchange Volume " & strYear & ".xls"

fname = Application.GetSaveAsFilename(strFileName)

If Not fname = False Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strFileName
Application.DisplayAlerts = True
End If

End Sub

hth

Geoff K