![]() |
Модераторы: MetalFan |
![]() ![]() ![]() |
|
AHgpeu |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 124 Регистрация: 6.4.2007 Репутация: нет Всего: нет |
На машине стоит Office 2003 и 2007
Для сохранения документа использую
Для того чтобы можно было выбирать в какой версии сохранить документ в SaveDialog добавил 2 фильтра: *.xls *.xlsx Но что бы ни выбирал пользователь все равно сохраняет в 2007 (*.xlsx ) После удаления 2007-стал сохранять в 2003 (*.xls) Как осущесвить НОРМАЛЬНЫЙ выбор нужной версии для сохранения?* --------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ |
|||
|
||||
Albinos_x |
|
|||
![]() 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 -------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
GhoulZEA |
|
|||
Новичок Профиль Группа: Участник Сообщений: 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 А то в старом офисе ограничения по числу столбцов/строк. |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: ActiveX/СОМ/CORBA" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |