Saving File

R

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
 
R

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
 
D

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.)
 
R

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
 
D

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

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top