VPF::создание файла в формате *.xlsX - Форум программистов

AyanTai

Дата 26.8.2009, 09:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток форумчане!

лазию по сайту и не могу найти подобную тему, а тема в следующем:
хочу создать файл с расширением *.xlsx, раньше работал с CreateXls и все в порядке а сейчас поставили офис 07. возникла трабла.. smile

Данкинг

Дата 1.9.2009, 00:58 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

А что, с офисом 2007 не работает "createoleobject" ?

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

There's nothing left but silent epitaphs.

askywalker

Дата 6.7.2010, 13:42 (ссылка)

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

Загрузка ...

Новичок

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

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

EA: Variant;
EA := CreateOleObject('Excel.Application.12'); !
EA.WorkBooks[1].SaveAs(Filename);

Albinos_x

Дата 26.8.2010, 21:14 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Код


          if (StrToInt(Copy(ExcelApp.Version[LOCALE_USER_DEFAULT],1,pos('.',ExcelApp.Version[LOCALE_USER_DEFAULT])-1)))=12 then
              Fileformat:=56          // для office 2007
              else
              Fileformat:=xlNormal;   // для Office XP, 2003
          ExcelApp.ActiveWorkbook.SaveAs(FileNameOle, Fileformat, EmptyParam, EmptyParam,
                                         BoolOle, BoolOle, xlExclusive, EmptyParam,
                                         BoolOle, EmptyParam, EmptyParam, EmptyParam,
                                         LOCALE_USER_DEFAULT);

вот так (при таких Fileformat) будет сохранять в *.xls.... для *.xlsx сейчас не помню, и проверить не на чем, посмотри в справке по VB значение переменной и используй её.

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

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