İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də xüsusi faylları bir qovluqdan digərinə necə daşımaq olar?

Şübhəsiz, aşağıdakı ekran görüntüsü kimi docx, jpg, xlsx, və s. Kimi fayl növləri olan böyük bir qovluq var. İndi birdən-birə əl hərəkət etmədən qovluqdan müəyyən bir fayl növlərini başqa bir yeni qovluqa daşımaq istəyirəm. Excel-də bu vəzifəni həll etmək üçün yaxşı fikirləriniz varmı?

Xüsusi faylları bir qovluqdan VBA kodu ilə başqa bir qovluğa daşıyın


Xüsusi faylları bir qovluqdan VBA kodu ilə başqa bir qovluğa daşıyın


Istədiyiniz qədər tez bir qovluqdan faylın bütün xüsusi növlərini daşımaq üçün aşağıdakı VBA kodu sizə kömək edə bilər, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Fərdi fayl növləri bir qovluqdan digərinə keçin:

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

Qeyd: Yuxarıdakı kodda "* .xlsx *""* .jpg"kitabında: xExtArr = Array ("*. xlsx *", "* .jpg") hərəkət etmək istədiyiniz fayl növləri, siz onları başqalarına dəyişdirə və ya başqa fayl növləri əlavə edə bilərsiniz.

3. Sonra basın F5 bu kodu çalıştırmak üçün bir tuşa basın və bir pencereden çıkartıp, faylları taşımak istediğiniz orijinal klasörü seçmenizi hatırlatmak üçün ekran görüntüsüne baxın:

4. Sonra basın OKvə başqa bir pəncərə açılırsa, faylları daşımaq istədiyiniz hədəf qovluğu seçin, ekran görüntüsünə baxın:

5. Və sonra basın OKbir sorğu qutusu, neçə faylın köçürüldüyünü xatırlatmaq üçün açılır, bağlayır və spesifik faylları görə bilərsiniz, xlsx faylları göstərilən qovluğa köçürülüb, ekran görüntüsünə baxın:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lokesh · 1 years ago
    To move or copy files from a folder to another based on excel list, and destination (path)
    on excel list. plz help...
  • To post as a guest, your comment is unpublished.
    lokesh · 1 years ago
    Hello
    To move or copy files from a folder to another based on excel list, the following article may help you!
  • To post as a guest, your comment is unpublished.
    Kumar · 1 years ago
    Hi,
    I need a help. Can we select few files and move them in to a separate folder by list in excel file?
    thanks in advance
  • To post as a guest, your comment is unpublished.
    rocky · 1 years ago
    Hi

    Thanks for helpful tip. I have around 5000 files listed on one excel file. I need to search all these files from the entire computer , if file names are matched then copy and paste in another folder