CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Jane Knudsen Nybegynder

16. oktober 2013 - 17:40 Der er 9 kommentarer og
1 løsning

VBA kode som åbner en mappe

Hej. Jeg vil meget gerne have hjælpe til lidt VBA-kodning. Jeg har brug for en knap i Excel som kan åbne en mappe. Stien til mappen skal kunne aflæses i en bestemt celle fx A1.

Synes godt om

Flemming Vadet - Smart Office DK Professor

17. oktober 2013 - 17:40 #1

Åbne en mappe... mener du Excel - Filer | Åben eller Åben stifinder i den specifikke folder ?

Synes godt om

Jane Knudsen Nybegynder

21. oktober 2013 - 20:23 #2

Hej, jeg mente en specifik folder, men jeg har løst problemet. Jeg har løst problemet med denne kode:
Sub Open_Mappe()
Dim stFolder As String

Sheets("Liste").Activate

stFolder = Range("M1").Value

If Len(Dir(stFolder, vbDirectory)) <> 0 Then
Shell "Explorer.exe /n,/e," & stFolder, vbNormalFocus
Else
MsgBox "Mappen kunne ikke findes.", vbCritical
End If

Sheets("Projektspecifikation").Activate

End Sub
Nu er der dog opstået et nyt problem, nemlig at i stedet for at finde et eksakt match mellem hvad der står i celle "M1" og mappens navn, vil jeg gerne have koden tilpasses således at, jeg finder og åbner den mappe som begynder med det som står i "M1" - er dette muligt?

Synes godt om

Flemming Vadet - Smart Office DK Professor

23. oktober 2013 - 18:22 #3

Det kan man godt, men det kræver noget mere vba gymnastik, da du løbe igennem alle foldere i mappen et niveau over, og så teste på om mappenavnet starter med xxx

Synes godt om

Flemming Vadet - Smart Office DK Professor

23. oktober 2013 - 18:41 #4

Har du et eksempel på, hvad der kunne stå i M1 ?

Synes godt om

Flemming Vadet - Smart Office DK Professor

23. oktober 2013 - 19:00 #5

Denne her er lavet i forventning om at M1 f.eks. kunne indeholde en sti som "C:\_Test\i", og at du vil åbne den første folder der starter med i - f.eks. "C:\_Test\isbil"

Public Sub OpenFolder()
Dim sPath As String, sFolder As String, sStartWith As String
Dim sSubPath() As String

'sPath = "C:\_Test\i" 'Test sti
sPath = Sheets("Liste").Range("M1").Value
sSubPath = Split(sPath, "\")
sStartWith = LCase(sSubPath(UBound(sSubPath)))
sPath = Left(sPath, Len(sPath) - Len(sStartWith))

sFolder = Dir(sPath, vbDirectory)
Do While sFolder > ""
If Not sFolder Like ".*" Then
If (GetAttr(sPath & sFolder) And vbDirectory) = vbDirectory Then
If sStartWith = LCase(Left(sFolder, Len(sStartWith))) Then
Shell "Explorer.exe /n,/e," & sPath & sFolder, vbNormalFocus
End If
End If
End If
sFolder = Dir
Loop
End Sub

Synes godt om

Flemming Vadet - Smart Office DK Professor

23. oktober 2013 - 19:01 #6

I linien efter Shell burde der stå Exit For

Synes godt om

Flemming Vadet - Smart Office DK Professor

23. oktober 2013 - 19:03 #7

Det hedder selvfølgelig Exit Do...

Synes godt om

Jane Knudsen Nybegynder

23. oktober 2013 - 20:27 #8

Hej SmartOffice, mange tak for din kode men jeg forstår ikke helt hvordan din kode virker, men den mappe jeg gerne vil have åbnet fra Excel ligger som en undermappe her: "c:\projekter\". Undermapperne hedder fx 906598_Test_Test, eller 906599_bla_bla.
I celle M1 vil der kun stå fx 906598. I dette tilfælde skal makroen gerne åbne mappen 906598_Test_Test. VH Jane

Synes godt om

Jane Knudsen Nybegynder

23. oktober 2013 - 20:32 #9

Nu kan jeg se sammenhængen og har fået koden til at virke - tusind tak.

Synes godt om

Flemming Vadet - Smart Office DK Professor

23. oktober 2013 - 22:55 #10

Jeg ville sætte c:\projekter ind således:

Public Sub OpenFolder()
Dim sPath As String, sFolder As String, sStartWith As String
Dim sSubPath() As String

sPath = "c:\projekter\" & Sheets("Liste").Range("M1").Value
sSubPath = Split(sPath, "\")
sStartWith = LCase(sSubPath(UBound(sSubPath)))
sPath = Left(sPath, Len(sPath) - Len(sStartWith))

sFolder = Dir(sPath, vbDirectory)
Do While sFolder > ""
If Not sFolder Like ".*" Then
If (GetAttr(sPath & sFolder) And vbDirectory) = vbDirectory Then
If sStartWith = LCase(Left(sFolder, Len(sStartWith))) Then
Shell "Explorer.exe /n,/e," & sPath & sFolder, vbNormalFocus
Exit Do
End If
End If
End If
sFolder = Dir
Loop
End Sub

God fornøjelse med det /Flemming

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel-kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Brugere må gerne redigere, men ikke overskrive default sortering eller filtrering Af mj72 i Excel	0	I går 16:17	-
Scanning af stregkode til flere celler Af zekedk i Excel	1	26/06/202508:55	26/06/202510:26
Beregning af flextid med timebank Af Lystfisker i Excel	2	24/06/202519:30	25/06/202508:15
Datavalidering med tekst Af h_s i Excel	3	19/06/202516:08	20/06/202512:14
Lidt formelhjælp (entydige) Af boro23 i Excel	3	19/06/202507:56	19/06/202512:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS