Cum să verificați dacă există un folder și dacă nu îl creați?
Ați încercat vreodată să verificați dacă există sau nu un folder din foaia de lucru Excel? În acest articol, voi vorbi despre verificarea dacă există un folder pe o cale specificată, dacă nu, folderul va fi creat automat sub cale.
Verificați dacă există un folder într-o anumită cale de fișier cu cod VBA
Creați folderul dacă nu există într-o anumită cale de fișier cu cod VBA
Verificați dacă există un folder într-o anumită cale de fișier cu cod VBA
Următorul cod VBA vă poate ajuta să verificați dacă există un folder într-o anumită cale de fișier, vă rugăm să procedați astfel:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: verificați dacă există un folder într-o anumită cale de fișier:
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
Notă: În codul de mai sus, ar trebui să schimbați calea și numele folderului C: \ Users \ DT168 \ Desktop \ Test folder la nevoia ta.
3. Apoi apăsați F5 pentru a rula acest cod, veți obține următoarele rezultate:
Creați folderul dacă nu există într-o anumită cale de fișier cu cod VBA
Verificați dacă există un folder într-o cale de fișier, dacă nu, pentru a-l crea sub această cale de fișier specifică, următorul cod VBA vă poate ajuta să finalizați această lucrare.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: creați un folder dacă nu există într-o cale de fișier:
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
notițe: În codul de mai sus, ar trebui să schimbați calea și numele folderului C: \ Users \ DT168 \ Desktop \ Test folder la nevoia ta.
3. După lipirea codului și apăsați F5 cheie pentru al rula:
(1.) Dacă folderul există, va apărea o casetă de prompt, după cum se arată în următoarea captură de ecran:
(2.) Dacă folderul nu există, acesta va fi creat sub calea specifică simultan și va apărea o casetă de prompt pentru a vă reaminti că folderul a fost creat, consultați captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!