Excel'de belirli dosyaları bir klasörden başka bir klasöre nasıl taşırsınız?

Diyelim ki, aşağıdaki ekran görüntüsünde gösterildiği gibi docx, jpg, xlsx vb. çeşitli dosyalar içeren büyük bir klasörüm var. Şimdi, bu dosyaları tek tek elle taşımadan bazı belirli dosya türlerini klasörden başka bir yeni klasöre taşımak istiyorum. Bu görevi Excel'de çözmek için iyi bir fikriniz var mı?

Belirli dosyaları bir klasörden başka bir klasöre VBA kodu ile taşıma

Belirli dosyaları bir klasörden başka bir klasöre VBA kodu ile taşıma

Bir klasörden diğerine tüm belirli dosya türlerini istediğiniz kadar hızlı bir şekilde taşımak için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu: Belirli dosya türlerini bir klasörden başka bir klasöre taşıma:

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

Not: Yukarıdaki kodda, "*.xlsx*", "*.jpg" betiğindeki xExtArr = Array("*.xlsx*", "*.jpg") ifadeleri taşımak istediğiniz dosya türleridir, bunları gerektiğinde değiştirebilir veya başka dosya türleri ekleyebilirsiniz.

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve size dosyaları nereden taşıyacağınızı seçmeniz için bir pencere açılacak, ekran görüntüsüne bakın:

4. Sonra Tamam'a tıklayın ve başka bir pencere açılacak, lütfen dosyaları taşımak istediğiniz hedef klasörü seçin, ekran görüntüsüne bakın:

5. Ardından Tamam'a tıklayın, size kaç dosyanın taşındığını bildiren bir uyarı kutusu açılacak, kapatın ve belirli jpg, xlsx dosyalarının belirlenen klasöre taşındığını görebilirsiniz, ekran görüntüsüne bakın: