Excel открыть окно с файлами

При работе в Microsoft Excel бывает необходимость открыть несколько документов или один и тот же файл в нескольких окнах. В старых версиях и в версиях, начиная c Excel 2013, сделать это не составляет особых проблем. Просто открываем файлы стандартным способом, и каждый из них запустится в новом окне. Но вот в версиях приложения 2007 — 2010 новый документ открывается по умолчанию в родительском окне. Такой подход экономит системные ресурсы компьютера, но вместе с тем создает и ряд неудобств. Например, если пользователь хочет сравнить два документа, расположив окна на экране рядом, то при стандартных настройках это у него не получится. Рассмотрим, как это можно сделать всеми доступными способами.

Открытие нескольких окон

Если в версиях Эксель 2007 — 2010 у вас уже открыт документ, но вы попытаетесь запустить другой файл, то он откроется в том же родительском окне, просто заменив содержимое первоначального документа на данные из нового. Всегда будет возможность переключиться на первый запущенный файл. Для этого нужно навести на панели задач курсор на иконку Excel. Появится небольшие окошки для предпросмотра всех запущенных файлов. Перейти к конкретному документу можно просто кликнув по такому окошку. Но это будет именно переключение, а не полноценное открытие нескольких окон, так как одновременно вывести их на экран таким способом пользователь не сможет.

Но существует несколько уловок, с помощью которых можно отобразить несколько документов в Excel 2007 — 2010 на экране одновременно.

Одним из самых быстрых вариантов раз и навсегда решить проблему с открытием нескольких окон в Эксель является установка патча MicrosoftEasyFix50801.msi. Но, к сожалению, компания Майкрософт перестала поддерживать все решения Easy Fix, включая вышеуказанный продукт. Поэтому скачать его на официальном сайте сейчас нельзя. При желании можно на свой страх и риск произвести загрузку и установку патча с других веб-ресурсов, но при этом следует помнить, что данными действиями вы можете подвергнуть свою систему опасности.

Способ 1: панель задач

Одним из самых простых вариантов открытия нескольких окон является выполнение данной операции через контекстное меню значка на Панели задач.

1. После того, как один документ Эксель уже запущен, наводим курсор на иконку программы, размещенную на Панели задач. Кликаем по ней правой кнопкой мыши. Запускается контекстное меню. В нем выбираем в зависимости от версии программы пункт «Microsoft Excel 2007» или «Microsoft Excel 2010».
   

   Можно вместо этого кликнуть по значку Excel на панели задач левой кнопкой мышки при зажатой клавише Shift. Ещё один вариант — просто навести курсор на значок, после чего кликнуть колесиком мышки. Во всех случаях эффект будет тот же, но не понадобится активировать контекстное меню.

2. Открывается чистый лист Эксель в отдельном окне. Для того, чтобы открыть конкретный документ переходим во вкладку «Файл» нового окна и кликаем по пункту «Открыть».



3. В запустившемся окне открытия файла переходим в директорию, где расположен нужный документ, выделяем его и жмем на кнопку «Открыть».

После этого вы сможете работать с документами сразу в двух окнах. Таким же образом при необходимости можно запустить и большее количество.

Способ 2: окно «Выполнить»

Второй способ предполагает действия через окно «Выполнить».

1. Набираем на клавиатуре комбинацию клавиш Win+R.
2. Активируется окно «Выполнить». Набираем в его поле команду «excel».

После этого новое окно запустится, а для того, чтобы открыть в нем нужный файл выполняем те же действия, что и в предыдущем способе.

Способ 3: меню Пуск

Следующий способ подойдет только пользователям Windows 7 или более ранних версий операционной системы.

1. Кликаем по кнопке «Пуск» ОС Windows. Переходим по пункту «Все программы».



2. В открывшемся перечне программ переходим к папке «Microsoft Office». Далее кликаем левой кнопкой мыши по ярлыку «Microsoft Excel».

После этих действий запустится новое окно программы, в котором стандартным способом можно будет открыть файл.

Способ 4: Ярлык на Рабочем столе

Чтобы запустить программу Excel в новом окне, нужно дважды кликнуть по ярлыку приложения на рабочем столе. Если его нет, то в таком случае ярлык нужно создать.

1. Открываем Проводник Windows и если у вас установлен Excel 2010, то переходим по адресу:

   C:Program FilesMicrosoft OfficeOffice14

   Если установлен Эксель 2007, то в этом случае адрес будет такой:

   C:Program FilesMicrosoft OfficeOffice12



2. Попав в директорию программы, находим файл под названием «EXCEL.EXE». Если у вас не включен в операционной системе показ расширений, то он будет называться просто «EXCEL». Кликаем по данному элементу правой кнопкой мыши. В активировавшемся контекстном меню выбираем пункт «Создать ярлык».



3. Появится диалоговое окно, в котором говорится, что создать ярлык в данной папке нельзя, но можно поместить на рабочий стол. Соглашаемся, нажав кнопку «Да».

Теперь запускать новые окно можно будет через ярлык приложения на Рабочем столе.

Способ 5: открытие через контекстное меню

Все способы, которые были описаны выше, предполагают сначала запуск нового окна Excel, а уже потом через вкладку «Файл» открытие нового документа, что является довольно неудобной процедурой. Но существует возможность значительно облегчить открытие документов путем использования контекстного меню.

1. Создаем ярлык Excel на рабочем столе по алгоритму, который описан выше.
2. Кликаем по ярлыку правой кнопкой мыши. В контекстном меню останавливаем выбор на пункте «Копировать» или «Вырезать» в зависимости от того, желает пользователь, чтобы ярлык и дальше размещался на Рабочем столе или нет.



3. Далее следует открыть Проводник, после чего совершить переход по следующему адресу:

   C:UsersИмя_пользователяAppDataRoamingMicrosoftWindowsSendTo

   Вместо значения «Имя_пользователя» следует подставить наименование вашей учетной записи Windows, то есть, пользовательского каталога.

   Проблема состоит ещё и в том, что по умолчанию данная директория находится в скрытой папке. Поэтому нужно будет включить показ скрытых каталогов.



4. В открывшейся папке кликаем по любому пустому месту правой кнопкой мыши. В запустившемся меню останавливаем выбор на пункте «Вставить». Сразу же вслед за этим ярлык будет добавлен в данную директорию.



5. Затем открываем ту папку, где расположен файл, который нужно запустить. Кликаем по нему правой кнопкой мыши. В контекстном меню последовательно переходим по пунктам «Отправить» и «Excel».

Документ запустится в новом окне.

Один раз проделав операцию с добавлением ярлыка в папку «SendTo», мы получили возможность постоянно открывать файлы Excel в новом окне через контекстное меню.

Способ 6: изменения в системном реестре

Но можно сделать открытие файлов Excel в нескольких окнах ещё проще. После процедуры, которая будет описана ниже, подобным образом будут запускаться все документы, открытые обычным способом, то есть, двойным щелчком мыши. Правда, эта процедура предполагает манипуляции с системным реестром. Это значит, что нужно быть уверенным в себе, прежде чем браться за неё, так как любой неправильный шаг может фатально навредить системе в целом. Для того, чтобы в случае проблем можно было исправить ситуацию, перед началом манипуляций сделайте точку восстановления системы.

1. Для запуска окна «Выполнить», нажимаем комбинацию клавиш Win+R. В открывшемся поле вводим команду «RegEdit.exe» и жмем на кнопку «OK».



2. Происходит запуск Редактора реестра. В нем переходим по следующему адресу:

   HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand

   В правой части окна кликаем по элементу «По умолчанию».



3. Открывается окно его редактирования. В строке «Значение» меняем «/dde» на «/e “%1”». Остальную часть строки оставляем как есть. Жмем на кнопку «OK».



4. Находясь в том же разделе, кликаем правой кнопкой мыши по элементу «command». В открывшемся контекстном меню переходим по пункту «Переименовать». Произвольно переименовываем этот элемент.



5. Кликаем правой кнопкой мыши по наименованию раздела «ddeexec». В контекстном меню выбираем пункт «Переименовать» и тоже произвольно переименовываем данный объект.
   

   Таким образом, мы сделали возможным открытие стандартным способом в новом окне файлов с расширением xls.
6. Для того, чтобы выполнить данную процедуру для файлов с расширением xlsx, в Редакторе реестра переходим по адресу:

   HKEY_CLASSES_ROOTExcel.Sheet.12shellOpencommand

   Проделываем аналогичную процедуру и с элементами данной ветки. То есть, изменяем параметры элемента «По умолчанию», переименовываем элемент «command» и ветку «ddeexec».

После выполнения данной процедуры файлы формата xlsx тоже будут открываться в новом окне.

Способ 7: параметры Excel

Открытие нескольких файлов в новых окнах можно настроить также через параметры Excel.

1. Во время нахождения во вкладке «Файл» выполняем щелчок мышкой по пункту «Параметры».



2. Происходит запуск окна параметров. Переходим в раздел «Дополнительно». В правой части окна ищем группу инструментов «Общие». Устанавливаем галочку напротив пункта «Игнорировать DDE-запросы от других приложений». Жмем на кнопку «OK».

После этого новые запущенные файлы будут открываться в отдельных окнах. В то же время, перед завершением работы в Excel, рекомендуется снять галочку с пункта «Игнорировать DDE-запросы от других приложений», так как в обратном случае при следующем запуске программы возможно возникновение проблем с открытием файлов.

Поэтому, в некотором роде, данный способ менее удобен, чем предыдущий.

Способ 8: открытие одного файла несколько раз

Как известно, обычно программа Excel не дает открыть один и тот же файл в двух окнах. Тем не менее, это тоже можно сделать.

1. Запускаем файл. Переходим во вкладку «Вид». В блоке инструментов «Окно» на ленте жмем на кнопку «Новое окно».



2. После этих действий данный файл откроется ещё один раз. В Excel 2013 и 2016 он запустится сразу же в новом окне. Для того чтобы в версиях 2007 и 2010 документ открылся в отдельном файле, а не в новых вкладках, нужно произвести манипуляции с реестром, о которых шла речь выше.

Как видим, хотя по умолчанию в Excel 2007 и 2010 при запуске нескольких файлов будут открываться в одном и том же материнском окне, существует множество способов запустить их в разных окнах. Пользователь может сам выбрать более удобный, соответствующий своим потребностям вариант.

При работе в Microsoft Excel вам может потребоваться открыть несколько документов или один и тот же файл в нескольких окнах. В более ранних версиях и в версиях, начиная с Excel 2013, это не проблема. Мы просто открываем файлы стандартным способом, и каждый из них запускается в новом окне. Но в версиях приложения 2007–2010 новый документ по умолчанию открывается в главном окне. Такой подход экономит ресурсы компьютерной системы, но в то же время создает ряд недостатков. Например, если пользователь хочет сравнить два документа в параллельных окнах на экране, он не сможет сделать это со стандартными настройками. Давайте рассмотрим, как это можно сделать всеми доступными способами.

Открытие нескольких окон

Если в версиях Excel 2007–2010 у вас уже открыт документ, но вы пытаетесь запустить другой файл, он откроется в том же родительском окне, просто заменив содержимое исходного документа данными нового. Всегда будет возможность перейти к первому запущенному файлу. Для этого переместите курсор к значку Excel на панели задач. Появятся небольшие окна для предварительного просмотра всех запущенных файлов. Вы можете перейти к определенному документу, просто щелкнув это окно. Но это будет только переключатель, а не полноценное открытие нескольких окон, поскольку пользователь не может одновременно просматривать их на экране таким образом.

Но есть несколько приемов, которые можно использовать для одновременного просмотра нескольких документов в Excel 2007-2010 на экране.

Один из самых быстрых способов решить проблему с открытием нескольких окон в Excel раз и навсегда — это установить патч MicrosoftEasyFix50801.msi. К сожалению, Microsoft прекратила поддержку всех решений Easy Fix, включая указанный выше продукт. Поэтому скачать его на официальном сайте сейчас невозможно. При желании вы можете загрузить и установить патч с других веб-ресурсов на свой страх и риск, но вы должны помнить, что этими действиями вы можете поставить под угрозу свою систему.

Способ 1: панель задач

Один из более простых вариантов открытия нескольких окон — это сделать это через контекстное меню значка на панели задач.

1. После того, как документ Excel уже запущен, переместите курсор к значку программы, расположенному на панели задач. Щелкните по нему правой кнопкой мыши. Контекстное меню запускается. В нем выбираем, в зависимости от версии программы, пункт «Microsoft Excel 2007» или «Microsoft Excel 2010».

   

   Вместо этого вы можете щелкнуть значок Excel на панели задач левой кнопкой мыши, удерживая нажатой клавишу Shift. Другой вариант — просто навести указатель мыши на значок и затем щелкнуть колесиком мыши. Во всех случаях эффект будет одинаковым, но активировать контекстное меню необязательно.

2. Пустой лист Excel открывается в отдельном окне. Чтобы открыть конкретный документ, перейдите на вкладку «Файл» в новом окне и щелкните пункт «Открыть».
3. В открывшемся окне открытия файла перейдите в каталог, в котором находится нужный документ, выберите его и нажмите кнопку «Открыть».

После этого вы можете работать с документами одновременно в двух окнах. Точно так же, если необходимо, вы можете запустить их больше.

Способ 2: окно «Выполнить»

Второй способ предполагает действия через окно «Выполнить».

1. Набираем на клавиатуре комбинацию клавиш Win + R.
2. Окно «Выполнить» активировано. Набираем в его поле команду «excel».

После этого будет запущено новое окно, и чтобы открыть в нем нужный файл, выполняем те же действия, что и в предыдущем способе.

Способ 3: меню Пуск

Следующий метод подходит только для пользователей Windows 7 или более ранних версий операционной системы.

1. Нажмите кнопку «Пуск» в Windows. Переходим к «Все программы».
2. В открывшемся списке программ перейдите в папку «Microsoft Office». Затем щелкните левой кнопкой мыши ссылку «Microsoft Excel».

После этих действий будет запущено новое окно программы, в котором вы сможете открыть файл стандартным способом.

Способ 4: Ярлык на Рабочем столе

Чтобы запустить Excel в новом окне, нужно дважды щелкнуть ярлык приложения на рабочем столе. Если его там нет, вам нужно создать ссылку.

1. Откройте проводник Windows и, если у вас установлен Excel 2010, перейдите по ссылке:

   C: Program Files Microsoft Office Office14

   Если установлен Excel 2007, адрес будет следующим:

   C: Program Files Microsoft Office Office12

2. Попав в каталог программы, мы находим файл с именем «EXCEL.EXE». Если в вашей операционной системе не включено отображение расширений, она будет называться просто «EXCEL». Щелкните этот элемент правой кнопкой мыши. В активированном контекстном меню выберите пункт «Создать ссылку».
3. Появится диалоговое окно, указывающее, что в этой папке нельзя создать ярлык, но его можно разместить на рабочем столе. Мы принимаем, нажав кнопку «Да».

Теперь можно будет запускать новые окна через ярлык приложения на рабочем столе.

Способ 5: открытие через контекстное меню

Все описанные выше методы предполагают сначала запуск нового окна Excel, а только затем открытие нового документа через вкладку «Файл», что является довольно громоздкой процедурой. Но вы можете значительно упростить открытие документов, используя контекстное меню.

1. Создайте ярлык Excel на рабочем столе, используя алгоритм, описанный выше.
2. Щелкните ярлык правой кнопкой мыши. В контекстном меню мы останавливаем выбор на пункте «Копировать» или «Вырезать», в зависимости от того, хочет ли пользователь, чтобы ссылка продолжала размещаться на рабочем столе.
3. Затем вы должны открыть проводник и перейти по следующему адресу:

   C: Users Имя пользователя AppData Roaming Microsoft Windows SendTo

   Вместо значения «UserName» вы должны подставить имя вашей учетной записи Windows, которое является каталогом пользователя.

   Проблема в том, что по умолчанию этот каталог находится в скрытой папке. Следовательно, вам нужно будет включить просмотр скрытых каталогов.

4. В открывшейся папке щелкните любое пустое место правой кнопкой мыши. В стартовом меню отмените выбор пункта «Вставить». Вскоре ссылка будет добавлена ​​в этот каталог.
5. Затем откройте папку, в которой находится файл, который вы хотите запустить. Щелкните по нему правой кнопкой мыши. В контекстном меню последовательно переходите к пунктам «Отправить» и «Excel».

Документ откроется в новом окне.

После того, как мы сделали это, добавив ссылку на папку SendTo один раз, у нас появилась возможность постоянно открывать файлы Excel в новом окне через контекстное меню.

Способ 6: изменения в системном реестре

Но вы можете упростить открытие файлов Excel в нескольких окнах. После процедуры, которая будет описана ниже, аналогичным образом будут запущены все документы, открытые обычным способом, то есть двойным щелчком. Правда, эта процедура предполагает манипуляции с реестром. Это означает, что вы должны быть уверены в себе, прежде чем приступить к этому, поскольку любой неправильный шаг может фатально повредить систему в целом. Чтобы исправить ситуацию в случае возникновения проблем, перед началом манипуляций создайте точку восстановления системы.

1. Чтобы запустить окно «Выполнить», нажмите комбинацию клавиш Win + R. В открывшемся поле введите команду «RegEdit.exe» и нажмите кнопку «ОК».
2. Редактор реестра запускается. В нем мы идем по следующему адресу:

   HKEY_CLASSES_ROOT Excel.Sheet.8 shell Open команда

   В правой части окна нажмите «По умолчанию».

3. Откроется окно для редактирования. В строке «Значение» измените «/ dde» на «/ и«% 1 »». Остальную часть строки оставляем как есть. Щелкните кнопку «ОК».
4. Находясь в том же разделе, щелкните правой кнопкой мыши элемент «команда». В открывшемся контекстном меню перейдите к пункту «Переименовать». Мы произвольно переименовываем этот элемент.
5. Щелкните правой кнопкой мыши имя раздела «ddeexec». В контекстном меню выберите пункт «Переименовать» и также произвольно переименуйте этот объект.

   

   Поэтому мы сделали возможным открывать файлы с расширением xls стандартным способом в новом окне.

6. Чтобы выполнить эту процедуру для файлов .xlsx, перейдите по следующему адресу в редакторе реестра:

   HKEY_CLASSES_ROOT Excel.Sheet.12 shell Open команда

   Аналогичную процедуру проделываем с элементами этой ветки. То есть меняем параметры элемента «По умолчанию», переименовываем элемент «команда» и ветку «ddeexec».

После завершения этой процедуры файлы xlsx также откроются в новом окне.

Способ 7: параметры Excel

Открытие нескольких файлов в новых окнах также можно настроить с помощью параметров Excel.

1. На вкладке «Файл» щелкните пункт «Параметры».
2. Окно параметров запускается. Перейдите в раздел «Еще». В правой части окна найдите группу инструментов «Общие». Установите флажок «Игнорировать запросы DDE от других приложений». Щелкните кнопку «ОК».

После этого новые запущенные файлы будут открываться в отдельных окнах. В то же время перед выходом из Excel рекомендуется снять флажок «Игнорировать запросы DDE из других приложений», поскольку в противном случае при следующем запуске программы могут возникнуть проблемы с открытием файлов.

Поэтому в чем-то этот способ менее удобен, чем предыдущий.

Способ 8: открытие одного файла несколько раз

Как известно, Excel обычно не позволяет открывать один и тот же файл в двух окнах. Однако это тоже можно сделать.

1. Запустите файл. Перейдите на вкладку «Просмотр». На панели инструментов «Окно» на ленте нажмите кнопку «Новое окно».
2. После этих шагов этот файл откроется еще раз. В Excel 2013 и 2016 он сразу же запустится в новом окне. Чтобы документ открывался в отдельном файле в версиях 2007 и 2010, а не в новых вкладках, необходимо изменить реестр, как описано выше.

Как видите, хотя по умолчанию в Excel 2007 и 2010 при запуске нескольких файлов они открываются в одном главном окне, есть много способов запустить их в разных окнах. Пользователь может выбрать наиболее удобный вариант, соответствующий его потребностям.

Перейти к содержимому

Работая в программе MS Excel 2007 или 2010, пользователь может столкнуться с необходимостью работы с несколькими файлами одновременно. Причем, чтобы каждый документ открывался отдельно — это позволяет располагать их рядом на экране или переключаться на новый с панели задач. 

Но именно эти две версии Эксель по умолчанию открывают файлы на вкладках одного окна, запущенного первым. Таким способом экономятся ресурсы ПК, но создаются неудобства для пользователя. Исправить ситуацию можно, если знать, как открыть Эксель в разных окнах. 

Способ 1. Через панель задач

Самый простой способ открывать файлы Excel в разных окнах — использовать для этого панель задач. Для его использования следует выполнить такие действия:

• После запуска одного из документов, навести на появившуюся на панели задач иконку (кнопку) программы. 
• Кликнуть по ней правой клавишей компьютерной мыши и в меню выбрать название табличного процессора — Microsoft Excel 2007 или 2010. Иногда номер версии не указывается. 

Хитрости »

17 Июнь 2015              147342 просмотров

Диалоговое окно выбора файлов/папки

Часто при работе с файлами и написании кодов начинающие «кодить» в VBA сталкиваются с необходимостью предоставить пользователю возможность самостоятельного выбора файлов: либо всех в указанной папке, либо каких-то отдельных. Конечно, можно жестко в коде написать нечто вроде: «C:DocumentsFilesКнига1.xls», но это требует не только наличия именно диска С, но и полной структуры папок и имен файлов. Это очень неудобно в большинстве случаев и куда чаще необходимо дать пользователю возможность самому указать имя файла. Записывать в ячейку листа полный путь и имя весьма непрактично и часто для неискушенного пользователя вызывает только «отторжение» от программы. В статье Просмотреть все файлы в папке я приводил пример кода, который просматривает все файлы в указанной папке и папка при этом выбирается сами пользователем из привычного по работе с Windows диалога. Там используется диалог выбора папок. Именно на этом я и хочу сделать акцент в этой статье — рассказать про некоторые способы вызова подобных диалогов для выбора файлов или папки. Так же обращу внимание на некоторые вещи, которые следует учитывать при использовании того или иного типа диалогов.

• Диалог выбора файлов Applicaton.GetOpenFileName
• Диалог выбора файлов FileDialog(msoFileDialogFilePicker)
• Диалог выбора папки FileDialog(msoFileDialogFolderPicker)
• Диалог выбора папки через Shell
• Диалог сохранения файла SaveAs

Если рассматривать наиболее простые варианты, то их два. Выбрать файлы можно через Applicaton.GetOpenFileName или через Application.FileDialog. Отличия в них есть, но я заострю внимание на главном: GetOpenFileName будет работать в любой версии Excel, а класс FileDialog только начиная с Excel 2002, т.к. именно в этой версии впервые был использован класс FileDialog. Это стоит учитывать при разработке.

Диалог выбора файлов Applicaton.GetOpenFileName

Параметры:

Application.GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
По сути я часто использую именно его, т.к. это универсальный метод и в нем есть все, что лично мне необходимо: выбрать определенные типы файлов позволяет, возможность запрета выбора нескольких файлов сразу есть.

avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", 2, _
     "Выбрать текстовые или Excel файлы", , True)

avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", 2, _
     "Выбрать текстовые или Excel файлы", , False)

avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", 2, _
     "Выбрать текстовые или Excel файлы", , True)

Пример применения диалога Application.GetOpenFilename

Sub ShowGetOpenDialod()
    Dim avFiles
    'по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb)
    avFiles = Application.GetOpenFilename _
                ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файлы", , False)
    If VarType(avFiles) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If
    'avFiles - примет тип String
    MsgBox "Выбран файл: '" & avFiles & "'", vbInformation, "www.excel-vba.ru"
