If file exist i excel

Denne formel undersøger om henvisning til celle A1 i den anden projektmappe, resulterer i en fejl. Sker dette udføres intet, resulterer det ikke i en fejl (altså eksisterer arket) returneres her indholdet af den pågældende A1-celle. Det kan du selvfølgelig skifte ud med noget andet.

=HVIS(ER.FEJL([Uge01.xls]Ark1'!$A$1);"";[Uge01.xls]Ark1'!$A$1)

Ja, du kan godt bruge søg og erstat på indhold i formler.

Det skulle være et svar.

Hej erikjuul

Tak for dit hurtige svar.

Det virker til dels. Skulle lige tilpasses (tror jeg), så den ikke laver fejl:

  =HVIS(ER.FEJL([Uge01.xls]Ark1!$A$1)=FALSK;[Uge01.xls]Ark1!$A$1;0)

men som jeg ser det, så gør den egentlig blot det som en almindelig sammenkædning ville gøre, hvilket betyder, at den afbryder formlen, hvis den pågældende fil ikke eksisterer. Dette ville jeg gerne undgå, således at Excel ikke selv "popper" op spørger efter placeringen.

Det er planen, at det regneark, hvor det skal bruges har 52 faneblade (én for hver uge) og der bliver så løbende oprettet filer med ugenavne, som disse faneblade skal refererer til. Derfor er formlen nødt til at indeholde referencer til filer, der endnu ikke eksisterer.

Nu er det tid til at holde weekend ;o)

Den ændring du har foretaget får ingen virkning på formlens resultat. Du ændrer ER.FEJL() funktionen fra SAND til FALSK, og samtidig bytter du om på de 2 sidste parametre i HVIS()-funktionen.


Så alt i alt samme resultat.

Hej erikjuul

Jeg foretog ændringen, fordi jeg fik en fejl, når jeg "copy/pastede" formlen. Nok bare mig, der er et fjog :o)

Men er det ikke korrekt, at hvis ikke projektmappen: "Uge01.xls" eksisterer, så vil formlen ikke blive udført, men derimod bede om en sti til denne projektmappe?

Jeg har skrevet en bruger defineret formel som kontrollerer om filen eksisterer. Formlen retunerer Boolean.

Public Function ErFil(ByVal sPlacering As String) As Boolean
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Application.Volatile
    ErFil = False
    ErFil = fs.fileexists(sPlacering)
End Function

Den kan kontrollere om filen eksisterer!

Hvis du skal have hjælp med at bruge den må du sige til!

Hey palle_ib

Det var lige nøjagtig hvad jeg ledte efter! Pointene er retmæssigt dine.

Det færdige resultat ser ud som følger:

=HVIS(ErFil("Uge01.xls")=FALSK;0;[Uge01.xls]Ark1!$A$1)

Endnu engang tak til palle_ib