CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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.
Avatar billede 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 ?
Avatar billede 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?
Avatar billede 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
Avatar billede Flemming Vadet - Smart Office DK Professor
23. oktober 2013 - 18:41 #4
Har du et eksempel på, hvad der kunne stå i M1 ?
Avatar billede 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
Avatar billede Flemming Vadet - Smart Office DK Professor
23. oktober 2013 - 19:01 #6
I linien efter Shell burde der stå  Exit For
Avatar billede Flemming Vadet - Smart Office DK Professor
23. oktober 2013 - 19:03 #7
Det hedder selvfølgelig Exit Do...

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
                    Exit Do
                End If
            End If
        End If
        sFolder = Dir
    Loop
End Sub
Avatar billede 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
Avatar billede 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.
Avatar billede 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
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel 5 19/12/202410:24 22/12/202413:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel 2 16/12/202415:27 17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel 23 13/12/202412:32 18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel 1 10/12/202409:17 10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel 7 09/12/202408:59 09/12/202410:38
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 14:43 html <Input.. Danske bogstaver Af pjotre i Andet software
I går 14:35 Brænde musik fra usb drev til cd Af Caso i Andet hardware
21/1222:16 Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42 Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
21/1212:54 Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Dansk verdenshit fra 1992 bliver til ny international tv-serie
Læs mere »
Mord på it-profil truer San Franciscos status som tech-mekka: Byen er forvandlet til en zombie-by
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Temu åbner stort varehus i Sverige og kan nu sende varer til danskerne endnu hurtigere: "Hvad vi frygtede, er sket"
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
Software-selskabernes prisstigninger får nu danske virksomheder til at søge mod open source
AI er et falmende buzzword: Lad mig fluks dele en god og en dårlig nyhed
Region Sjælland vil skrive evighedskontrakt med Oracle-specialister: Står klar med 150 millioner kroner
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Derfor kræver AI, cloud og sikkerhed et stærkere netværk
Sådan gør du: Elektronisk dokumentudveksling i praksis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »