VPF::Сервис Office - Форум программистов

DarkWanderer

Дата 10.7.2006, 04:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.6.2006

Репутация: нет
Всего: нет

Может быть кто знает где найти описание внешних функций Office для использования их в своих программах.

Akina

Дата 10.7.2006, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454

Если Вы озаботитесь сформулировать проблему так, чтобы остальные смогли ее понять - получите вменяемые ответы.

А вообще приложениями Office вполне беспроблемно управлять из других программ через СОМ+

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

DarkWanderer

Дата 11.7.2006, 06:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.6.2006

Репутация: нет
Всего: нет

В том и вопрос. Написать программу, которая делала бы некоторые вещи доступные тому же word'у. В частности распечатать doc'умент.

Цитата

А вообще приложениями Office вполне беспроблемно управлять из других программ через СОМ+

Где можно взять информацию о работе с этой штукой?

ИгнатьевАлексей

Дата 21.7.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 1
Всего: 3

Вот тебе семплик по работе с Excel-ем из VB. В Ворде все аналогично. Может поможет. smile

Код


Private Sub Form_Load()

  Dim appExcel As Excel.Application
  Dim docsExcel As Excel.Workbooks
  Dim docExcel As Excel.Workbook
  Dim sheetExcel As Excel.Worksheet
  Dim rangeExcel As Excel.Range
  Dim Item As Excel.Range
  
  Set appExcel = CreateObject("excel.application")
  Set docsExcel = appExcel.Workbooks
  Set docExcel = docsExcel.Add("D:\DB_021205.xls")
  Set sheetExcel = docExcel.Sheets("Лист1")
  Set rangeExcel = sheetExcel.Range("C2:C500")
  
  For Each Item In rangeExcel
        List1.AddItem (Item.Value)
  Next
  
  appExcel.Quit
  
End Sub

--------------------

Vingrad - FOREVER !!!

"Как вы яхту назовете - так она и поплывет!"
Капитан Врунгель

AsIs

Дата 28.7.2006, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 310
Регистрация: 2.4.2005
Где: Санкт-Петербург

Репутация: 15
Всего: 17

Цитата(DarkWanderer @ 11.7.2006, 06:26)

Где можно взять информацию о работе с этой штукой?

В MSDN или TechNET. smile

http://msdn2.microsoft.com/en-us/default.aspx
http://technet.microsoft.com/en-us/default.aspx

--------------------

<avalon> - чтобы знать...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Работа с MS Office \| Следующая тема »