Tüm Excel dosyalarını bir klasörden nasıl hızlı bir şekilde açabilirim?
Bu makalede, tüm çalışma kitaplarını belirli bir klasörden açmak için makroyu tanıttım.
VBA ile bir klasördeki tüm çalışma kitaplarını açın
Kutools for Excel ile belirli bir klasörün tüm dosya adlarını listeleyin
VBA ile bir klasördeki tüm çalışma kitaplarını açın
1. Basın Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu komut dosyasına yapıştırın.
VBA: Bir klasördeki tüm Excel dosyalarını açın
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. Basın F5 tuşu, içindeki tüm çalışma kitaplarını açmak istediğiniz bir klasörü seçmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OKve belirli klasördeki tüm çalışma kitapları açıldı.
Kutools for Excel ile belirli bir klasörün tüm dosya adlarını listeleyin
Dosyaları bir klasörde açmak dışında, belirli bir klasörün tüm dosya adlarını listelemeyi denediniz mi? İle Kutools for Excel'S Dosya Adı Listesi yardımcı program, hızlı bir şekilde tüm dosya türlerini veya belirli bir dosya türünü tek bir klasörde listeleyebilirsiniz.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. tık Kutools Artı > İthalat ihracat > Dosya Adı Listesi. Ekran görüntüsüne bakın:
2. içinde 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 ihtiyaç duyduğunuz şekilde dosya boyutu birimini belirtin. İsterseniz, listelenecek dosya adlarına köprüler oluşturabilirsiniz. Ekran görüntüsüne bakın:
3. tık Okve 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:
Bir Klasörün Tüm Dosya Adlarını Listele
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!