Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-79722
Senator
2004-02-12 16:59
2004.02.25
ComboBox


3-79567
Виталя
2004-01-29 13:47
2004.02.25
Запрос с условием DATE_IN CONTAINING 10.2003 не выполняется


1-79719
alextov
2004-02-12 16:25
2004.02.25
Не получается сделать форму шире экрана


7-80328
Новичек
2003-11-27 19:26
2004.02.25
Как кликнуть мышкой в своем же окне


7-80334
DDS
2003-12-08 00:02
2004.02.25
Как отловить нажатие средней клавиши мыша?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский