Bir klasörden tüm Excel dosyalarını hızlıca nasıl açabilirim?

Bu makalede, belirli bir klasörden tüm çalışma kitaplarını açmak için bir makro tanıtacağım.

VBA ile bir klasördeki tüm çalışma kitaplarını açın

Kutools for Excel ile belirli bir klasördeki tüm dosya adlarını listeleme

VBA ile bir klasördeki tüm çalışma kitaplarını açın

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

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

VBA: Bir klasördeki tüm Excel dosyalarını açma

Sub OpenFiles()
'UpdateByExtendoffice20160623
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xFile = Dir(xStrPath & "\*.xlsx")
    Do While xFile <> ""
        Workbooks.Open xStrPath & "\" & xFile
        xFile = Dir
    Loop
End Sub

3. Tuşa basın F5 tuşuna bastığınızda, içindeki tüm çalışma kitaplarını açmak istediğiniz klasörü seçmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:

4. Tamam'a tıklayın ve belirli klasördeki tüm çalışma kitapları açılacaktır.

Kutools for Excel ile belirli bir klasördeki tüm dosya adlarını listeleme

Bir klasördeki dosyaları açmanın yanı sıra, daha önce belirli bir klasördeki tüm dosya adlarını listelemeyi denediniz mi? Kutools for Excel'in Dosya Adı Listesi yardımcı programıyla, bir klasördeki tüm türlerdeki veya belirli bir türdeki dosyaları hızlıca listeleyebilirsiniz.

1. Tıklayın Kutools Plus > İçe Aktar & Dışa Aktar > Dosya Adı Listesi. Ekran görüntüsüne bakın:

2. Dosya Adı Listesi iletişim kutusunda, dosyaları listelemek istediğiniz klasörü seçin, listelemek istediğiniz dosya türünü belirtin ve ardından dosya boyutunun birimini ihtiyacınıza göre belirtin. İsterseniz, listelenecek dosya adlarına bağlantılar oluşturabilirsiniz. Ekran görüntüsüne bakın:

3. Tıklayın Tamam, ve belirli klasördeki tüm dosyalar, etkin çalışma kitabının yeni bir sayfasında listelenmiştir. Ekran görüntüsüne bakın:

Demo: Kutools for Excel kullanarak bir klasördeki tüm dosya adlarını listeleme