Galyamov Rinat

"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

Ренат, а вы пробовали сами все это проделать?
Я имею в виду команду loXLSDoc.SaveAs("C:\1111111111.xls",xlExcel9795,"","",.f.,.f.) ?
С уважением, Алексей

VitalьВот мой код ...
#DEFINE xlExcel9795 43
cFileNameIn = 'D:\DRP\ZExpert\Other\Shablon\ZayaonEx.xlt'
cFileNameOut = 'c:\test.xls'
objExcel = GETOBJECT("", "Excel.Application")
IF VARTYPE(objExcel) <> "O" OR ISNULL(objExcel)
RETURN .F.
ELSE
objExcel.WorkBooks.Open(cFileNameIn)
*// VBA >>>
*//ActiveWorkbook.SaveAs FileName:="C:\1111111111.xls", FileFormat:= _
*// xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
*// False, CreateBackup:=False
*// VBA <<<
*// objExcel.ActiveWorkbook.SaveAs(cFileNameOut,xlExcel9795,'','',False,False) -- не работает
*// 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
А у вас часом OFFICE не 2007 ?
С уважением, Алексей

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

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

Это все? или у вас еще какой вопрос?
И у вас это работает на Office 2007 ?
Больше вопросов нет.

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

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





#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




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

AleksMed1. Excel 2007 не воспринимает константу xlExcel9795 для метода Workbook.SaveAs, хотя она и приведена в списке констант в хелпе. Баг это или что то другое - не знаю
2.
3. Если используешь XLT шаблон, то не надо делать Workbooks.Open(), лучше Workbook.Add("TemplateFileName.xlt")
Точно... Спасибо. Получилось теперь SaveAs с более, чем один параметром и в Office 2007!
Я так понимаю, что он не константу не воспринимает, а не может сохранять в формате очень старого Excel.
С уважением, Алексей.

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

Похоже что в хелпе не подчистили список констант или что то другое.
А что-то я при записи из самого Excel 2007 в списке форматов не вижу Excel 5/95 ?
Excel 97-2003 есть, а Excel 5/95 не вижу!
С уважением, Алексей