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");
Прямо так и выглядит строка?

Попробуйте отключить сообщения Excel с помощью
Excel.DisplayAlerts:=false;

Попробуйте сохранить отдельно, перед закрытием
Excel.Workbooks[k].SaveAs(
FileName:=NewBookName,Password:=BookPassword);

Попробуйте открыть книгу вызвав метод Open а не Add
Excel.Workbooks.Open(BookName);

> 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]

Спасибо! Очень помогли.

Workbook.Close(SaveChanges:=true, FileName:=ExportFileName) Найти похожие ветки