Ինչպե՞ս 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-օրյա գումարի վերադարձի երաշխիք:
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
