Hoe kan ik controleren of een map bestaat en zo niet maken?
Heeft u ooit geprobeerd te controleren of een map al dan niet bestaat uit een Excel-werkblad? In dit artikel zal ik het hebben over het controleren of een map in een opgegeven pad bestaat, zo niet, dan wordt de map automatisch onder het pad aangemaakt.
Controleer of een map bestaat in een specifiek bestandspad met VBA-code
Maak de map als deze niet bestaat in een specifiek bestandspad met VBA-code
Controleer of een map bestaat in een specifiek bestandspad met VBA-code
De volgende VBA-code kan u helpen om te controleren of een map in een specifiek bestandspad bestaat, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: controleer of een map bestaat in een specifiek bestandspad:
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
Opmerking: In de bovenstaande code moet u het mappad en de naam wijzigen C: \ Users \ DT168 \ Desktop \ Testmap aan uw nodig.
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, krijg je de volgende resultaten:
Maak de map als deze niet bestaat in een specifiek bestandspad met VBA-code
Controleer of een map bestaat in een bestandspad, zo niet, om deze onder dit specifieke bestandspad te maken, kan de volgende VBA-code u helpen om deze taak te voltooien.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: maak een map als deze niet bestaat in een bestandspad:
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
Note: In de bovenstaande code moet u het mappad en de naam wijzigen C: \ Users \ DT168 \ Desktop \ Testmap aan uw nodig.
3. Na het plakken van de code, en druk op F5 sleutel om het uit te voeren:
(1.) Als de map bestaat, verschijnt er een promptvenster zoals in de volgende schermafbeelding:
(2.) Als de map niet bestaat, wordt deze in 茅茅n keer onder het specifieke pad gemaakt en verschijnt er een promptvenster om u eraan te herinneren dat de map is gemaakt, zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!