Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
ВнизWorkbook.Close(SaveChanges:=true, FileName:=ExportFileName) Найти похожие ветки
← →
Belkova (2004-02-10 16:42) [0]Уважаемые мастера Delphi! Подскажите, пожалуйста, требуется экспортировать данные в Excel и по окончании экспорта закрыть файл и сохранить. Выполняю оператор
Workbook.Close(SaveChanges:=true, FileName:=ExportFileName)
на что выходит сообщение об ошибке. Если без параметров, то все проходит хорошо, но выходит сообщение "сохранить файл?" . Как сделать, чтобы сохранялось в выбранный файл поумолчанию?
2. И второй вопрос, файл для экпорта выбираю с помощью OpenDialog, а как создать файл ? Выполняю
var excel:OleVariant;
excel.Workbooks.Add("Path"); говорит, что нет такого файла.
Заранее Благодарна.
← →
Nikolay M. (2004-02-10 16:46) [1]
> Как сделать, чтобы сохранялось в выбранный файл поумолчанию?
Почему бы сначала не сделать Excel.Save?
> excel.Workbooks.Add("Path"); говорит, что нет такого файла.
А если передавать пустой параметр?
← →
Belkova (2004-02-10 16:56) [2]Сохранить получилось, а создать нет. Выходит сообщение, что метод WorkBook не поддерживается.
← →
Nikolay M. (2004-02-10 17:06) [3]
> Выходит сообщение, что метод WorkBook не поддерживается
Код - ?
← →
Belkova (2004-02-10 17:15) [4]кода ошибки нет только сообщение:
Project Raised Exception Class ToOleError with Message "Method "WorkBook" not Supproted by Automation Object "
← →
Nikolay M. (2004-02-10 17:19) [5]Код твоей программы :))
← →
Belkova (2004-02-10 17:24) [6]Var Excel:Olevariant;
try
Excel := CreateOleObject("Excel.Application");
except
raise Exception.Create("Excel должен быть установлен);
end;
Excel.Workbooks.Add;
← →
Rouse_ (2004-02-10 17:39) [7]> excel.Workbooks.Add("Path");
Прямо так и выглядит строка?
← →
olookin (2004-02-10 18:03) [8]Попробуйте отключить сообщения Excel с помощью
Excel.DisplayAlerts:=false;
Попробуйте сохранить отдельно, перед закрытием
Excel.Workbooks[k].SaveAs(
FileName:=NewBookName,Password:=BookPassword);
Попробуйте открыть книгу вызвав метод Open а не Add
Excel.Workbooks.Open(BookName);
← →
Nikolay M. (2004-02-10 18:18) [9]
> Belkova (10.02.04 17:24) [6]
> Var Excel:Olevariant;
> try
> Excel := CreateOleObject("Excel.Application");
> except
> raise Exception.Create("Excel должен быть установлен);
> end;
> Excel.Workbooks.Add;
http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/excelsm.htm
http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/excel.htm
http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/excel2.htm
http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/excel3.htm
← →
Belkova (2004-02-11 12:01) [10]Спасибо! Очень помогли.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.03 c