Avatar billede gladhund Nybegynder
26. september 2010 - 17:15 Der er 4 kommentarer og
1 løsning

Funktion til at udlede streng af filnavn

Hej,

Jeg ønsker at danne følgende reference af en vilkårlig sti:

'C:\Documents and Settings\Administrator\Desktop\[KP1.xlsm]Handlingsplaner'

De to ping'er skal være med.

Stien ser som udgangspunkt sådan ud:

C:\Documents and Settings\Administrator\Desktop\KP1.xlsm

Så det handler om:
1. at sætte firkantede paranteser om filnavnet
2. at sætte stregen "Handlingsplaner" efter sidste firkantede parantes
3. at sætte en ping ved start og slut

Referencen skal så bruges sammen med en cellereference, fx C6, i den endelige formel.

Kan nogen hjælpe? Det betyder ikke noget om det er formel eller VBA.
Avatar billede kabbak Professor
26. september 2010 - 19:15 #1
Dim Sti(4) As String
Sti(0) = "C:\Documents and Settings\Administrator\Desktop\KP1.xlsm"
Sti(1) = Left(Sti(0), InStrRev(Sti(0), "\"))
Sti(2) = Mid(Sti(0), InStrRev(Sti(0), "\") + 1, Len(Sti(0)))
Sti(3) = "[" & Sti(2) & "]" & "Handlingsplaner"
Sti(4) = "'" & Sti(1) & Sti(3) & "'"
Avatar billede gladhund Nybegynder
26. september 2010 - 19:29 #2
Jeg går ud fra, at de trin er af pædagogisk hensyn? :)
Avatar billede gladhund Nybegynder
26. september 2010 - 19:36 #3
Kan du vise mig hvordan jeg bruger det i en Function, please? For så vil jeg lade et ark regne det ud,  med originalsti som input.
Avatar billede kabbak Professor
26. september 2010 - 20:28 #4
Public Function MinFil(StiOgFil, Ark) As String
    Dim Sti(3) As String
    Sti(0) = StiOgFil
    Sti(1) = Left(Sti(0), InStrRev(Sti(0), "\"))
    Sti(2) = Mid(Sti(0), InStrRev(Sti(0), "\") + 1, Len(Sti(0)))
    Sti(3) = "[" & Sti(2) & "]" & Ark
    MinFil = "'" & Sti(1) & Sti(3) & "'"
End Function

=MinFil(A3;B3)

hvor du har:
"C:\Documents and Settings\Administrator\Desktop\KP1.xlsm" i A3
og
"Handlingsplaner" i B3
Avatar billede gladhund Nybegynder
27. september 2010 - 10:43 #5
Tak :)
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
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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