Run time error 1004 - Method 'SaveAs' of object '_Workbook' failed

[sharky12345]

Can anyone offer any advice as to why the following code randomly generates a run time error 1004, 'Method 'SaveAs' of object '_Workbook' failed'?

I've read various bits on the internet, none of which seem to apply here, (for example the workbook is not on a shared or mapped drive).

If there is no obvious solution, is there a way I can ignore this particular error? (I know that I could ignore all errors but I just want to ignore this particular one if that is the only option).

DestFile.SaveAs fileName:=ThisWorkbook.path & "\ST Files\System Files\" & "Raw Data (For Import) - " & Sheet8.Range("B1").Value & " " & Sheet8.Range("B5").Value & " (" & Sheet8.Range("F3").Value & ")" & ".xlsx"

 

[Fluff]

Best guess is that one of the cells you are using to create the file name, sometimes contains an invalid character.
If you do something like

Dim Fname As String
Fname = ThisWorkbook.Path & "\ST Files\System Files\Raw Data (For Import) - " & Sheet8.Range("B1").Value & " " & Sheet8.Range("B5").Value & " (" & Sheet8.Range("F3").Value & ").xlsx"
DestFile.SaveAs Fname, 51

Then it's easier to see what the complete filename is when you get the error.

 

[sharky12345]

Thanks Fluff!

 

[Fluff]

You're welcome

You can also build in an error handler, something like

Dim Fname As String
Fname = ThisWorkbook.Path & "\ST Files\System Files\Raw Data (For Import) - " & Sheet8.Range("B1").Value & " " & Sheet8.Range("B5").Value & " (" & Sheet8.Range("F3").Value & ").xlsx"
On Error GoTo Oops
DestFile.SaveAs Fname, 51
On Error GoTo 0

Exit Sub
Oops:
   MsgBox "File not saved " & vbLf & Fname
End Sub

 

[sharky12345]

Thanks again!

 

[Fluff]

My pleasure