Существование
Option Base 1
Public Q(5) As String
Sub СуществованиеПапки()
Dim Path, Папка As String
Path = "C:\Текущие итоги"
Папка = Dir(Path, vbDirectory)
If Папка = "" Then
MkDir ("C:\Текущие итоги")
End If
End Sub
Sub СуществованиеФайлаКоманды()
Путь = "C:\Текущие итоги\Команды-призёры.xls"
If Dir(Путь) = "" Then
Листов = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
ActiveSheet.Name = Date
ActiveWorkbook.SaveAs Filename:=Путь
Else
Кнопка = MsgBox("Файл " & Filename & " уже существует._ Заменить его?", vbYesNo + vbQuestion + vbDefaulfButton1)
Select Case Кнопка
Case vbYes
For i = 1 To Workbooks.Count
If Workbooks(i).Name ="Команды -_ призёры.xls" Then
Workbooks("Команды -_ призёры.xls").Close_ SaveChanges:=False
Exit For
End If
Next i
Kill Путь
Листов = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
ActiveSheet.Name = Date
ActiveWorkbook.SaveAs Filename:=Путь
Case vbNo
End
End Select
End If
Application.SheetsInNewWorkbook = Листов
ИмяФайла = "Команды-призёры.xls"
Path = "C:\Текущие итоги\Команды-призёры.xls"
For i = 1 To Workbooks.Count
If Workbooks(i).Name = ИмяФайла Then
Workbooks(i).Save
Workbooks(i).Activate
Exit Sub
End If
Next i
Workbooks.Open Filename:=Path
End Sub
Sub СуществованиеФайлаПилоты()
Путь = "C:\Текущие итоги\Пилоты-призёры.xls"
If Dir(Путь) = "" Then
Листов = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
ActiveSheet.Name = Date
ActiveWorkbook.SaveAs Filename:=Путь
Else
Кнопка = MsgBox("Файл " & Filename & " уже существует._ Заменить его?", vbYesNo + vbQuestion + vbDefaulfButton1)
Select Case Кнопка
Case vbYes
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "Пилоты -_ призёры.xls" Then
Workbooks("Пилоты -_ призёры.xls").Close SaveChanges:=False
Exit For
End If
Next i
Kill Путь
Листов = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
ActiveSheet.Name = Date
ActiveWorkbook.SaveAs Filename:=Путь
Case vbNo
End
End Select
End If
Application.SheetsInNewWorkbook = Листов
ИмяФайла = "Пилоты-призёры.xls"
Path = "C:\Текущие итоги\Пилоты-призёры.xls"
For i = 1 To Workbooks.Count
If Workbooks(i).Name = ИмяФайла Then
Workbooks(i).Save
Workbooks(i).Activate
Exit Sub
End If
Next i
Workbooks.Open Filename:=Path
End Sub
Sub СуществованиеГранПри(НомерГонки, ВыбраннаяСтрана)
Dim Путь As String
Dim Path(5), П(5) As String
Путь = Dir("C:\Результаты", vbDirectory)
If Путь = "" Then
MsgBox "Папка Результаты не найдена!", vbInformation
End
End If
Path(1) = "C:\Результаты\Гран-При-1-Австралия.xls"
Path(2) = "C:\Результаты\Гран-При-2-Бразилия.xls"
Path(3) = "C:\Результаты\Гран-При-3-Китай.xls"
Path(4) = "C:\Результаты\Гран-При-4-Испания.xls"
Path(5) = "C:\Результаты\Гран-При-5-Канада.xls"
П(1) = "Гран-При-1-Австралия.xls"
П(2) = "Гран-При-2-Бразилия.xls"
П(3) = "Гран-При-3-Китай.xls"
П(4) = "Гран-При-4-Испания.xls"
П(5) = "Гран-При-5-Канада.xls"
НесуществующиеФайлы = 0
For i = 1 To НомерГонки
If Dir(Path(i)) = "" Then
MsgBox "Файл " & Mid(Path(i), 15) & " не найден!", vbInformation
Q(i) = i
НесуществующиеФайлы = НесуществующиеФайлы + 1
End If
Next i
If НесуществующиеФайлы = НомерГонки Then
MsgBox "Ни одной книги не найдено! Нет данных для формирования итоговых результатов!", vbCritical
End
End If
For i = 1 To НомерГонки
flag = 0
For j = 1 To Workbooks.Count
If Workbooks(j).Name = П(i) Then
flag = 1
GoTo a3
End If
Next j
a3: If flag = 1 Then
Workbooks(i).Activate
Else
Workbooks.Open Filename:=Path(i)
End If
Next i
End Sub