как программно создать пустой файл Excel? [D6, dBase, FoxPro]
denary © (2003-04-10 02:18:00)
Мастера, помогите начинающему -
как программно создать новый файл 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:00) [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, в ней создается новая книга,
а потом сохраняешь полученный файл как желаешь
Наверх 
ЧАТ |
Орешник |
|
