Note: The other languages of the website are Google-translated. Back to English

 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


swigen dde glas saeth 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:

ffolder doc yn bodoli 1


swigen dde glas saeth 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:

ffolder doc yn bodoli 2

(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:

ffolder doc yn bodoli 3


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n adlewyrchu gwall @ fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Alok,
Mae'r codau uchod yn gweithio'n dda yn fy llyfr gwaith Excel, y llwybr "C: \ Users \ DT168 \ Desktop \ Test folder" yw fy llwybr cyfrifiadur, dylech newid y llwybr ffolder i'ch un chi.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Erthygl wych. Yr union beth roeddwn i'n edrych amdano :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn help mawr! diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Dyn, gwaith anhygoel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Super Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n rhedeg y macro hwn, ond yn y cam i greu'r ffolder, mae'r broses yn mynd i lawr.

allwch chi fy helpu ????


'Comprobar si la carpeda existe

Dim ruta Fel Llinynnol
Dim llyfr Fel Llinynnol

M = ActiveWorkbook.Name

ruta = Cymhwysiad.Llyfrau Gwaith(M).Taflenni("Diccionario").Range("B5").Gwerth

If Right(ruta, 1) <> "\" Yna
ruta = ruta & "\"
Gorffennwch Os
Os yw Dir(ruta, vbDirectory) <> vbNullString Yna
msgstr "Mae'r ffolder yn bodoli, parhewch os gwelwch yn dda"
arall
msgstr "Nid yw'r ffolder yn bodoli"
Gorffennwch Os

'Crea la carpeda que necesitas

Dim fdObj Fel Gwrthrych
Dim ffolder Fel Llinynnol

ffolder = Application.Workbooks(M).Sheets("Dicionario").Range("B5").Gwerth (dyma lle mae'r broses yn disgyn)

Application.ScreenUpdating = Anghywir
Gosod fdObj = CreateObject ("Scripting.FileSystemObject")
Os fdObj.FolderExists(ffolder) Yna
msgstr "Wedi dod o hyd iddo, parhewch."
arall
fdObj.CreateFolder (ffolder)
msgstr "Mae wedi ei greu."
Gorffennwch Os
Application.ScreenUpdating = Gwir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae hyn yn gweithio'n wych, a fyddai unrhyw siawns bod enw'r ffolder a ddefnyddir wrth wirio a yw ffolder yn bodoli eisoes yn deillio o gell o fewn y daenlen, dywedwch A2??

Rwy'n defnyddio taenlen dempled sy'n cael ei diweddaru'n awtomatig o ffynhonnell arall, felly mae cell A2 yn newid yn gyson sy'n gofyn am greu ffolderi newydd yn yr un enw.

Hefyd, a allai fod gorchymyn o'r fath sy'n gwneud yr uchod ond hefyd yn arbed y daenlen weithredol yn y ffolder a ddarganfuwyd / a grëwyd?

Unrhyw obaith? TIA
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ardderchog, mi sirvió mucho el Objeto. Defnydd ar gyfer carpeda fel archifau. Llawer o gracias
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i greu ffolder mewn bwrdd gwaith gyda vba pryd bynnag y bydd y llyfr excel yn cael ei agor, os yw'n bodoli, anwybyddwch.
Neges os creu ffolder newydd, yn dawel os yw'r ffolder yn bodoli.


Is-lyfr gwaith preifat_Agored()

Dim cOb Fel Amrywiad
Enw Ffolder Dim Fel Llinyn, FolderExists Fel Llinynnol
FolderName = "C:\Users\AAAAAA\Desktop\Ffolder Newydd" '----> Newid enw'r ffolder i weddu. Newidiwch yr AAAAAA i'ch gofyniad.
FolderExists = Cyfeiriad(FolderName, vbDirectory)

Application.ScreenUpdating = Anghywir

Os FolderExists = vbNullString Yna
msgstr "Nid yw'r ffolder bwrdd gwaith yn bodoli. Creu ffolder newydd nawr.", vbExclamation, "GWYBODAETH"
cOb = CreateObject ("wscript.shell").specialfolders("Penbwrdd") & "\" & "Ffolder Newydd" ' --->Newid enw'r ffolder i siwtio.
MkDir cOb
Arall: Exit Sub
Gorffennwch Os

Application.ScreenUpdating = Gwir

Is-End

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i greu ffolder mewn bwrdd gwaith gyda vba pryd bynnag y bydd y llyfr excel yn cael ei agor, os yw'n bodoli, anwybyddwch.
Neges os creu ffolder newydd, yn dawel os yw'r ffolder yn bodoli.

Is-lyfr gwaith preifat_Agored()

Dim cOb Fel Amrywiad
Enw Ffolder Dim Fel Llinyn, FolderExists Fel Llinynnol
FolderName = "C:\Users\" & Environ("enw defnyddiwr") & "\Desktop\Fy Ffolder\" '--->Newid enw'r ffolder i weddu.
FolderExists = Cyfeiriad(FolderName, vbDirectory)

Application.ScreenUpdating = Anghywir

Os FolderExists = vbNullString Yna
msgstr "Nid yw'r ffolder bwrdd gwaith yn bodoli. Creu ffolder newydd nawr.", vbExclamation, "GWYBODAETH"
cOb = CreateObject ("wscript.shell").specialfolders("Penbwrdd") & "\" &"Fy Ffolder" '--->Newid enw'r ffolder i weddu.
MkDir cOb
Arall: Exit Sub
Gorffennwch Os

Application.ScreenUpdating = Gwir

Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir