Скачать: CL | DM;

Автоматизация в Excel   Найти похожие ветки 

← →
MAPIIIAJL   (2004-06-03 20:18) [0]

Добрый день мастера. Как перекинуть с помощью Delphi программый модуль "Модуль1" из одной книги Excel в другую. Может быть кто нибудь сталкивался с этой проблемой? Бъюсь второй день.
Делаю так:

Module,ModuleNew:OleVAriant;
Module:=ExcelApplication1.ActiveWorkbook.Modules.Item["Модуль1"] as ExcelWorksheet; //-Здесь выдает ошибку "неверный индекс"
//Создаем новую книгу
ExcelWorkbook1:=ExcelApplication1.Workbooks.Add(EmptyParam,LOCALE_USER_DEFAULT);
//Создаем пустой программный модуль
ModuleNew:=ExcelWorkbook1.Modules.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
Module.Copy(ModuleNew,EmptyParam,0);

Замена индекса на цифру 0 или 1 ничего не дает.

Тоже самое проходит с листами:

Module,ModuleNew:OleVAriant;
Sheet:=ExcelApplication1.ActiveWorkbook.Worksheets["Лист1"] as ExcelWorksheet;
//Создаем новую книгу
ExcelWorkbook1:=ExcelApplication1.Workbooks.Add(EmptyParam,LOCALE_USER_DEFAULT);
SheetNew:=ExcelApplication1.ActiveWorkbook.ActiveSheet as ExcelWorksheet;
Sheet.Copy(SheetNew,EmptyParam,0);


Плиз HELP!!!!

---

← →
YurikGL ©   (2004-06-03 20:47) [1]

MAPIIIAJL   (03.06.04 20:18)  
Тебе один лист в другой что-ли скопировать надо?

---

← →
MAPIIIAJL   (2004-06-03 23:34) [2]

Не, не лист, а программный модулю. Нажми в Excele alt+F11, загрузится Microsoft Visual Bacic. Там в меню Insert выбери Module. Будет создан новый модуль. Его можно увидеть в окне проекта слева. Его содержимое и нужно скопировать из одной книги в другую...

---

← →
Романов Р.В. ©   (2004-06-04 07:52) [3]

Надо работать с объектом VBE. Читай про него в справке по VB for Excel

---

← →
MAPIIIAJL   (2004-06-04 12:06) [4]

Романов Р.В.
Ты прав, буду копаться там. Спасиб.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c