Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Workbooks(“Книга1.xls”).Worksheets(“Лист1”).Activate

Поиск

Свойства и методы, которые обеспечивают ссылку на нужный объект в иерархии объектов, называются семействами (наборами).

Семейство WorkBooks ("Книга1") ‘Обеспечивает доступ к рабочей книге. В скобках указывается имя книги.

Семейство WorkSheets ("Лист1") ‘Обеспечивает доступ к рабочему листу. В скобках указывается имя листа.

Семейство Range ("диапазон") ‘Обеспечивает доступ к диапазону ячеек или к ячейке. В скобках указывается диапазон ячеек или имя ячейки.

Семейство Cells(№ строки, № столбца) ‘Обеспечивает доступ к ячейке. В скобках указываются координаты ячейки.

Примеры:

WorkBooks("Книга1")

WorkSheets("Лист1")

Range("A1")

Range("A1:В10")

Cells(2,3)

Cells(k,i+1)

 

9.5.1. Объект Workbook и семейство Workbooks

 

В иерархии Excel объект Workbook (рабочая книга) идет сразу после объекта Application и представляет файл рабочей книги. Рабочая книга хранится либо в файлах формата XLS (стандартная рабочая книга) или XLA (полностью откомпилированное приложение). Свойства и методы рабочей книги позволяют работать с файлами. Объект входит в семейство (набор) Workbooks.

Ссылку на объект можно получить через свойства:

Workbooks(<Индекс>) ‘Возвращает объект по индексу в наборе;

Workbooks(“<Имя>”) ‘Возвращает объект по имени в наборе;

ActiveWorkbook ‘Возвращает ссылку на активную книгу в момент выполнения команды;

ThisWorkbooks ‘Возвращает ссылку на книгу, в которой находится текст исполняемого модуля.

 

 

9.5.1.1 Свойства объекта Workbook и семейства Workbooks

ActiveSheet ‘Возвращает активный лист книги. Для получения имени листа используется свойство Name объекта Sheet.

Примеры:

MsgBox(“Имя активного листа “) & ActiveSheet.Name

или

MsgBox ActiveWorkbook.ActiveSheet.Name ‘Выводит имя активного рабочего листа в диалоговом окне.

ActiveDialog ‘Возвращает активное диалоговое окно.

ActiveChart ‘Возвращает активную диаграмму.

Sheets ‘Возвращает семейство всех листов книги.

Worksheets ‘Возвращает семейство всех рабочих листов книги.

Пример:

Sub xjfchd()

For Each s In ActiveWorkbook.Sheets

MsgBox s.Name

Next s

End Sub

Charts ‘Возвращает семейство всех диаграмм книги, которые не внедрены в рабочие листы.

Count ‘Возвращает число объектов семейства Workbooks (количество открытых приложением книг).

FullName ‘Возвращает полное имя рабочей книги.

Пример:

MsgBox ActiveWorkbook.FullName

Name ‘Возвращает имя активной рабочей книги.

Пример:

MsgBox ActiveWorkbook.Name

Path ‘Возвращает путь к файлу рабочей книги.

Пример:

MsgBox ActiveWorkbook.Path

 

9.5.1.2. Методы объекта Workbook и семейства Workbooks

Activate ‘Активизирует рабочую книгу так, что ее первый рабочий лист становится активным.

Пример:

WorkBooks(“Книга1”).Activate

или

Workbook.Activate

Close ‘Закрытие рабочей книги.

Close.SaveChanges FileName – Закрывает книгу.

SaveChanges ‘Сохраняет изменения в рабочей книге, если

ответ True.

‘Не сохраняет изменения в рабочей книге, если ответ False.

FileName ‘Строка, указывающая имя файла, в котором будет сохранена рабочая книга.

Пример:

WorkBooks(“Книга1”).Close

WorkBooks(“Книга1”).Close.SaveChanges=“Книга2”

NewWindow ‘Открывает указанную книгу в новом окне.

Пример:

WorkBooks(“Книга1”).NewWindow

Save ‘Сохраняет изменения в рабочей книге.

Пример:

WorkBooks(“Книга1”).Save

SaveAs FileName ‘Сохраняет книгу под другим именем

(в другом файле).

SaveAsCopy ‘Сохраняет рабочую книгу в другом файле, оставляя ее в памяти с прежним именем.

Примеры:

WorkBooks(“Книга1”).SaveAs FileName=“kdjf.xls”

ActiveBook.SaveAsCopy FileName=”Моя книга”

Open FileName ‘Открывает рабочую книгу с именем, указанным в параметре FileName.

Пример:

Workbooks.Open “Книга1.xls”

 



Поделиться:


Последнее изменение этой страницы: 2016-12-16; просмотров: 719; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.216.208.243 (0.007 с.)