Problemer med at eksporterer arkfanen til ny excel fil - VBA
Hej,Jeg har lavet nedenstående kode, som eksportere den aktive arkfanen til en ny Excel fil,
Nogle gange fungerer koden, andre gange går den i fejl og skriver følgende:
File Not found: 'C\Users\JSH\AppData\Local\Temp\VB4A6E.tmp' og hvis jeg så trykker på debug bliver følgende linje markeret med gul:
ThisWorkbook.Sheets("Udløb_Udskrift").Copy Before:=NewBook.Sheets(1)
Hvad skyldes fejlen og hvordan retter jeg den til?
Hele koden fremgår her:
Private Sub ExportUdløb()
Dim FName As String
Dim FPath As String
Dim NewBook As Workbook
FPath = "J:\LOGISTIK\9. Excel rapporter"
FName = "Rapport over udlløb - trukket den " & Format(Date, "dd.mm.yyyy") & ".xls"
Set NewBook = Workbooks.Add
ThisWorkbook.Sheets("Udløb_Udskrift").Copy Before:=NewBook.Sheets(1)
If Dir(FPath & "\" & FName) <> "" Then
MsgBox "File " & FPath & "\" & FName & " already exists"
Else
NewBook.SaveAs Filename:=FPath & "\" & FName
End If
End Sub