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:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin