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

Ինչպե՞ս Excel- ում հատուկ ֆայլեր մի թղթապանակից մյուսը տեղափոխել:

Ենթադրելով, ես ունեմ մի մեծ պանակ, որը պարունակում է տարբեր ֆայլեր, ինչպիսիք են docx, jpg, xlsx և այլն, ինչպես ցույց է տրված հետևյալ նկարը: Այժմ ես ուզում եմ ֆայլերի որոշ հատուկ տեսակներ թղթապանակից տեղափոխել մեկ այլ նոր պանակ ՝ առանց մեկ առ մեկ ձեռքով տեղափոխվելու: Ունեք լավ գաղափարներ Excel- ում այս խնդիրը լուծելու համար:

Հատուկ ֆայլեր մի թղթապանակից տեղափոխեք VBA կոդով մեկ այլ պանակ


Հատուկ ֆայլեր մի թղթապանակից տեղափոխեք VBA կոդով մեկ այլ պանակ

Բոլոր հատուկ տիպի ֆայլերը մի թղթապանակից մյուսը տեղափոխելու համար, որքան ցանկանում եք, հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

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

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

VBA կոդ. Հատուկ տեսակի ֆայլեր մի թղթապանակից տեղափոխեք մյուսը.

Sub MoveFiles()
'Updateby Extendoffice
    Dim xFd As FileDialog
    Dim xTFile As String
    Dim xExtArr As Variant
    Dim xExt As Variant
    Dim xSPath As String
    Dim xDPath As String
    Dim xSFile As String
    Dim xCount As Long
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Please select the original folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xFd.Title = "Please select the destination folder:"
    If xFd.Show = -1 Then
        xDPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
    xExtArr = Array("*.xlsx*", "*.jpg")
    For Each xExt In xExtArr
        xTFile = Dir(xSPath & xExt)
        Do While xTFile <> ""
            xSFile = xSPath & xTFile
            FileCopy xSFile, xDPath & xTFile
            Kill xSFile
            xTFile = Dir
            xCount = xCount + 1
        Loop
    Next
    MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub

ՆշումՎերոհիշյալ ծածկագրում »,* .xlsx *""* .jpg"սցենարում. xExtArr = զանգված ("*. xlsx *", "* .jpg") այն ֆայլերի տեսակներն են, որոնք ցանկանում եք տեղափոխել, կարող եք դրանք փոխել ուրիշների կամ ավելացնել անհրաժեշտ այլ ֆայլերի տեսակներ:

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և դուրս եկավ մի պատուհան ՝ հիշեցնելու ձեզ ընտրել այն սկզբնական թղթապանակը, որտեղից ցանկանում եք ֆայլերը տեղափոխել, տե՛ս նկարը.

4. Այնուհետեւ կտտացրեք OK, և մեկ այլ պատուհան է հայտնվում, ընտրեք նպատակակետի պանակը, որտեղ ցանկանում եք ֆայլերը տեղափոխել, տես նկարի նկարը.

5. Եվ այնուհետեւ կտտացրեք OK, արագ պատուհանը դուրս կգա ՝ հիշեցնելու համար, թե քանի ֆայլ է տեղափոխվել, փակեք այն, և դուք կարող եք տեսնել, որ կոնկրետ jpg, xlsx ֆայլերը տեղափոխվել են նշված պանակ, տես նկարի նկարը.


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi

Շնորհակալություն օգտակար հուշման համար: Ես ունեմ մոտ 5000 ֆայլ, որոնք նշված են մեկ Excel ֆայլում: Ես պետք է որոնեմ այս բոլոր ֆայլերը ամբողջ համակարգչից, եթե ֆայլերի անունները համընկնում են, ապա պատճենեք և տեղադրեք մեկ այլ թղթապանակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ես օգնության կարիք ունեմ։ Կարո՞ղ ենք ընտրել մի քանի ֆայլ և դրանք տեղափոխել առանձին թղթապանակ՝ ըստ ցանկի excel ֆայլում:
շնորհակալ եմ նախապես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Կումար,
Excel ցուցակի հիման վրա ֆայլերը թղթապանակից մյուսը տեղափոխելու կամ պատճենելու համար կարող է օգնել ձեզ հետևյալ հոդվածը:
https://www.extendoffice.com/documents/excel/4775-move-files-based-on-excel-list.html

Հուսով եմ, որ դա կարող է օգնել ձեզ, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ, սա հիանալի է: Իսկապես գնահատում եմ ձեր օգնությունը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ ենք այս մակրոյի Excel ցուցակում ընտրել destinaton ուղին: խնդրում եմ օգնեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ շնորհակալ եմ ձեր մեծ օգնության համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ
Excel ցուցակի հիման վրա ֆայլերը թղթապանակից մյուսը տեղափոխելու կամ պատճենելու համար կարող է օգնել ձեզ հետևյալ հոդվածը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Excel ցուցակի և նպատակակետի (ուղու) հիման վրա ֆայլերը թղթապանակից մյուսը տեղափոխելու կամ պատճենելու համար
excel ցուցակում։ խնդրում եմ օգնեք...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կոդը հիանալի է աշխատում այն ​​ամենի համար, ինչ ես անում եմ: Շնորհակալություն! Ինչպե՞ս կարող եք ստուգել, ​​թե արդյոք ֆայլերը գոյություն ունեն նպատակակետ թղթապանակում և հուշում է օգտվողին հարցնել, արդյոք նրանք ցանկանում են վերագրանցել ֆայլերը կամ պահպանել որպես այլ ֆայլի անուն: Ես աշխատում եմ .pdf ֆայլերի հետ, որոնք պահվում են նպատակակետ թղթապանակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս ընտրության էկրանից հետո ես բացվող պատուհաններ չեմ ստանում
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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