как программно создать пустой файл Excel?

← →
denary (2003-04-10 02:18) [0]

Мастера, помогите начинающему -
как программно создать новый файл Excel? Из VBA help не могу разобраться..

var
Word: Variant;
begin
Word := CreateOleObject("Word.Basic");
Word.FileNew("Normal");
Word.FileSaveAs("c:\temp\test.doc", 3);
end;
как сделать то же самое для Excel?
Если можно, хотя бы небольшой пример.
Я делаю
if not ((FileExists( TEdit1.Text))) then
CheckListBox1.Items.SaveToFile(TEdit1.Text);
но это текстовый файл, при внесении изменений Excel предлагает сохранить его по умолчанию как текстовый файл. Можно ли программно это изменить на документ Excel (значение по умолчанию)?

← →
supersan (2003-04-10 06:54) [1]

Вот так не поможет?
procedure TForm1.bbExcelClick(Sender: TObject); var xl: OLEVariant; begin try xl:=GetActiveOleObject("Excel.Application"); except try xl:= CreateOLEObject("Excel.Application"); except MessageBox(Handle, PChar("Не могу запустить Excel"), PChar("Ошибка"), 16); Exit; end; end; xl.WorkBooks.Add; xl.Visible:=true; end;
А дальше идет работа с Excel посредством переменной xl
В результате запускается Excel, в ней создается новая книга, а потом сохраняешь полученный файл как желаешь

как программно создать пустой файл Excel? Найти похожие ветки