Sut i wirio a oes ffolder yn bodoli ac os nad ei greu?
A ydych erioed wedi ceisio gwirio a yw ffolder yn bodoli ai peidio o daflen waith Excel? Yn yr erthygl hon, byddaf yn siarad am wirio a yw ffolder yn bodoli mewn llwybr penodol, os na, bydd y ffolder yn cael ei greu yn awtomatig o dan y llwybr.
Gwiriwch a yw ffolder yn bodoli mewn llwybr ffeil penodol gyda chod VBA
Creu’r ffolder os nad yw’n bodoli mewn llwybr ffeil penodol gyda chod VBA
Gwiriwch a yw ffolder yn bodoli mewn llwybr ffeil penodol gyda chod VBA
Efallai y bydd y cod VBA canlynol yn eich helpu i wirio a oes ffolder yn bodoli mewn llwybr ffeil penodol, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Gwiriwch a yw ffolder yn bodoli mewn llwybr ffeil penodol:
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
Nodyn: Yn y cod uchod, dylech newid llwybr ac enw'r ffolder C: \ Defnyddiwr \ DT168 \ Penbwrdd \ Ffolder prawf i'ch angen chi.
3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, fe gewch y canlyniadau canlynol:
Creu’r ffolder os nad yw’n bodoli mewn llwybr ffeil penodol gyda chod VBA
Gwiriwch a yw ffolder yn bodoli mewn llwybr ffeil, os na, i'w greu o dan y llwybr ffeil penodol hwn, gall y cod VBA canlynol eich helpu i orffen y swydd hon.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Creu ffolder os nad yw'n bodoli mewn llwybr ffeil:
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
Nodyn: Yn y cod uchod, dylech newid llwybr ac enw'r ffolder C: \ Defnyddiwr \ DT168 \ Penbwrdd \ Ffolder prawf i'ch angen chi.
3. Ar ôl pasio'r cod, a gwasgwch F5 allwedd i'w redeg:
(1.) Os yw'r ffolder yn bodoli, bydd blwch prydlon yn ymddangos fel y dangosir y llun a ganlyn:
(2.) Os nad yw'r ffolder yn bodoli, bydd yn cael ei greu o dan y llwybr penodol ar unwaith, a bydd blwch prydlon yn popio allan i'ch atgoffa bod y ffolder wedi'i chreu, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!