VPF::Экспорт из Excel в Word - Форум программистов

Thoron

Дата 27.11.2008, 10:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем добрый день.
Не могу разобраться с проблемой:
есть два открытых документа в Excel(с графиками) и Word(пустой), нужно скопировать определенный график из Excel в Word. Буду рад любым наводкам, спасибо! smile

Albinos_x

Дата 27.11.2008, 11:20 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

самый простейший, через буфер, выделить, скопировать, вставить)...

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Thoron

Дата 28.11.2008, 08:08 (ссылка)

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

Загрузка ...

Шустрый

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

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

Это я понимаю. Нужен пример кода или функций для этого smile

Albinos_x

Дата 28.11.2008, 15:27 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

используй поиск по разделу...
ещё можно посмотреть здесь http://zando.org.ru/content/blogcategory/19/31/

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Thoron

Дата 29.11.2008, 10:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

Я сделал следующим образом:

... диаграмму в буфер:

Код


Sheet.ConnectTo(XL.ActiveWorkbook.Sheets[Form2.ListBox1.Items[i-1]] as _Worksheet);
Sheet.Activate;
ChartObj := (XL.ActiveSheet as ExcelWorkSheet).ChartObjects(1, lcid) as ChartObject;
ChartObj.Select(EmptyParam);
ChartObj.Copy;

... открываем документ Word и вставляем его:

Код


WordApplication1.Selection.Paste;

Еще можно через аналоги
Ctrl + C (Ctrl + Insert):

Код


keybd_event(VK_CONTROL, 0, 0, 0); // нажать Ctrl
keybd_event(VK_INSERT, 0, 0, 0); // Нажать Insert
keybd_event(VK_INSERT, 0, KEYEVENTF_KEYUP, 0); // отпустить Insert
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // отпустить Ctrl

Ctrl + V (Shift + Insert)
- // - аналогично

Получается правда не очень, таким способом нельзя позиционировать вставленную диаграмму, распологается она автоматически там же, где находится на листе Excel. Если у кого есть по этому поводу мысли - пишите. )

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »