Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Excel [D6, IB6.x]

Belkova © (2003-07-14 15:12:00)
Мастера Delphi! Подскажите в чем дело? Требуется экспортировать данные из Excel, все проходит нормально, но пока работает приложение невозможно открыть ни один экселевский файл. Что делать? аранее благодарна.

Belkova (2003-07-14 16:23:00) [1]
Спасибо, попробую.

stone (2003-07-14 16:21:00) [2]
try
XL := CreateOleObject("Excel.Application");
except
raise Exception.Create("Excel должен быть установлен");
end;
try
XL.Workbooks.Open(FileName);
...
finally
XL.Workbooks.Close;
XL := Unassigned;
end;

Belkova (2003-07-14 16:04:00) [3]
такого кода нет, если не затруднит, как его написать?

stone (2003-07-14 15:37:00) [4]
А где код сохранения и закрытия экселевскго файла?
Наверняка после окончания работы процедуры в Task Manager остается висеть экселевский процесс

Belkova (2003-07-14 15:24:00) [5]
Открывается
Var v:OleVariant;
V.WorkBooks.Open(ExportFileName);
Экспорт
v.WorkBooks.Open(ExportFileName);
v.WorkSheets.Item["Опт. прайс"].Select;
LBegin:=StrToInt(copy(Edit1.Text,1,pos(":",Edit1.Text)-1));
LEnd:=StrToInt(copy(Edit1.Text,pos(":",Edit1.Text)+1,length(Edit1.Text)));
i:=LBegin;
while i<=LEnd do begin
StatusBar1.SimpleText:="

DenK_vrtz (2003-07-14 15:23:00) [6]
stone © (14.07.03 15:18), ага дождешься от них. Вот когда ты сам додумаешься, в чем доло, тогда и код будет! :-)

stone (2003-07-14 15:18:00) [7]
Чем открывается? Какими методами происходит экспорт? Одним словом, код в студию.

DenK_vrtz (2003-07-14 15:15:00) [8]
А чего говорит?
Может он открывает, но в одном окне?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »