Avatar billede jath08ac Forsker
23. marts 2018 - 09:11 Der er 1 løsning

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
Avatar billede Slettet bruger
23. marts 2018 - 10:29 #1
Kunne det tænkes at du åbner Excel-filen fra feks. en Outlook-mail, og det er her den fejler?
Stien ville i hvert fald passe til det...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester