"Vitalь" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:5282437@sql.ru...
> Автор: Vitalь
> Как это перевести, помогите пожалуйста
>
> Файл шаблон *.xlt создан в Excel 97
> открываю
> objExcel.WorkBooks.Open(cFileNameIn)
> теперь этот шаблон нужно сохранить в другом файле, в формате Excel97
> код на VBA
> *//ActiveWorkbook.SaveAs FileName:="C:\1111111111.xls", FileFormat:=
> _
> *// xlExcel9795, Password:="", WriteResPassword:="",
> ReadOnlyRecommended:= _
> *// False, CreateBackup:=False
> помогите перевести строку в VFP9SP2

xlExcel9795 = 43 - это числовая константа - можно использовать число, можно
через define определить

и не ActiveWorkbook. , а loXLSDoc. - так будет понятней.

xlExcel9795 = 43
objExcel=CREATEOBJECT("Excel.Application")

loXLSDoc = objExcel.WorkBooks.Open(GETFILE())

loXLSDoc.SaveAs("C:\1111111111.xls",xlExcel9795,"","",.f.,.f.)

objExcel.Quit


Posted via ActualForum NNTP Server 1.4

> Ренат, а вы пробовали сами все это проделать?
Ринат.

> Я имею в виду команду
> loXLSDoc.SaveAs("C:\1111111111.xls",xlExcel9795,"","",.f.,.f.) ?
Обязательно! Весь этот кусок целиком.

Это все? или у вас еще какой вопрос?


Posted via ActualForum NNTP Server 1.4

Вот этот кусок отработал на УРА.

Действительно, может с офисом чего связано?





#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.WorkBooks.Open(cFileNameIn)

objExcel.ActiveWorkbook.SaveAs(cFileNameOut,xlExcel9795,"","",.F.,.F.)

*//
objExcel.ActiveWorkbook.SaveAs(cFileNameOut,xlExcel9795,'','',.F.,.F.) -- не
работает

*// objExcel.ActiveWorkbook.SaveAs(cFileNameOut,xlExcel9795) - не работает

objExcel.DisplayAlerts = .F.

objExcel.Visible = .F.

objExcel.Save

* эксель становится видимым на экране

objExcel.Visible = .T.

RELEASE objExcel

ENDIF


Posted via ActualForum NNTP Server 1.4

И еще раз говорю, что лучше использовать прямую ссылку на книгу, которую ты
получаешь при открытии файла:

loXLSDoc = objExcel.WorkBooks.Open(GETFILE())

loXLSDoc - вот эта ссылка на твой объект, которая в твоем примере совпадает
с objExcel.ActiveWorkbook., но это не всегда так.
Например тебе надо будет тусовать книги, из одной копировать в другую. Тогда
ты со своим "ActiveWorkbook" напаришсься так, что тебе никто не позовидует.


> loXLSDoc.SaveAs("C:\1111111111.xls",xlExcel9795,"","",.f.,.f.)


Posted via ActualForum NNTP Server 1.4

> Да на ура, на ура. У всех проходит, проходил...
> А вы его попробуйте на Excel 2007 прогнать и скажите, какой у вас
> результат.

Нету под рукой. И пока не горю желанием на него переползать.
Такое ощущение, что ты меня упрекаешь в том, что на остальных офисах это
работает.


Posted via ActualForum NNTP Server 1.4

> вначале был установлен Excel 2007
> затем Excel 97

А ты уверен, что константа xlExcel9795 была уже определена в 97 офисе???


Posted via ActualForum NNTP Server 1.4

Перечитал твой вопрос.

>Файл шаблон *.xlt создан в Excel 97 открываю
>objExcel.WorkBooks.Open(cFileNameIn)
>теперь этот шаблон нужно сохранить в другом файле, в формате Excel97 код на
>VBA

Я правильно понял. что тебе по сути надо просто его скопировать некую
шаблонную форму и заполнить?

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


Posted via ActualForum NNTP Server 1.4

Копировать можно даже средствами самого фокса.


Posted via ActualForum NNTP Server 1.4

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

Обид нет и быть не может.
Работать надо правильно всегда и со всем.


Только поясни, если правильно работать с шаблоном, как сохранить файл
созданый на его основе в документорованном формате 97 экселя?

Твоя цитата:
1. Excel 2007 не воспринимает константу xlExcel9795 для метода
Workbook.SaveAs, хотя она и приведена в списке констант в хелпе. Баг это или
что то другое - не знаю.


Posted via ActualForum NNTP Server 1.4

> Нет, сохранить с старом формате он может. Только у него теперь
> деление:
> xlExcel8 - Excel 97-2003
> xlExcel5 - Excel 5/95
> Это видно если поиграться записью макроса при SaveAs.
>
> Похоже что в хелпе не подчистили список констант или что то другое.

Странно, что заменили разделение и самое странное, что убрали декларирванные
имиже константы.
Наверное просто забыли добавить обработку некоторых констант.


Posted via ActualForum NNTP Server 1.4

> Ну пляши от 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