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

Sut i symud ffeiliau penodol o un ffolder i'r llall yn Excel?

Gan dybio, mae gen i ffolder fawr sy'n cynnwys mathau o ffeiliau, fel docx, jpg, xlsx, ac ati fel y dangosir y screenshot canlynol. Nawr, rwyf am symud rhai mathau penodol o ffeiliau o'r ffolder i ffolder newydd arall heb symud fesul un â llaw. Oes gennych chi unrhyw syniadau da i ddatrys y dasg hon yn Excel?

Symud ffeiliau penodol o un ffolder i ffolder arall gyda chod VBA


Symud ffeiliau penodol o un ffolder i ffolder arall gyda chod VBA


I symud yr holl fathau penodol o ffeiliau o un ffolder i'r llall mor gyflym ag y dymunwch, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:

1. Dal i lawr 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: Symudwch fathau penodol o ffeiliau o un ffolder i un arall:

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

Nodyn: Yn y cod uchod, "* .xlsx *""* .jpg"yn y sgript: xExtArr = Array ("*. xlsx *", "* .jpg") yw'r mathau o ffeiliau rydych chi am eu symud, gallwch eu newid i eraill neu ychwanegu mathau eraill o ffeiliau yn ôl yr angen.

3. Yna pwyswch F5 allwedd i redeg y cod hwn, a ffenestr wedi'i popio allan i'ch atgoffa i ddewis y ffolder wreiddiol lle rydych chi am symud y ffeiliau, gweler y screenshot:

4. Yna cliciwch OK, ac mae ffenestr arall wedi'i popio i fyny, dewiswch y ffolder cyrchfan lle rydych chi am symud y ffeiliau i, gweler y screenshot:

5. Ac yna cliciwch OK, bydd blwch prydlon yn popio allan i'ch atgoffa faint o ffeiliau sydd wedi'u symud, ei gau, a gallwch weld y ffeiliau jpg penodol, xlsx sydd wedi'u symud i'r ffolder penodedig, gweler y screenshot:


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 (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi

Diolch am awgrym defnyddiol. Mae gen i tua 5000 o ffeiliau wedi'u rhestru ar un ffeil excel. Mae angen i mi chwilio'r holl ffeiliau hyn o'r cyfrifiadur cyfan , os yw enwau ffeiliau yn cyfateb yna copïwch a gludwch mewn ffolder arall
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Dwi angen help. A allwn ni ddewis ychydig o ffeiliau a'u symud i ffolder ar wahân fesul rhestr mewn ffeil excel?
Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Kumar,
I symud neu gopïo ffeiliau o ffolder i un arall yn seiliedig ar restr excel, efallai y bydd yr erthygl ganlynol yn eich helpu chi!
https://www.extendoffice.com/documents/excel/4775-move-files-based-on-excel-list.html

Gobeithio y gall eich helpu, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn, mae hyn yn ardderchog. Gwerthfawrogwch eich help yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwn ddewis llwybr destinaton yn y rhestr excel ar y macro hwn. plz help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr am eich help mawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo
I symud neu gopïo ffeiliau o ffolder i un arall yn seiliedig ar restr excel, efallai y bydd yr erthygl ganlynol yn eich helpu chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I symud neu gopïo ffeiliau o ffolder i un arall yn seiliedig ar restr excel, a chyrchfan (llwybr)
ar restr excel. help plz...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae cod yn gweithio'n wych ar gyfer yr hyn rydw i'n ei wneud. Diolch! Sut mae ei gael i wirio a yw ffeiliau'n bodoli yn y ffolder cyrchfan ac anogwch y defnyddiwr i ofyn a yw am drosysgrifo'r ffeiliau neu gadw fel enw ffeil arall? Rwy'n gweithio gyda ffeiliau .pdf yn arbed i'r ffolder cyrchfan.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni fyddaf yn cael unrhyw ffenestri naid ar ôl y sgrin ddethol
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir