3. Существование

Sub СуществованиеФайла(ВыбранныйМесяц)

Dim П, Path, Папка, Путь, ИмяКниги As String

Dim i As Integer

П = Dir("F:\Запросы\", vbDirectory)

If П = "" Then

MsgBox "Папка Запросы не существует!"

End

End If

Path = "F:\Запросы\" & ВыбранныйМесяц

Путь = "F:\Запросы\" & ВыбранныйМесяц & ".xls"

If Dir(Путь) = "" Then

MsgBox ("База данных " & ВыбранныйМесяц & " не найдена!"), _

vbInformation

End

End If

ИмяКниги = ВыбранныйМесяц & ".xls"

For i = 1 To Workbooks.Count

If Workbooks(i).Name = ИмяКниги Then

Workbooks(i).Activate

Exit Sub

End If

Next i

Workbooks.Open Filename:=Path

End Sub

3. План тестированияпрограммы

1. Папка С:\Запросы не существует: программа выводит на экран информационное сообщение о том, что папка Запросы не найдена и завершает работу.

2. Папка Запросы существует: программа проверяет, есть ли в этой папке базы данных Апрель.xlsили Март.xls.

3. База данных Апрель.xlsили Март.xlsне существует: программа выводит на экран информационное сообщение о том, что база данных Апрель.xlsили Март.xlsне найдена и завершает работу.

4. База данных Апрель.xlsили Март.xlsсуществует: программа проверяет, открыта книга Апрель.xlsили Март.xlsили закрыта.

5. Книга Апрель.xlsили Март.xlsзакрыта: программа открывает базу данных Апрель.xlsили Март.xls.

6. Книга Апрель.xlsили Март.xlsоткрыта: программа начинает работу с базой данных Апрель.xlsили Март.xls.

7. Папка С:\Запросы\Апрель или С:\Запросы\Март для сохранения конечного файла не существует: программа создает папку на диске С:\.

8. Папка С:\Запросы\Апрель или С:\Запросы\Март для сохранения конечного файла существует: программа начинает проверку существования в этой папке конечного файла с таким же названием.

9. Конечный файл не существует: программа сохраняет сформированную таблицу в папку. Программа завершает работу.

10. Конечный файл с таким же названием уже существует в папке: программа предлагает пользователю заменить существующий в папке файл тем, который был только что создан.

11. Если пользователь отвечает «Да»: программа закрывает старый файл без сохранения изменений (если он был открыт), удаляет его из папки, сохраняет новый файл в папку и завершает работу.

12. Если пользователь отвечает «Нет»: программа не закрывает старый файл (если он был открыт), не удаляет его из папки, не сохраняет новый файл и завершает работу.

4. Придуманное мной задание

1. В базе данных (БД) Excel содержатся данные о призёрах Олимпийских игр из разных стран. БД хранится в папке С:\Олимпийские игры, в рабочей книгеПризёры Олимпийских игр.xlsна листеПризёрыи имеет следующую структуру:

Тип Олим-пийских игр	Место проведе-ния	Год	Вид спорта	Дисциплина	Страна	Спортсмен	Тип медали
Летние	Рио-де-Жанейро	2016	Художест-венная гимнастика	Многоборье	Россия	Margarita Mamun	Золото
Зимние	Сочи	2014	Биатлон	Спринт	Словакия	Anastasiya Kuzmina	Золото
Летние	Пекин	2008	Спортивная гимнастика	Упражнения на бревне	США	Nastia Liukin	Серебро
Летние	Рио-де-Жанейро	2016	Плавание	Брасс	Великоб-ритания	Adam Peaty	Золото
Зимние	Ванкувер	2010	Лыжные гонки	Масстарт	Норвегия	Marit Bjorgen	Серебро
Зимние	Сочи	2014	Фристайл	Воздушная акробатика	Китай	Zongyang Jia	Бронза
Летние	Лондон	2012	Велоспорт	BMX	Колумбия	Carlos Oquendo	Бронза
Летние	Рио-де-Жанейро	2016	Художест-венная гимнастика	Многоборье	Россия	Yana Kudryavtse-va	Серебро
Летние	Пекин	2008	Прыжки на батуте	Индиви-дуальное первенство	Китай	Chunlong Lu	Золото
Зимние	Сочи	2014	Фигурное катание	Одиночное катание	Италия	Carolina Kostner	Бронза
Летние	Лондон	2012	Прыжки в воду	Вышка	Китай	Ruolin Chen	Золото
Летние	Рио-де-Жанейро	2016	Легкая атлетика	Прыжки в длину	Великоб-ритания	Greg Rutherford	Бронза
Летние	Лондон	2012	Велоспорт	BMX	Австра-лия	Sam Willoughby	Серебро
Зимние	Сочи	2014	Фристайл	Воздушная акробатика	Австра-лия	David Morris	Серебро
Летние	Рио-де-Жанейро	2016	Художест-венная гимнастика	Многоборье	Украина	Ganna Rizatdinova	Бронза
Зимние	Сочи	2014	Биатлон	Спринт	Россия	Olga Vilukhina	Серебро
Летние	Рио-де-Жанейро	2016	Плавание	Брасс	ЮАР	Cameron Van Der Burgh	Серебро
Зимние	Сочи	2014	Фристайл	Воздушная акробатика	Беларусь	Anton Kushnir	Золото
Летние	Рио-де-Жанейро	2016	Легкая атлетика	Прыжки в длину	США	Jeff Henderson	Золото
Летние	Лондон	2012	Стрельба из лука	Личное первенство	Южная Корея	Jin-Hyek Oh	Золото
Летние	Рио-де-Жанейро	2016	Плавание	Брасс	США	Cody Miller	Бронза
Зимние	Сочи	2016	Биатлон	Спринт	Украина	Vita Semerenko	Бронза
Летние	Рио-де-Жанейро	2016	Легкая атлетика	Прыжки в длину	ЮАР	Luvo Manyonga	Серебро
Зимние	Ванкувер	2010	Скелетон	Экипажи-одиночки	Великоб-ритания	Amy Williams	Золото
Летние	Пекин	2008	Спортивная гимнастика	Упражнения на бревне	США	Shawn Johnson	Золото
Летние	Лондон	2012	Прыжки в воду	Вышка	Австра-лия	Brittany Broben	Серебро
Зимние	Ванкувер	2010	Санный спорт	Сани-одиночки	Германия	Natalie Geisenber-ger	Бронза
Зимние	Сочи	2014	Фигурное катание	Одиночное катание	Россия	Adelina Sotnikova	Золото
Летние	Пекин	2008	Прыжки на батуте	Индиви-дуальное первенство	Канада	Jason Burnett	Серебро
Зимние	Ванкувер	2010	Лыжные гонки	Масстарт	Финлян-дия	Aino-Kaisa Saarinen	Бронза
Летние	Лондон	2012	Стрельба из лука	Личное первенство	Япония	Takaharu Furukawa	Серебро
Летние	Пекин	2008	Триатлон	Индиви-дуальное первенство	Австра-лия	Emma Snowsill	Золото
Зимние	Ванкувер	2010	Скелетон	Экипажи-одиночки	Германия	Kerstin Szymkowiak	Серебро
Летние	Пекин	2008	Прыжки на батуте	Индиви-дуальное первенство	Китай	Dong Dong	Бронза
Летние	Пекин	2008	Триатлон	Индиви-дуальное первенство	Португа-лия	Vanessa Fernandes	Серебро
Летние	Лондон	2012	Прыжки в воду	Вышка	Малайзия	Pandelela Pamg	Бронза
Летние	Пекин	2008	Триатлон	Индиви-дуальное первенство	Австра-лия	Emma Moffatt	Бронза
Зимние	Ванкувер	2010	Санный спорт	Сани-одиночки	Германия	Tatjana Hufner	Золото
Зимние	Сочи	2014	Фигурное катание	Одиночное катание	Южная Корея	Yuna Kim	Серебро
Летние	Пекин	2008	Спортивная гимнастика	Упражнения на бревне	Китай	Fei Cheng	Бронза
Зимние	Ванкувер	2010	Лыжные гонки	Масстарт	Польша	Justyna Kowalczyk	Золото
Летние	Лондон	2012	Велоспорт	BMX	Латвия	Maris Strombergs	Золото
Зимние	Ванкувер	2010	Санный спорт	Сани-одиночки	Австрия	Nina Reithmayer	Серебро
Летние	Лондон	2012	Стрельба из лука	Личное первенство	Китай	Xiaoxiang Dai	Бронза
Зимние	Ванкувер	2010	Скелетон	Экипажи-одиночки	Германия	Anja Huber	Бронза

2. Требуется (с помощью средств VBA) разработать программное обеспечение, позволяющее выводить список призёров конкретных Олимпийских игр из определенных стран. Итоговая таблица должна иметь вид: