| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как это выгледит в Дельфи [Delphi, Windows]

Alex17 ©   (2006-01-14 15:54:00) 

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

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-21 00:21:00) [1]

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

---

umbra   (2006-01-16 12:01:00) [2]

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


>   CoInitialize(Nil);
>
>   CoUninitialize;
>

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

---

palva   (2006-01-14 22:01:00) [3]

{$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.


---

Наверх