|
Как пересохранить из нового Excel в старый Excel ?
| ☑ |
0
Koliaff
20.05.13
✎
12:52
|
Есть файл с расширением *.xlsx
Надо пересохранить его в формат 97-2003 средствами 1С.
Пробую так :
Excel = Новый COMОбъект("Excel.Application");
Книга = Excel.WorkBooks.Open(ИмяФайла+"x");
Книга.SaveAs(ИмяФайла);
Excel.Quit();
Excel = Неопределено;
Но так не правильно, он сохраняет в новом формате, с расширением XLS. А мне надо кроме изменения расширения, чтобы сам формат файла поменялся. Как это сделвть ?
|
|
1
Барбариска
20.05.13
✎
12:55
|
Книга.SaveAs(ИмяФайла,-4143);
так попробуй )
|
|
2
Koliaff
20.05.13
✎
13:00
|
1С засисла ) после -4143
Что это за волшебные цифры ?
|
|
3
Koliaff
20.05.13
✎
13:02
|
Там сообщение выдается что сохраняемый файл не совместим с Excel 97. Как программно нажать кнопку "продолжить" в окне сообщений Excel ?
|
|
4
Барбариска
20.05.13
✎
13:04
|
Зависло - на предупреждении?
Может просто предупреждения отключить?
Цифры -4143 = значение екселевской константы
|
|
5
Лодырь
20.05.13
✎
13:04
|
Если Число(Excel.version) < 12 Тогда
// Excel это ComОбъект("Excel.application")
FileFormatNum = -4143 // ага, загадочное число
Иначе
FileFormatNum = 56 // ну что мешало сделать форматы стандартными?
КонецЕсли;
|
|
6
Барбариска
20.05.13
✎
13:06
|
Выключить предупреждения так:
Excel.DisplayAlerts = 0
и потом не забыть на место вернуть)
|
|
7
Koliaff
20.05.13
✎
13:12
|
БОЛЬШОЕ СПАСИБО ! Вопрос закрыт.
|
|
8
Барбариска
20.05.13
✎
13:13
|
(5) -4143 в новых версиях тоже работает.
и проблема "сохраняемый файл не совместим с Excel 97" может быть и с -4143 и с 56
|
|
9
Лодырь
20.05.13
✎
13:20
|
(8) Как показывает практика - не всегда работает ) Иначе бы не городил подобную конструкцию.
|
|
10
Барбариска
20.05.13
✎
13:22
|
(9) ну.. буду знать ) спасибо ))
|
|