Как объектами Excel из Visual Basic

Переводы статьи Переводы статьи
Код статьи: 147650 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

В этой статье

Аннотация

В данной статье описывается три метода, которые можно использовать для перемещения и доступ к Объекты приложения Microsoft Excel:

  • С помощью свойства по умолчанию и аннулирует
  • Использование псевдонимов
  • С помощью методов родительского и приложением Microsoft Excel версии 5.0 объекты для доступа к любому объекту Microsoft Excel

Дополнительная информация

Каждый объект в Microsoft Excel версии 5.0 существует где-нибудь в Иерархия объектов приложения. Можно выбрать один из этих объектов Перемещение вниз иерархии данного приложения. В верхней части этой иерархии является объектом приложения. Любые события или действия назначения Объект приложения влияет на все приложение. Например:
   ' Close the application
   [Object].Application.Quit
				
Замените [Object] любой переменной, указывающей на любой допустимый Microsoft Excel Объект приложения, создавшего в следующем примере:
   ' MyObject represents [Object] and OLE1 represents an OLE control
   ' that contains an Microsoft Excel Worksheet object.
   MyObject = OLE1.Object
   Set MyObject = CreateObject("Excel.Sheet")
   Set MyObject = GetObject("C:\EXCEL\EXAMPLES\SAMPLES.XLS")
				
Объект приложения содержит другие крупные объекты. Например можно Используйте следующий код для ссылки на коллекцию книг, в настоящее время загрузить в Microsoft Excel:
   [Object].Application.Workbooks
				
Если вы хотите получить одну книгу из коллекции, используйте элемент метод. Например, для ссылки на первую книгу:
    [Object].Application.Workbooks.Item(1)
				
Закрытие первой книги:
   [Object].Application.Workbooks.Item(1).Close
				

Доступ к объектам с помощью ссылки на записи от руки или свойства по умолчанию

Каждая книга содержит коллекцию листов, каждый лист содержит набор ячеек и т. д. (См. в документации по Microsoft Excel и меню "Справка" для конкретные подробности объект Microsoft Excel Иерархия). В коде ссылки на конкретные ячейки может выглядеть следующим образом:
   ' Following refers to cell A1 on Sheet1 in the first workbook.
   ' Enter the following two lines as one, single line:
   [Object].Application.Workbooks.Item(1).
      WorkSheets.Item("Sheet1").Cells.Item(1,1)
				
Эта ссылка может быть очень длинным и сложным; Однако, сочетания клавиш доступные. Общее представление о оператор перехода (.) является основой успешных объектное программирование.

Сочетания клавиш

Все объекты имеют свойства по умолчанию и метод. Для коллекций метод по умолчанию является элемент. Для большинства объектов — это имя свойства свойство по умолчанию. Это соглашение было реализовано для упрощения программирование. Например предыдущий пример может быть упрощен до:
   [Object].Application.Workbooks(1).WorkSheets("Sheet1").Cells(1,1)
				

Доступ к объектам, дублирование объектов

С помощью псевдонимов на упрощающие объектное программирование. Если бы вы написать большой объем кода, который управлял Sheet1, например, удалось синтаксис стать длительным. Чтобы избежать этого, создайте объект, указывает на наименьший общий объект. Это называется псевдонимов. Создать с помощью инструкции Set псевдоним:
   Dim Sheet1 as Object
   ' Alias Sheet1 to represent [Object]...WorkSheets("Sheet1")
   Set Sheet1 = [Object].Application.Workbooks(1).WorkSheets("Sheet1")
   ' Now just use the variable Sheet1 to refer to Sheet1.
   Sheet1.Cells(1,1).Value = "Title"
   Sheet1.Cells(1,2).Value = "ID"
   Sheet1.Cells(1,3).Value = "Cost"
   Sheet1.Cells(2,1).Value = "Phone"
   Sheet1.Cells(2,2).Value = 123413423
   Sheet1.Cells(2,3).Value = 89.95
				

Доступ к объектам с помощью родительского и методы приложения

Методы родительского и приложений позволяет осуществлять навигацию резервное копирование объекта иерархия. Метод применения перемещение объекта приложения и родительский метод перемещается вверх на один уровень иерархии объектов. Все Примеры в этой статье, работы с [Object]. До тех пор, пока [объекта] допустимый объект Microsoft Excel, все эти инструкции также являются допустимыми. Независимо от контекста [Object].

Это очень полезно при программировании объектов Microsoft Excel из Visual Basic версии 4.0. Microsoft Excel предоставляет только три объекты который может быть использован в качестве точек входа в Microsoft Excel. Существуют следующие.

  • Excel.Application
  • Excel.Sheet
  • Excel.Chart
Не следует путать с Excel.Application.5. Всегда будет Excel.Application Укажите последнюю версию Microsoft Excel. Будет Excel.Application.5 Укажите только Microsoft Excel версии 5.0.

Не существует предоставленного объекта книги, поэтому не существует способа получить доступ к Объекту книги, который напрямую. Тем не менее, это не проблема потому что родительский объект метод объекта на листе или диаграмме возвращает объект книги. В Следующий пример кода иллюстрирует эту точку.

Примечание: oleExcel — это элемент управления OLE, который содержит объект Excel.Sheet.
   ' Declare object references:
   Dim Xlapp As object
   Dim XLWkb As object
   Dim XLWks As object
   Dim XLWksNew As object

   oleExcel.Action = 7   ' Activate OLE Object

   Set XLWks = oleExcel.Object   ' Alias Worksheet object
   Set XLWkb = XLWks.Parent      ' Alias WorkBook object
   Set Xlapp = XLWks.Application ' Alias Application object

   ' Add a new worksheet to the Workbook and name it:
   Set XLWksNew = XLWkb.Worksheets.add  ' Assign alias to new Worksheet
   XLWksNew.Name = "VB4 OLE Automation" & XLWkb.Worksheets.count

   ' Make the 3rd Worksheet of the Workbook active:
   XLWkb.Worksheets(3).Activate

   ' Display the dialog for InsertPicture:
   Xlapp.dialogs(342).[Show]  ' xlDialogInsertPicture = 342
				

Ссылки

Пакет средств разработки Microsoft Office, программирования интегрированных решений

Свойства

Код статьи: 147650 - Последний отзыв: 2 июня 2011 г. - Revision: 4.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Excel 5.0 Standard Edition
Ключевые слова: 
kb16bitonly kbhowto kbprogramming kbmt KB147650 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:147650
Заявление об отказе относительно содержимого статьи о продуктах, поддержка которых прекращена
Эта статья содержит сведения о продуктах, поддержка которых корпорацией Майкрософт прекращена. Поэтому она предлагается как есть и обновляться не будет.

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com