Excel'de belirli dosyaları bir klasörden diğerine nasıl taşıyabilirim?
Diyelim ki, aşağıdaki ekran görüntüsü gibi docx, jpg, xlsx, vb. Gibi dosya türlerini içeren büyük bir klasörüm var. Şimdi, bazı belirli dosya türlerini tek tek elle taşımadan klasörden başka bir yeni klasöre taşımak istiyorum. Bu görevi Excel'de çözmek için iyi fikirleriniz var mı?
Belirli dosyaları bir klasörden başka bir klasöre VBA kodu ile taşıyın
Belirli dosyaları bir klasörden başka bir klasöre VBA kodu ile taşıyın
Tüm belirli dosya türlerini 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 şekilde yapın:
1. Bastır ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Belirli dosya türlerini bir klasörden diğerine taşıyın:
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"komut dosyasında: xExtArr = Dizi ("*. xlsx *", "* .jpg") taşımak istediğiniz dosya türleridir, bunları başkalarıyla değiştirebilir veya ihtiyaç duyduğunuzda başka dosya türleri ekleyebilirsiniz.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve dosyaları taşımak istediğiniz orijinal klasörü seçmenizi hatırlatan bir pencere açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OKve başka bir pencere açılır, lütfen dosyaları taşımak istediğiniz hedef klasörü seçin, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK, kaç dosyanın taşındığını, kapatıldığını hatırlatmak için bir komut kutusu açılır ve belirli jpg'yi, xlsx dosyalarının belirtilen klasöre taşındığını görebilirsiniz, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!