Здравствуйте!
Вопрос в следующем.
Вызываю метод SaveAs, второй
параметр этого метода - тип файла. Если этот параметр положительное число,
например, xlTextWindows=20, все прекрасно работает. А мне нужен параметр xlText = -4158 (отрицательный)
и когда его подставляю, программа перестает работать. В чем дело?
Спасибо за ответы.

Версия 4.0B

На 2003-м офисе всё ок:



Ну разве что лучше вынести в константы:

Пробывал и так, и так. Не работает. Правда у меня MS Office XP SP2, может быть дело в этом.

Недавно кто-то в другой ветке пытался сохранять через Worksheet.SaveAs, и утверждал, что в XP работает, а в 2003-м нет.

Ты чей метод SaveAs дёргаешь? Sheet или Book?

Хотя всё-равно странно, если с 20 работает..

Я сохранял так Worksheet.SaveAs (не работало).

Сейчас переделал как Workbooks.SaveAs и ... заработало.

Странно. Вроде раньше <я не знать русский языка> и Worksheet.SaveAs, и Workbooks.SaveAs и не работало.

Спасибо за помощь. Проблема решена.

имхо - видимо тип integer не совместим с абаповским i

как вариант - присвоить значение объекту Workbook.CustomDocumentProperties
и уже его .Value передавать в качестве второго параметра ... чтото вроде такого вот:

Const msoPropertyTypeNumber = 1
ThisWorkbook.CustomDocumentProperties.Add "myconst",False, msoPropertyTypeNumber,4158

ThisWorkbook.CustomDocumentProperties("myconst").Value = -ThisWorkbook.CustomDocumentProperties("myconst").Value

Thisworkbook.SaveAs "filename",ThisWorkbook.CustomDocumentProperties("myconst").Value