Hvordan kontrolleres, om der findes en mappe, og hvis den ikke oprettes?
Har du nogensinde prøvet at kontrollere, om der findes en mappe fra Excel-regneark? I denne artikel vil jeg tale om at kontrollere, om en mappe findes i en bestemt sti, hvis ikke, oprettes mappen automatisk under stien.
Kontroller, om der findes en mappe i en bestemt filsti med VBA-kode
Opret mappen, hvis den ikke findes i en bestemt filsti med VBA-kode
Kontroller, om der findes en mappe i en bestemt filsti med VBA-kode
Følgende VBA-kode kan hjælpe dig med at kontrollere, om en mappe findes i en bestemt filsti, skal du gøre som denne:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Kontroller, om der findes en mappe i en bestemt filsti:
Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
Dim sFolderPath As String
sFolderPath = "C:\Users\DT168\Desktop\Test folder"
If Right(sFolderPath, 1) <> "\" Then
sFolderPath = sFolderPath & "\"
End If
If Dir(sFolderPath, vbDirectory) <> vbNullString Then
MsgBox "Folder exist", vbInformation, "Kutools for Excel"
Else
MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
End If
End Sub
Bemærk: I ovenstående kode skal du ændre mappestien og navnet C: \ Brugere \ DT168 \ Desktop \ Testmappe til dit behov.
3. Tryk derefter på F5 nøgle til at køre denne kode, får du følgende resultater:
Opret mappen, hvis den ikke findes i en bestemt filsti med VBA-kode
Kontroller, om der findes en mappe i en filsti, hvis ikke, for at oprette den under denne specifikke filsti, kan følgende VBA-kode hjælpe dig med at afslutte dette job.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Opret en mappe, hvis den ikke findes i en filsti:
Sub MakeMyFolder()
'Updateby Extendoffice
Dim fdObj As Object
Application.ScreenUpdating = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
MsgBox "Found it.", vbInformation, "Kutools for Excel"
Else
fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
MsgBox "It has been created.", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
Bemærk: I ovenstående kode skal du ændre mappestien og navnet C: \ Brugere \ DT168 \ Desktop \ Testmappe til dit behov.
3. Efter at have indsat koden, og tryk på F5 nøgle til at køre det:
(1.) Hvis mappen findes, vises et promptfelt som følgende skærmbillede vist:
(2.) Hvis mappen ikke findes, oprettes den under den specifikke sti på én gang, og der vises et promptfelt for at minde dig om, at mappen er oprettet, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!