Як швидко відкрити всі файли Excel з папки?
У цій статті я представляю макрос, щоб відкрити всі книги з певної папки.
Відкрийте всі книги в папці з VBA
Перерахуйте всі імена файлів однієї конкретної папки за допомогою Kutools для Excel
Відкрийте всі книги в папці з VBA
1. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модуліта вставте нижче код у сценарій.
VBA: Відкрийте всі файли Excel у папці
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. прес F5 клавіша, вискакує діалогове вікно для вибору папки, для якої потрібно відкрити всі книги в ній. Дивіться знімок екрана:
4. клацання OK, і всі книги в певній папці були відкриті.
Перерахуйте всі імена файлів однієї конкретної папки за допомогою Kutools для Excel
За винятком відкриття файлів у папці, ви коли-небудь пробували перерахувати всі імена файлів однієї конкретної папки? С Kutools для ExcelАвтора Список імен файлів Ви можете швидко перерахувати всі типи або один конкретний тип файлів в одній папці.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. клацання Kutools Plus > Імпорт-експорт > Список імен файлів. Дивіться знімок екрана:
2 В Список імен файлів діалоговому вікні, виберіть папку, з якої потрібно перерахувати файли, вкажіть тип файлу, який потрібно перерахувати, а потім вкажіть одиницю розміру файлу, як вам потрібно. Якщо ви хочете, ви можете створити гіперпосилання на імена файлів, які будуть перелічені. Дивіться знімок екрана:
3. клацання Ok, а всі файли у певній папці перелічено на новому аркуші активної книги. Дивіться знімок екрана:
Перелічіть усі назви файлів папки
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!