VPF::Создание файла excel с помощью delphi

Savior

Дата 8.12.2009, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.5.2009

Репутация: нет
Всего: нет

Здравствуйте. Нужно программно создать excel-файл в delphi. Все примеры, которые здесь есть, открывают уже готовый файл типа
  ex:=createoleobject('excel.application');
  ex.visible:=false;
  Ex.DisplayAlerts:=False;
  ex.Workbooks.open(OpenDialog1.FileName);
и т.д
А мне нужно именно создать excel-файл, указать путь, форматирование и т.д.
Помогите или направьте ссылкой

Демо

Дата 8.12.2009, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: нет
Всего: 50

Код


var
  Excel: OleVariant;
begin
    Excel := CreateOleObject('Excel.Application');
    Excel.Visible := True;
    Excel.WorkBooks.Add;
    Excel.Save('c:\temp.xls');
    Excel.Quit;

--------------------

Данкинг

Дата 8.12.2009, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Демо, Excel:=unassigned; перед выходом забыл. smile

--------------------

There's nothing left but silent epitaphs.

Savior

Дата 8.12.2009, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.5.2009

Репутация: нет
Всего: нет

Всё работает, спасибо. Только Excel:=unassigned после Excel.Quit;

Данкинг

Дата 8.12.2009, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Цитата(Savior @ 8.12.2009, 22:58

)

Только Excel:=unassigned после Excel.Quit;

Ну да, разумеется, после, а не перед. smile

--------------------

There's nothing left but silent epitaphs.

Nymph666

Дата 20.9.2011, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 28.11.2007

Репутация: нет
Всего: нет

Доброго времени суток.
Ребят, мне необходимо также создать файл 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;

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

Данкинг

Дата 20.9.2011, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Во-первых, создай новую тему. Во-вторых, смотри, что у тебя в VFN_s.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »