ВУЗ:
Составители:
Рубрика:
1.4. Программирование на VBA 88
3
n_pictures = n_pictures + 1
End If
Next
' Закрытие документа
.Close (False)
End With
Особенность этого кода состоит только в том, что в качестве аргумента
свойства BuiltinDocumentProperties используются конкретные
значения встроенных констант, а не их мнемонические обозначения. Дело в
том, что Excel 97 не распознавал "чужих" встроенных констант (несмотря на
довольно тесную интеграцию приложений Office 97). Приходится самим
выяснять конкретные значения этих констант и использовать в коде эти числа.
Удобнее всего делать это с помощью уже упоминавшегося ранее окна
Просмотр объектов. Но если подключить к проекту необходимую "чужую"
библиотеку, то все будет в порядке.
(См. параграф 3.4.3 " Работа с объектами другого приложения ")
Теперь следует записать полученные сведения о документе Word в
соответствующие ячейки рабочего листа Excel:
' Сохранение полученной информации на листе Excel
ActiveSheet.Range("C" & i).Activate
ActiveWindow.ActiveCell.Value = s_title
ActiveSheet.Range("D" & i).Activate
ActiveWindow.ActiveCell.Value = n_pages
ActiveSheet.Range("E" & i).Activate
ActiveWindow.ActiveCell.Value = n_chars
ActiveSheet.Range("F" & i).Activate
ActiveWindow.ActiveCell.Value = n_pictures
ActiveSheet.Range("G" & i).Activate
ActiveWindow.ActiveCell.Value = n_byte
ActiveSheet.Range("H" & i).Activate
ActiveWindow.ActiveCell.Value = d_dateCreat
ActiveSheet.Range("I" & i).Activate
ActiveWindow.ActiveCell.Value = d_dateEdit
ActiveSheet.Range("j" & i).Activate
ActiveWindow.ActiveCell.Value = t_time
В первом приближении процедура готова к использованию. Осталось лишь
создать кнопку на рабочем листе Excel для вызова этой процедуры и
приступить к проверке того, как она работает.
Если запустить на выполнение эту процедуру в том виде, как она здесь
приведена, то она благополучно отработает и заполнит рабочий лист данными,
Страницы
- « первая
- ‹ предыдущая
- …
- 85
- 86
- 87
- 88
- 89
- …
- следующая ›
- последняя »
