Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
Вниз
Автоматизация в 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.028 c
