Форум: "Базы";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];

Вниз

как программно создать пустой файл 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, в ней создается новая книга, а потом сохраняешь полученный файл как желаешь

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];

Наверх

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