Отображение встроенных предупреждений о работе программы
Свойство Disp l ayAlerts объекта Application устанавливает, надо ли отображать встроенные предупреждения о работе программы. Например, следующая процедура (листинг 5.10), обрабатывающая событие Open объект; Workbook, отменяет отображение предупреждений при работе с книгой.
Private Sub Workbook_Open()
Application.DispiayAierts = False
End Sub
Поиск файлов
Свойство FileSearch объекта Application возвращает объект FileSearch, который инкапсулирует в себе свойства и методы, реализующие поиск специфицированного файла на диске. Перечислим основные свойства объекта FileSearch:
r свойство Lookin возвращает или устанавливает каталог, в котором производится поиск;
r свойство FileType возвращает или устанавливает тип искомого файла. Его допустимым значением может быть одна из следующих MsoFileType-постоянных:
| msoFileTypeAHFiles | msoFileTypeBinders |
| msoFileTypeCalendarltem | msoFileTypeContactltem |
| msoFileTypeCustom | msoFileTypeDatabases |
| msoFileTypeDataConnectionFiles | msoFileTypeDesignerFiles |
| msoFileTypeDocumentImagingFiles | msoFileTypeExcelWorkbooks |
| mSoFileTypeJournalItern | msoFileTypeMailitem |
| msoFileTypeNoteltem | msoFileTypeOfficeFiles |
| msoFileTypeOutlooklterns | msoFileTypePhotoDrawFiles |
| msoFileTypePowerPointPresentations | msoFileTypeProjectFiles |
| msoFileTypePublisherFiles | msoFileTypeTaskltem |
| msoFileTypeTemplates | msoFileTypeVisioFiles |
| msoFileTypeWebPages | msoFileTypeWordDocuments |
r свойство FoundFi le s возвращает объект FoundFi l es, представляющий собой список имен всех найденных в течение поиска файлов.
Метод Execute объекта File S earch производит непосредственный поиск. Он возвращает целое число, причем, если оно равно 0, то ни одного файла не было найдено, и положительное число, если, по крайней мере, один файл найден:
|
|
|
Execute(SortBy, SortOrder, AlwaysAccurate)
Здесь:
r SortBy— необязательный параметр, определяющий критерий сортировки найденных файлов. Допустимые значения определяются следующими MsoSortBy-постоянными:
MsoSortByFileName msoSortByFileType msoSortByLastModified msoSortByNone msoSortBySize
r SortOrder — необязательный параметр, определяющий порядок сортировки. Допустимые значения определяются следующими MsoSortorder- постоянными:
msoSortOrderAscending, msoSortOrderDescending;
r AlwaysAccurate— необязательный параметр, принимающий логические значения и определяющий, должны ли при поиске просматриваться те файлы, которые были добавлены, модифицированы или удалены после последней модификации файлового индекса.
В приводимом ниже примере производится поиск всех рабочих книг в корневом каталоге диска С:. Если таковые имеются, то отображается сообщение с указанием их количества и полным списком имен. Если же их нет, то пользователь также об этом информируется.
With Application.FileSearch .Lookln = "c:\"
.FileType = msoFileTypeExcelWorkbooks
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Dim str As String
str = "Найдено " & .FoundFiies.Count & " книг(и):" & vbCr
Dim i As Integer
For i = 1 To .FoundFiies.Count
str = str & .FoundFiies(i) & vbCr
|
|
|
Next
MsgBox str
Else
MsgBox "Рабочие книги не найдены."
End If
End With
Печать активного листа
Печать активного листа рабочей книги производится методом Print O ut. Для того чтобы получить ссылку на активный лист, воспользуйтесь свойством ActiveSheet объекта Application.
ActiveSheet.PrintOut
Предварительный просмотр книги
Предварительный просмотр рабочей книги реализуется методом PrintPreview семейства sheets. Если у свойства Sheets объекта Application не указывается значение индекса, то производится просмотр всей книги.
Application.Sheets.PrintPreview
Если же у свойства Sheets индекс специфицирован, то осуществляется просмотр указанного листа, например, в следующей инструкции — первого.
Application.Sheets(l).PrintPreview
Дата добавления: 2019-02-12; просмотров: 142; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!