Как бързо да отворите всички Excel файлове от папка?
В тази статия представям макроса за отваряне на всички работни книги от конкретна папка.
Отворете всички работни книги в папка с VBA
Избройте всички имена на файлове на една конкретна папка с Kutools за Excel 
Отворете всички работни книги в папка с VBA
1. Натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии поставете кода по-долу в скрипта.
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 плюс > Внос износ > Списък с имена на файлове. Вижте екранна снимка:
2. В Списък с имена на файлове изберете папка, от която искате да изброите файловете, укажете типа на файла, който искате да изброите, и след това укажете единицата за размера на файла, както ви е необходимо. Ако искате, можете да създадете хипервръзки към имената на файловете, които ще бъдат изброени. Вижте екранна снимка:
3. кликване Okи всички файлове в конкретната папка са изброени в нов лист на активната работна книга. Вижте екранна снимка:
Избройте всички имена на файлове в папка
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
