Как это выгледит в Дельфи

← →
Alex17 (2006-01-14 15:54) [0]

Здравствуйте уважаемые мастера. У меня возникла проблема я записал макрос и пытался написать код на дельфи того что делает Макрос но работает не так как нужно. Помогите Пожалуйста вот и сам макрос

Sub Macro2()
"
" Macro2 Macro
" Macro recorded 14.01.2006 by ALEXX
"

"
Workbooks.Add
ChDir "C:\Documents and Settings\Alex\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Alex\Desktop\Book2.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Мне надо чтоб мая программа создала Обычный Файл Экселя с пустой книгой и сохранила его. Покажите как это выглядит в Дельфи

← →
palva © (2006-01-14 22:01) [1]

{$APPTYPE CONSOLE} uses Variants, ActiveX, ComObj; Const xlNormal = -4143; var ExcelApp: Variant; begin CoInitialize(Nil); ExcelApp := CreateOleObject("Excel.Application"); ExcelApp.Workbooks.Add; ExcelApp.ActiveWorkbook.SaveAs("D:\C\pascal\oletest.xls", xlNormal, "", "", False, False); // Но можно и так - наверно, разницы нет. // ExcelApp.ActiveWorkbook.SaveAs("D:\C\pascal\oletest.xls"); ExcelApp.Quit; ExcelApp := Unassigned; CoUninitialize; end.

← →
umbra © (2006-01-16 12:01) [2]

2 palva © (14.01.06 22:01) [1]

> CoInitialize(Nil);
>
> CoUninitialize;
>

а разве этого не происходит при загрузке ComObj?

> а разве этого не происходит при загрузке ComObj?
Не знаю, у меня (D7) не происходит. Если выкинуть CoInitialize, то будет ругаться при выполнении. При VCL- приложении наверно происходит.

Как это выгледит в Дельфи Найти похожие ветки