End Sub

В данном случае совершенно неважно указан ли выбор только одного файла или нескольких. Может поменяться только способ обработки полученного результата. Если параметр MultiSelect установлен в False, то переменная avFiles примет тип String, т.е. это будет одна строка. Предположим, что была выбрана книга Excel. Тогда открыть её можно будет как обычно это делается при использовании переменной:

Если же параметр MultiSelect установлен в True, то переменная avFiles примет тип Array — массив строк, в котором будут записаны все пути и имена выбранных файлов. Обрабатывать в таком случае следует циклом:

'avFiles - примет тип Array
    For Each x In avFiles
        Workbooks.Open x
    Next

В приложенном к статье файле приведены две процедуры с использованием этого типа диалога и обработкой файлов с параметром MultiSelect, установленным в True и False.

 
Диалог выбора файлов FileDialog(msoFileDialogFilePicker)

У этого диалога тоже есть параметры и они очень схожи с таковыми в Application.GetOpenFilename:
Ниже в статье примера кода с применением всех описанных параметров

.Filters.Add "Excel files", "*.xls*;*.xla*", 1 'добавляем возможность выбора файлов Excel
.Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов

.InitialFileName = "С:Temp"

.InitialFileName = "С:TempКнига1.xlsx"

For Each x In .SelectedItems
    Workbooks.Open x
Next

For lf = 1 to .SelectedItems.Count
    x = .SelectedItems(lf)
    Workbooks.Open x
Next

If .Show = 0 Then Exit Sub 'была нажата кнопка отмены

Пример вызова диалога выбора файлов:

Sub ShowFileDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Выбрать файлы отчетов" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
        .Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 2 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)
        .InitialFileName = "С:TempКнига1.xlsx" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf) 'считываем полный путь к файлу
            Workbooks.Open x 'открытие книги
            'можно также без х
            'Workbooks.Open .SelectedItems(lf)
        Next
    End With
End Sub

 
Диалог выбора папки

Диалог выбора папки необходим в случаях, когда файлов в папке много и обработать нужно все эти файлы. Пример такой обработки я уже выкладывал в статье Просмотреть все файлы в папке. Здесь проще всего использовать появившийся в 2002 Excel диалог Application.FileDialog. Его параметры практически такие же, как у Application.FileDialog(msoFileDialogFilePicker) только их меньше доступно для применения:

.InitialFileName = "С:Temp"

If .Show = 0 Then Exit Sub 'была нажата кнопка отмены

Пример вызова диалога выбора папки:

Sub ShowFolderDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выбрать папку с отчетами" '"заголовок окна диалога
        .ButtonName = "Выбрать папку"
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .InitialFileName = "C:Temp" '"назначаем первую папку отображения
        .InitialView = msoFileDialogViewLargeIcons 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        x = .SelectedItems(1) 'считываем путь к папке
        MsgBox "Выбрана папка: '" & x & "'", vbInformation, "www.excel-vba.ru"
    End With
End Sub

 
Диалог выбора папки через Shell

Диалог Application.FileDialog(msoFileDialogFolderPicker) всем хорош и удобен, кроме одного: как я уже упоминал, он стал доступен из VBA только начиная с 2002 Excel. Плюс, описанные выше диалоги не работают в Outlook — он просто лишен хоть какой-либо реализации выбора папок или файлов. Поэтому дополню статью еще одним вариантом показа диалога выбора папки — с помощью объекта Shell. Этот вариант выбора папки будет работать и в Outlook и в любом другом приложении.

Shell.BrowseForFolder([Hwnd], [sTitle], [iOptions], [vRootFolder])

Пример вызова диалога выбора папки через Shell:

Sub GetFolderDialog_Shell()
    On Error Resume Next
    Dim objShellApp As Object, objFolder As Object, ulFlags
    Dim x As String
    Set objShellApp = CreateObject("Shell.Application")
    'ulFlags - числовой код, определяющий вид отображаемого окна и некоторые параметры
    '    ulFlags = 0     - наиболее часто применяемый. Лучше использовать всегда именно 0
    '    ulFlags = 1     - не отображать Корзину
    '    ulFlags = 2     - не включать сетевые папки
    '    ulFlags = 20    - добавляется тестовое поле с отображением имени выбранной папки
    '    ulFlags = 16    - отображать EditBox для ввода полного пути с клавиатуры
    '    ulFlags = 16384 - можно так же выбирать файлы.
    'Некоторые константы можно комбинировать. Например если указать 1 + 16384 - то можно будет выбирать файлы
 
    ulFlags = 0
    Set objFolder = objShellApp.BrowseForFolder(0, "Выбрать папку с отчетами", ulFlags, "C:Temp")'"
    x = objFolder.Self.Path 'записываем в переменную путь к папке
    If Err.Number <> 0 Then
        MsgBox "Папка не выбрана!", vbInformation, "www.excel-vba.ru"
    Else
        MsgBox "Выбрана папка: '" & x & "'", vbInformation, "www.excel-vba.ru"
    End If
End Sub

Конечно, диалог подобный выглядит довольно убого, особенно на современных операционных системах. Но он работает в любых версиях офиса и в любом приложении, в том числе в Outlook. Порой это бывает полезней красоты.

Скачать пример:

  Tips_Macro_GetOpenFileFolder.xls (100,0 KiB, 3 740 скачиваний)

 
Диалог сохранения файла SaveAs

Еще один вид диалогового окна — запрос имени и места сохранения файла.
Параметры:

Application.GetSaveAsFilename([InitialFileName], [FileFilter], [FilterIndex], [Title], [ButtonText])
Универсальный диалог, работающий во всех версиях Excel, начиная с 2000

sToSavePath = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path)

sToSavePath = Application.GetSaveAsFilename(InitialFileName:="SaveAs.xlsm", FileFilter:="Excel files (*.xlsm), *.xlsm")

avFiles = Application.GetSaveAsFilename _
    (InitialFileName:=ThisWorkbook.Path, FileFilter:="Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", FilterIndex:=2)

Что еще важно знать: сам по себе вызов диалога GetSaveAsFilename ничего не сохраняет — он только создает путь для сохраняемого файла. Сохранять придется принудительно после выбора места и имени.
Пример применения диалога Application.GetSaveAsFilename

Sub ShowGetSaveAsDialod()
    Dim sToSavePath
    sToSavePath = Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Path, _
             FileFilter:="Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", _
             FilterIndex:=2, _
             Title:="Сохранить файл")
    'если нажали Отмена - завершаем процедуру ничего не сохраняя
    If VarType(sToSavePath) = vbBoolean Then
        Exit Sub
    End If
    'непосредственно сохранение файла
    ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=ThisWorkbook.FileFormat
End Sub

Здесь тоже есть нюанс — метод SaveAs имеет два важных аргумента:
1. Filename — путь и имя сохраняемого файла. Здесь должно быть все понятно. Указываем то, что выбрали в диалоге.
2. FileFormat — формат сохраняемого файла. При этом не текстовое представление(как в диалоге «xls» или «txt»), а одна из предустановленных констант формата файла. Вот основные константы:

Пример использования констант в диалогах Application.GetSaveAsFilename
Сохраняем файл с форматом xlsm — файл с поддержкой макросов. Для этого ищем в таблице выше расширение xlsm и берем либо константу Excel либо числовую константу:

Sub ShowGetSaveAsDialod()
    Dim sToSavePath
    sToSavePath = Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Path & "Report.xlsm", _
             FileFilter:="Excel files(*.xlsm),*.xlsm")
    'если нажали Отмена - завершаем процедуру ничего не сохраняя
    If VarType(sToSavePath) = vbBoolean Then
        Exit Sub
    End If
    'непосредственно сохранение файла
    'используем встроенную константу Excel
    ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    'используем числовую константу
    'ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=52
End Sub

Любой метод: либо числовая константа, либо встроенная работают одинаково. Вопрос лишь в том, что лично для Вас будет удобнее и нагляднее.

Так же см.:
Работа с диалогами
Как запретить сообщения?

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика