Форум: "Corba";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];
ВнизКак это выгледит в Дельфи Найти похожие ветки
← →
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?
← →
palva © (2006-01-21 00:21) [3]> а разве этого не происходит при загрузке ComObj?
Не знаю, у меня (D7) не происходит. Если выкинуть CoInitialize, то будет ругаться при выполнении. При VCL- приложении наверно происходит.
Страницы: 1 вся ветка
Форум: "Corba";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c