Bu yazımızda, bir dosya iletişim kutusu ile birden çok dosyayı açmak için bir makro oluşturacağız.
Birden fazla dosyayı açmak için “opening_multiple_file” makrosunu oluşturduk. Bir kullanıcı, makroyu çalıştırmak için "Birden Çok Dosya Aç" düğmesine tıklayabilir.
Mantıksal açıklama
Birden fazla dosyayı açmak için “opening_multiple_file” makrosunu oluşturduk. Bir kullanıcı, makroyu çalıştırmak için "Birden Çok Dosya Aç" düğmesine tıklayabilir. Kullanıcının açmak istediği birden çok excel dosyasını seçebileceği dosya iletişim kutusunu açar.
Tüm dosyalar seçildikten sonra, seçilen tüm dosyaları açmak için “Tamam” düğmesine tıklayın.
Kod açıklaması
Application.FileDialog(msoFileDialogFilePicker)
Yukarıdaki kod, dosya iletişim kutusunu açmak için kullanılır.
.AllowMultiSelect = Doğru
Yukarıdaki kodda, AllowMultipleSelect özelliği, dosya iletişim kutusunda çoklu seçimi etkinleştirmek için true olarak ayarlanır.
.Filters."Excel Dosyaları", "*.xls*" ekleyin
Yukarıdaki kodda, dosya için filtre iletişim kutusu yalnızca Excel Dosyalarını seçecek şekilde ayarlanmıştır.
.Show = True ise
Yukarıdaki kod, bir kullanıcının dosya iletişim kutusunda “Tamam” veya “İptal” düğmesine basıp basmadığını kontrol etmek için kullanılır.
Workbooks.Open .SelectedItems(i)
Yukarıdaki kod, seçilen Excel dosyasını açmak için kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Sub opens_multiple_file() Dim i As Integer 'Application.FileDialog(msoFileDialogFilePicker) ile Dosya Açılıyor diyalog kutusu 'Birden fazla dosya etkinleştirme seç .AllowMultiSelect = True .Filters.Clear 'Yalnızca Excel dosyaları seçilebilir .Excelers.Add " , "*.xls*" If .Show = True O zaman For i = 1 To .SelectedItems.Count 'Seçili dosyanın açılması Workbooks.Open .SelectedItems(i) Sonraki i End If End With End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın