Excel'de belirli dosyaları bir klasörden diğerine nasıl taşıyabilirim?
Diyelim ki aşağıdaki ekran görüntüsünde gösterildiği gibi, docx, jpg, xlsx vb. çeşitli dosya türlerini içeren büyük bir klasörüm var. Şimdi bu klasörden belirli dosya türlerini tek tek elle taşımak zorunda kalmadan, hepsini doğrudan yeni bir "Yeni Klasör"e aktarmak istiyorum. Bu görevi Excel’de çözmek için iyi bir fikriniz var mı?
Belirli dosyaları bir klasörden diğerine VBA koduyla taşıma
Belirli dosyaları bir klasörden diğerine VBA koduyla taşıma
Belirli Dosya Türü dosyalarını bir klasörden diğerine istediğiniz kadar hızlı taşımak için aşağıdaki VBA kodu size yardımcı olabilir; lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül’e tıklayın, ardından aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Belirli Dosya Türü dosyalarını bir klasörden diğerine 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*" ve "*.jpg" ifadeleri, betikteki xExtArr = Array("*.xlsx*", "*.jpg") satırında taşımayı istediğiniz dosya türleridir; bunları ihtiyacınıza göre 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; taşımayı yapmak istediğiniz orijinal klasörü seçmenizi hatırlatan bir pencere açılacaktır. Ekran görüntüsüne bakın:
4. Ardından taşımayı yapmak istediğiniz hedef klasörü seçmeniz için başka bir pencere açılacaktır; TAMAM'a tıklayın. Ekran görüntüsüne bakın:
5. Ardından TAMAM’a tıklayın; kaç dosyanın taşındığını hatırlatan bir uyarı kutusu açılacaktır. Bu kutuyu kapatın, ardından belirtilen JPG ve XLSX dosyalarının hedef klasöre başarıyla taşındığını göreceksiniz—ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar