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

 Ինչպե՞ս ստուգել, ​​թե արդյոք պանակ գոյություն ունի, և եթե այն չստեղծել:

Երբևէ փորձե՞լ եք ստուգել ՝ Excel- ի աշխատանքային թերթիկից կա՞ պանակ, թե ոչ: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե արդյոք պանակ գոյություն ունի նշված ճանապարհում, եթե ոչ, պանակը ավտոմատ կերպով կստեղծվի ուղու տակ:

Ստուգեք, արդյոք VBA կոդով պանակ կա որոշակի ֆայլի ուղու մեջ

Ստեղծեք պանակ, եթե գոյություն չունի որոշակի ֆայլի ուղու մեջ, VBA կոդով


նետ կապույտ աջ պղպջակ Ստուգեք, արդյոք VBA կոդով պանակ կա որոշակի ֆայլի ուղու մեջ

Հաջորդ VBA կոդը կարող է օգնել ձեզ ստուգել, ​​թե արդյոք պանակ կա ֆայլի որոշակի ճանապարհում, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ստուգեք ՝ արդյոք պանակ կա ֆայլի որոշակի ուղու մեջ.

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

Նշում: Վերոնշյալ կոդում դուք պետք է փոխեք պանակի ուղին և անունը C: \ Users \ DT168 \ Desktop \ Test թղթապանակ ձեր անհրաժեշտին:

3, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը կստանա հետևյալ արդյունքները.

doc թղթապանակ գոյություն ունի 1


նետ կապույտ աջ պղպջակ Ստեղծեք պանակ, եթե գոյություն չունի որոշակի ֆայլի ուղու մեջ, VBA կոդով

Ստուգեք, արդյոք պանակ կա ֆայլի ուղու մեջ, եթե չկա, այս ֆայլի հատուկ ճանապարհի տակ ստեղծելու համար, հետևյալ VBA կոդը կարող է օգնել ձեզ ավարտել այս գործը:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ստեղծեք պանակ, եթե ֆայլի ուղու մեջ գոյություն չունի.

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

ՆշումՎերոհիշյալ կոդում դուք պետք է փոխեք պանակի ուղին և անունը C: \ Users \ DT168 \ Desktop \ Test թղթապանակ ձեր անհրաժեշտին:

3, Կոդը տեղադրելուց հետո և սեղմեք F5 այն գործարկելու բանալին.

(1.) Եթե պանակը գոյություն ունի, հուշման տուփ կհայտնվի, ինչպես ցույց է տրված հետևյալ նկարը.

doc թղթապանակ գոյություն ունի 2

(2.) Եթե պանակը գոյություն չունի, այն միանգամից կստեղծվի հատուկ ուղու տակ, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ պանակը ստեղծվել է, տես նկարի նկարը.

doc թղթապանակ գոյություն ունի 3


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (12)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն արտացոլում է սխալ @ fdObj.CreateFolder («C:\Users\DT168\Desktop\Test folder»)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալոկ,
Վերոնշյալ կոդերը լավ են աշխատում իմ Excel-ի աշխատանքային գրքում, «C:\Users\DT168\Desktop\Test folder» ուղին իմ համակարգչի ճանապարհն է, դուք պետք է փոխեք թղթապանակի ուղին ձեր սեփական ճանապարհով:
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի հոդված: Հենց այն, ինչ փնտրում էի :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա իսկապես օգտակար է: շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն մարդ, հիանալի աշխատիր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սուպեր շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես աշխատում եմ այս մակրոյով, բայց թղթապանակը ստեղծելու քայլում գործընթացը իջնում ​​է:

կարող ես ինձ օգնել????


«Comprobar si la carpeta գոյություն ունի

Dim ruta As String
Dim libro As String

M = ActiveWorkbook.Name

ruta = Application.Workbooks(M).Sheets("Diccionario").Range("B5").Value

If Right (ruta, 1) <> "\" Ապա
ruta = ruta & "\"
Վերջ: Եթե
Եթե ​​Dir(ruta, vbDirectory) <> vbNullString Այնուհետեւ
MsgBox «Թղթապանակ գոյություն ունի, խնդրում ենք շարունակել»
Ուրիշ
MsgBox «Թղթապանակ գոյություն չունի»
Վերջ: Եթե

«Crea la carpeta que necesitas

Dim fdObj Որպես օբյեկտ
Պղտոր թղթապանակը որպես տող

թղթապանակ = Application.Workbooks(M).Sheets("Dicionario").Range("B5").Value (այստեղ գործընթացն ընկնում է)

Դիմում. ScreenUpdating = Սուտ է
Սահմանել fdObj = CreateObject ("Scripting.FileSystemObject")
Եթե ​​fdObj.FolderExists(թղթապանակ) Ապա
MsgBox «Գտա, խնդրում եմ շարունակել»:
Ուրիշ
fdObj.CreateFolder (թղթապանակ)
MsgBox «Այն ստեղծվել է»:
Վերջ: Եթե
Դիմում. ScreenUpdating = ueիշտ է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Սա հիանալի է աշխատում: Հնարավորություն կա՞, որ թղթապանակի անվանումը, որն օգտագործվում է ստուգելիս, արդյոք արդեն գոյություն ունի թղթապանակ, բխում է աղյուսակի բջիջից, ասենք A2-ից:

Ես օգտագործում եմ ձևանմուշային աղյուսակ, որը ինքնաբերաբար թարմացվում է մեկ այլ աղբյուրից, ուստի A2 բջիջը անընդհատ փոխվում է, ինչը պահանջում է նույն անունով նոր թղթապանակներ ստեղծել:

Նաև կարո՞ղ է լինել այնպիսի հրաման, որն անում է վերը նշվածը, բայց նաև պահպանում է ակտիվ աղյուսակը գտնված / ստեղծված թղթապանակում:

Որևէ հույս: TIA
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
գերազանց, me sirvió mucho el Objeto. Օգտագործեք գորգերի արխիվները: շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես ստեղծել թղթապանակ աշխատասեղանին vba-ով, երբ excel գիրքը բացվում է, եթե կա, անտեսեք:
Հաղորդագրություն, եթե ստեղծեք նոր թղթապանակ, լուռ, եթե թղթապանակը գոյություն ունի:


Մասնավոր ենթագիրք_Բաց()

Dim cob As Variant
Dim FolderName-ը որպես տող, FolderExists որպես տող
FolderName = "C:\Users\AAAAA\Desktop\A New Folder" '---->Փոխեք թղթապանակի անունը ըստ համապատասխանության: Փոխեք AAAAA-ն ձեր պահանջներին համապատասխան:
FolderExists = Dir(FolderName, vbDirectory)

Դիմում. ScreenUpdating = Սուտ է

Եթե ​​FolderExists = vbNullString Այնուհետեւ
MsgBox «Աշխատասեղանի թղթապանակը գոյություն չունի: Այժմ նոր թղթապանակ է ստեղծում», vbExclamation, «INFORMATION»
cOb = CreateObject("wscript.shell").specialfolders("Desktop") & "\" & "A New Folder" '--->Փոխեք թղթապանակի անունը ըստ համապատասխանության:
MkDir cob
Ուրիշ. Ելք Ենթ
Վերջ: Եթե

Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես ստեղծել թղթապանակ աշխատասեղանին vba-ով, երբ excel գիրքը բացվում է, եթե կա, անտեսեք:
Հաղորդագրություն, եթե ստեղծեք նոր թղթապանակ, լուռ, եթե թղթապանակը գոյություն ունի:

Մասնավոր ենթագիրք_Բաց()

Dim cob As Variant
Dim FolderName-ը որպես տող, FolderExists որպես տող
FolderName = "C:\Users\" & Environ("username") & "\Desktop\"MyFolder\" '--->Փոխեք թղթապանակի անունը ըստ համապատասխանության:
FolderExists = Dir(FolderName, vbDirectory)

Դիմում. ScreenUpdating = Սուտ է

Եթե ​​FolderExists = vbNullString Այնուհետեւ
MsgBox «Աշխատասեղանի թղթապանակը գոյություն չունի: Այժմ նոր թղթապանակ է ստեղծում», vbExclamation, «INFORMATION»
cOb = CreateObject("wscript.shell").specialfolders("Desktop") & "\" & "MyFolder" '--->Փոխեք թղթապանակի անունը ըստ համապատասխանության:
MkDir cob
Ուրիշ. Ելք Ենթ
Վերջ: Եթե

Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Buonasera,

Non conosco il Vs. sito e mi sono imbattuto per caso su questa page.
Ho letto quanto scritto sopra e se è possibile avrei bisogno del Vs. այուտո.
Mi occorrerebbe una macro che in un percorso variabile ad un Host facente parte della stessa lan verfiche se è aperto un file exel dal nome variabile, e nel caso sia aperto chiuda il file and cancella tutto il contenuto della cartella filesteso.
Provo a spiegarmi meglio:
nel percorso:\\host01\Users\utente\Desktop\liste\Nome_Cognome_Gennaio\Operatore_16_Gennaio.xlsm
ներկայացնում է excel ֆայլի անունը՝ Operatore_16_Gennaio.xlsm

Il percorso non semper è lo stesso così come il nome del file excel. Infatti il ​​percorso cambia solo nel Nome_Cognome,es: \Desktop\liste\Sempronio_zeta_Gennaio\Operatore_01_Gennaio.xlsm.)

Հնարավո՞ր է արդյոք մակրո չե ֆա քվանտո նկարագրել սոպրա:

Ringrazio anticipatamente
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից