Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Версия Excel, Как выбрать версию 
:(
    Опции темы
AHgpeu
Дата 13.6.2007, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



На машине стоит Office 2003 и 2007
Для сохранения документа использую
Код

aFilePath := SaveDialog.FileName;
E.ActiveWorkbook.SaveAs(aFilePath);

Для того чтобы можно было выбирать в какой версии сохранить документ в SaveDialog добавил 2 фильтра: *.xls *.xlsx 
Но что бы ни выбирал пользователь все равно сохраняет в 2007 (*.xlsx )
После удаления 2007-стал сохранять в 2003 (*.xls)
Как осущесвить НОРМАЛЬНЫЙ выбор нужной версии для сохранения?*

--------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ
PM MAIL   Вверх
Albinos_x
Дата 31.7.2007, 08:39 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


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

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



procedure SaveAs(FileName:OleVariant; FileFormat:OleVariant; Password:OleVariant ; 
                              WriteResPassword:OleVariant; ReadOnlyRecomended:OleVariant; 
                              CreateBackUp:OleVariant; AccesMode:XLSaveAsAccessMode; 
                              ConflictResolution:OleVariant;AddtoMru:OleVariant; 
                               TextCodePage:OleVariant; TextVisualLayout:OleVariant; 
                               Local:OleVariant;lcid:Integer)

FileName -  Имя файла в котором сохраняется книга, если имя и путь не указан, то книга сохранятся в текущем каталоге. (String)
FileFormat - формат файла (Integer)
- xlAddIn = 18 (&H12)
- xlCSV = 6
- xlCSVMac = 22  (&H16)
- xlCSVMSDOS = 24  (&H18)
- xlCSVWindows = 23 (&H17)
- xlCurrentPlatformText = -4158 (&HFFFFEFC2)
- xlDBF2 = 7
- xlDBF3 = 8
- xlDBF4 = 11
- xlDIF = 9
- xlExcel2 = 16 (&H10)
- xlExcel2FarEast = 27 (&H1B)
- xlExcel3 = 29 (&H1D)
- xlExcel4 = 33 (&H21)
- xlExcel4Workbook = 35 (&H23)
- xlExcel5 = 39 (&H27)
- xlExcel7 = 39 (&H27)
- xlExcel9795 = 43 (&H2B)
- xlHtml = 44 (&H2C)
- xlIntlAddIn = 26 (&H1A)
- xlIntlMacro = 25 (&H19)
- xlSYLK = 2
- xlTemplate = 17 (&H11)
- xlTextMac = 19 (&H13)
- xlTextMSDOS = 21 (&H15)
- xlTextPrinter = 36 (&H24)
- xlTextWindows = 20 (&H14)
- xlUnicodeText = 42 (&H2A)
- xlWebArchive = 45 (&H2D)
- xlWJ2WD1 = 14
- xlWJ3 = 40 (&H28)
- xlWJ3FJ3 = 41 (&H29)
- xlWK1 = 5
- xlWK1ALL = 31 (&H1F)
- xlWK1FMT = 30 (&H1E)
- xlWK3 = 15
- xlWK3FM3 = 32 (&H20)
- xlWK4 = 38 (&H26)
- xlWKS = 4
- xlWorkbookNormal = -4143 (&HFFFFEFD1)
- xlWorks2FarEast = 28 (&H1C)
- xlWQ1 = 34 (&H22)
- xlXMLSpreadsheet = 46 (&H2E)
Password - Пароль для открытия файла (String)
WriteResPassword - Пароль для изменения файла (String)
ReadOnlyRecomended - рекомендовать доступ только для чтения. (Boolean)
CreateBackUp - всегда создать резервный копию (Boolean)
ConflictResolution - способ разрешения конфликтов между пользователями
AddtoMRU - добавить файл в список недавно использованных (Boolean)
AccesMode - режим доступа к файлу и может принимать значения:
- xlNoChange - не изменять ранее установленный режим
- xlExclusive - исключительный доступ пользователя к файлу. При этом если файл был в это время открыт другим пользователем, то ему будет предложено сохраниться под другим именем.
- xlShared - свободный доступ


в твоём случае думаю следует попробовать - xlExcel9795


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
GhoulZEA
Дата 26.5.2012, 07:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Немного дополню:

FileFormat - формат файла (Integer)

- xlOpenXMLWorkbook (without macro's in 2007, xlsx) =51
- xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007, xlsm) =52
- xlExcel12 (Excel Binary Workbook in 2007 with or without macro’s, xlsb) =50
- xlExcel8 (97-2003 format in Excel 2007, xls) =56

А то в старом офисе ограничения по числу столбцов/строк.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

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


 




[ Время генерации скрипта: 0.0677 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.