Сохранить в ёкселе 2007 как ".xls"

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

21.04.2008 17:15:06

коллеги, подскажите, плиз.
КАК?
предыстория
дано, кусок кода, который задает формат файла в зависимости от версии Ёкселя.

If Val(Application.Version) < 12 Then
'You use Excel 2000-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007
FileExtStr = ".xlsx": FileFormatNum = 51
End If

что надо сюда воткнуть, чтобы ёксель 2007 сохранял файл в формате xls?

если убрать всю эту ветку (if) и оставить толькло
FileExtStr = ".xls": FileFormatNum = -4143

то 2007-ой ругается.

значит надо делить на версии.
если записать макрос в 2007-ом, то видим следующее:
FileFormat:= _ xlExcel8

а тоже самое, но в 2003-ем выглядит так:
FileFormat:= _ xlNormal

видимо надо каким-то образом эту строчку изменить, но как?
FileExtStr = ".xlsx": FileFormatNum = 51

Артем Гость	#2 21.04.2008 17:58:55 Нет под рукой 2007, но может попробывать записать процесс сохранения макроредактором и посмотреть результат?

mazayZR Пользователь Сообщений: 950 Регистрация: 01.01.1970	#3 21.04.2008 18:47:48 я это уже делал, о чем чуток выше и сказано ;-)

Артем Гость	#4 21.04.2008 20:48:43 посмотрел по справке XlFileFormat, параметру xlExcel8 соответсвует значение 56

mazayZR Пользователь Сообщений: 950 Регистрация: 01.01.1970	#5 21.04.2008 23:15:54 видимо придется с утра заниматься пальпацией :-) варианты: FileExtStr = ".xlsx": FileFormatNum = 56 FileExtStr = ".xls": FileFormatNum = 56 либо еще какие... ЗЫ: неее, Павел, надо таки мне книжку покупать... а то как слепой котенок тыкаюсь.

Pavel55 Гость	#6 22.04.2008 00:44:23 Прочитал много книжек по Excel, но это, вроде, ни в одной не встречалось)

Guest

Гость

22.04.2008 13:31:04

{quote}{login=mazayZR}{date=21.04.2008 05:15}{thema=Сохранить в ёкселе 2007 как ".xls"}{post}коллеги, если записать макрос в 2007-ом, то видим следующее:
FileFormat:= _ xlExcel8

а тоже самое, но в 2003-ем выглядит так:
FileFormat:= _ xlNormal

{/post}{/quote}

ну и кто мешает написать так и так в зависимости от
if version..

mazayZR

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

22.04.2008 14:29:38

итог:

для того, чтобы этот макрос сохранял в формате ".xls" независимо от версий (2003-ий или 2007-ой)
надо включить в него следующее:

If Val(Application.Version) < 12 Then
'You use Excel 2000-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007
FileExtStr = ".xls": FileFormatNum = 56
End If

отдельное спасибо Артему

Антон Гость	#9 30.09.2009 13:15:21 ...просто в тему для Екселя 2003 FileFormat = xlExcel9795; это совместимость с 95-97 офисом. FileFormat = xlNormal; это сохранение по умолчанию, т.е. для 2003 оффиса - это .xls дял Екселя 2007 FileFormat = xlExcel8; это совместимость с предыдущей версией, т.е. с 2003, а моежт и ниже. FileFormat = xlOpenXMLWorkbook; это сохранение по умолчанию, т.е. для 2007 оффиса - это .xlsx

Читают тему