Автоматизация в 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]

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

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