Форум: "Базы";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
ВнизExcel Найти похожие ветки
← →
Belkova (2003-07-14 15:12) [0]Мастера Delphi! Подскажите в чем дело? Требуется экспортировать данные из Excel, все проходит нормально, но пока работает приложение невозможно открыть ни один экселевский файл. Что делать? аранее благодарна.
← →
DenK_vrtz (2003-07-14 15:15) [1]А чего говорит?
Может он открывает, но в одном окне?
← →
stone (2003-07-14 15:18) [2]Чем открывается? Какими методами происходит экспорт? Одним словом, код в студию.
← →
DenK_vrtz (2003-07-14 15:23) [3]stone © (14.07.03 15:18), ага дождешься от них. Вот когда ты сам додумаешься, в чем доло, тогда и код будет! :-)
← →
Belkova (2003-07-14 15:24) [4]Открывается
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:="
← →
stone (2003-07-14 15:37) [5]А где код сохранения и закрытия экселевскго файла?
Наверняка после окончания работы процедуры в Task Manager остается висеть экселевский процесс
← →
Belkova (2003-07-14 16:04) [6]такого кода нет, если не затруднит, как его написать?
← →
stone (2003-07-14 16:21) [7]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:23) [8]Спасибо, попробую.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c