> Ну пляши от objExcel.Version и подставляй соответствующую константу.

Или как я тебе уже говорил, пока меня не перебили:

Чтобы не было таких заморочек с версией офиса - создай просто xls (документ,
а не шаблон) нужной версии (руками) и
его уже копируй, наполняй и сохраняй (save с одним параметром, а не saveAs).


Posted via ActualForum NNTP Server 1.4

"Aleksey-K" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:5285384@sql.ru...
> Автор: Aleksey-K
> Galyamov Rinat
>
>
> > Ну пляши от objExcel.Version и подставляй соответствующую
> константу.
>
> Или как я тебе уже говорил, пока меня не перебили:
>
> Чтобы не было таких заморочек с версией офиса - создай просто
> xls (документ,
> а не шаблон) нужной версии (руками) и
> его уже копируй, наполняй и сохраняй (save с одним параметром,
> а не saveAs).
>
>
> Прошу прощение, что опять Вас перебиваю, но вы все-таки проверяйте,
> что советуете!
А почему ты считаешь. что я не проверяю???

> 1 .Save НЕ работает и с одним параметром - только без параметров.
Может все таки офис 2007 сильно переделали VBA?

Этот кусок работает ДЛЯ AleksMed - файл
"d:\__Паспортизация\_паспорт1.XLS" - создан как excel95

#DEFINE xlExcel9795 43

cFileNameIn = 'd:\__Паспортизация\_паспорт1.XLS'

cFileNameOut = 'c:\test.xls'

objExcel = GETOBJECT("", "Excel.Application")

IF VARTYPE(objExcel) <> "O" OR ISNULL(objExcel)

RETURN .F.

ELSE

objExcel.DisplayAlerts = .F.

objExcel.WorkBooks.Open(cFileNameIn)



objExcel.ActiveWorkbook.Sheets(1).cells(1,1).value='Изменилось ли???'

objExcel.ActiveWorkbook.Save()

objExcel.quit

RELEASE objExcel

ENDIF

Файл "d:\__Паспортизация\_паспорт1.XLS" остается в том же формате
(excel95)


> 2. А вот SaveAs работает с одним параметром (имя файла) в любой
> версии EXCEL.
Цитата из HELP`а к microsoft Visual Basic 6.5 (от office execl 2003 SP3)

Saves changes to the specified workbook.

expression.Save

expression Required. An expression that returns a Workbook object.

Remarks
To open a workbook file, use the Open method.

To mark a workbook as saved without writing it to a disk, set its Saved
property to True.

The first time you save a workbook, use the SaveAs method to specify a name
for the file.

Example
This example saves the active workbook.

ActiveWorkbook.Save
This example saves all open workbooks and then closes Microsoft Excel.

For Each w In Application.Workbooks
w.Save
Next w
Application.Quit


Posted via ActualForum NNTP Server 1.4

> Прошу прощение, что опять Вас перебиваю, но вы все-таки проверяйте,
> что советуете!
> 1 .Save НЕ работает и с одним параметром - только без параметров.

Ну да. Без параметров. Твоя правда. Руки про параметр поторопились написать.

Кусок примера выслал.

Описание как оно должно работать:
Есть файл *.xls - шаблон.

Скопировали его куда нужно.
Из фокса через оле открыли, изменили, сохранили, если надо показали и т.п.

Получили что хотели - пошли пить пиво ;-)


Posted via ActualForum NNTP Server 1.4