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

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

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

Автор: AyanTai 26.8.2009, 09:51

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

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

Автор: Данкинг 1.9.2009, 00:58

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

Автор: askywalker 6.7.2010, 13:42

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

Автор: Albinos_x 26.8.2010, 21:14

Код


          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 значение переменной и используй её.