Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c