Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Создание файла Excel в Delphi

Автор: Nymph666 21.9.2011, 07:46

Доброго времени суток.
Ребят, мне необходимо также создать файл Excel, а затем его открыть и записать туда информацию из StringGrid.
В уже существующие файлы писать получается, но когда создаю(как раз также как тут написано) и пытаюсь открыть этот файл Excel выдает ошибку "Не удается открыть файл, так как формат или расширение этого файла являются недопустимыми. Убедитесь, что файл не поврежден и расширение его имени соответствует формату"

Код


Save_file:=CreateOleObject(ExcelApp);
Save_file.Visible:=False;
Save_file.Workbooks.Add;
name_file := 'Journal'+Main.CB_Subject.Text+Main.Month_CB.Text+'.xls';
Save_file.Save(ExtractFilePath(Application.ExeName)+name_file);
VFN_s := ExtractFilePath(Application.ExeName)+name_file;
Save_file.Workbooks.Open(VFN_s,ReadOnly:=false);
Save_file.Application.EnableEvents:=false;
workbook_s:=Save_file.workbooks.Open(VFN_s,ReadOnly:=false);
sheet_s:= workbook_s.ActiveSheet;

С чем это может быть связано?

Добавлено @ 07:50
Поняла, что дело все именно в методе Save.
Ту же ошибку выдает Excel при обычном открытии: "формат или расширение этого файла являются недопустимыми. Убедитесь, что файл не поврежден и расширение его имени соответствует формату"
То есть при сохранении создается(а он создается там где я указываю и внешне похож), но при открытии ругается.
Другие, созданные "обычным" способом открывает без проблем.