W tym artykule utworzymy makro do otwierania wielu plików w oknie dialogowym pliku.
Stworzyliśmy makro „opening_multiple_file”, aby otworzyć wiele plików. Użytkownik może kliknąć przycisk „Otwórz wiele plików”, aby uruchomić makro.
Wyjaśnienie logiczne
Stworzyliśmy makro „opening_multiple_file”, aby otworzyć wiele plików. Użytkownik może kliknąć przycisk „Otwórz wiele plików”, aby uruchomić makro. Otwiera okno dialogowe pliku, z którego użytkownik może wybrać wiele plików programu Excel, które chce otworzyć.
Po wybraniu wszystkich plików kliknij przycisk „OK”, aby otworzyć wszystkie wybrane pliki.
Wyjaśnienie kodu
Application.FileDialog(msoFileDialogFilePicker)
Powyższy kod służy do otwierania okna dialogowego pliku.
.AllowMultiSelect = Prawda
W powyższym kodzie właściwość AllowMultipleSelect jest ustawiona na true, aby umożliwić wielokrotny wybór w oknie dialogowym pliku.
.Filtry.Dodaj "Pliki Excela", "*.xls*"
W powyższym kodzie okno dialogowe filtrowania plików jest ustawione tak, aby wybrać tylko pliki programu Excel.
Jeśli .Show = True Wtedy
Powyższy kod służy do sprawdzenia, czy użytkownik naciśnie przycisk „OK” lub „Anuluj” w oknie dialogowym pliku.
Workbooks.Open .SelectedItems(i)
Powyższy kod służy do otwierania wybranego pliku Excel.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub opening_multiple_file() Dim i As Integer 'Okno dialogowe otwierania pliku za pomocą Application.FileDialog(msoFileDialogFilePicker) 'Włączanie wielu plików select .AllowMultiSelect = True .Filters.Clear 'Można wybierać tylko pliki Excel .Filters.Dodaj "Pliki Excela" , "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count 'Otwieranie wybranego pliku Workbooks.Open .SelectedItems(i) Next i End If End With End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail