Avatar billede dc Nybegynder
18. juli 2003 - 12:32 Der er 6 kommentarer og
1 løsning

VBA Editor: Analysere en string

Jeg ønsker at finde "c:\test1\test2" ud fra strengen "c:\test1\test2\test3.xls", som kan være forskellig fra gang til gang. Dvs. den f.eks. kan se sådan ud "e:\a\b\c\d\e\f.xls" og så skal der findes "e:\a\b\c\d\e". Er der en nem måde at gøre det på? Jeg skal bruge det til at finde ud af om mappen eksisterer inden en fil gemmmes.
Avatar billede overchord Nybegynder
18. juli 2003 - 12:36 #1
kan du ikke bare bruge .path kommandoen?
Avatar billede Chewie Novice
18. juli 2003 - 12:36 #2
=MIDT(VENSTRE(CELLE("Filnavn";L1);FIND("[";CELLE("Filnavn";A1))-2);MAKS((MIDT(VENSTRE(CELLE("Filnavn";A1);FIND("[";CELLE("Filnavn";A1))-2);KOLONNE(1:1);1)="\")*KOLONNE(1:1)+1);100)
Avatar billede Chewie Novice
18. juli 2003 - 12:37 #3
Indtastes som array-formel (ctrl-shift-enter)
Avatar billede kabbak Professor
18. juli 2003 - 12:45 #4
Public Sub sti()
A = "c:\test1\test2\test3.xls"
B = Len(A)
For i = B To 1 Step -1
If Mid(A, i, 1) = "\" Then
A2 = Left(A, i - 1)
GoTo Slut
End If
Next
Slut:
MsgBox A2
End Sub
Avatar billede dc Nybegynder
18. juli 2003 - 12:52 #5
Det skal være en function som analyserer en vilkårlig filsti+filnavn og retunerer filsti uden filnavn.
Avatar billede dc Nybegynder
18. juli 2003 - 12:55 #6
kabbak -> oh yes lige præcis... 1000 tak :)
Avatar billede kabbak Professor
18. juli 2003 - 14:50 #7
selv 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

IT-JOB