procedure TForm1.Button1Click(Sender: TObject);
var
n: OleVariant;
begin
n := '';
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Workbooks.Add(n, 0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelApplication1.Cells.Item[1,1].Value := '123';
ExcelApplication1.Disconnect;
end;
Office (Excel)
Как можно вставлять данные в Excel,
например в ячейку A1 вставить 'Text'
Я делал так (по книге):
1) На форме ставил 2 компонента TExcelApplication и TExcelWorkbook
2)
TExcelApplication > AutoConnect:=True;
TExcelApplication > AutoQuit:=True;
TExcelWorkbook > ConnectKind:=ckAttachToInterface
3)
procedure TForm1.Button1Click(Sender: TObject);
Var n:OleVariant;
begin
n:='k1.xls';
ExcelApplication1.Workbooks.Add(n,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkBook);
ExcelApplication1.Cells.Item[1,1].Value:=Edit1.Text;
ExcelWorkBook1.PrintOut;
ExcelWorkBook1.Save;
ExcelWorkBook1.Close;
end;
Но вылазит ошибка и кричит 'Interface Not Supported'
У меня стоит Office 2003
Кстати, при установке Delphi спрашивалось насчет Office, было три варианта:
1) Office XP
2) Office 2000
3) Office 97
Пробовал все три, но в итоге ошибка вылазила такая же (not supported)
например в ячейку A1 вставить 'Text'
Я делал так (по книге):
1) На форме ставил 2 компонента TExcelApplication и TExcelWorkbook
2)
TExcelApplication > AutoConnect:=True;
TExcelApplication > AutoQuit:=True;
TExcelWorkbook > ConnectKind:=ckAttachToInterface
3)
procedure TForm1.Button1Click(Sender: TObject);
Var n:OleVariant;
begin
n:='k1.xls';
ExcelApplication1.Workbooks.Add(n,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkBook);
ExcelApplication1.Cells.Item[1,1].Value:=Edit1.Text;
ExcelWorkBook1.PrintOut;
ExcelWorkBook1.Save;
ExcelWorkBook1.Close;
end;
Но вылазит ошибка и кричит 'Interface Not Supported'
У меня стоит Office 2003
Кстати, при установке Delphi спрашивалось насчет Office, было три варианта:
1) Office XP
2) Office 2000
3) Office 97
Пробовал все три, но в итоге ошибка вылазила такая же (not supported)
Цитата:
Originally posted by LastSoul
Как можно вставлять данные в Excel,
например в ячейку A1 вставить 'Text'
Как можно вставлять данные в Excel,
например в ячейку A1 вставить 'Text'
На форму кидаешь TExcelApplication и TExcelWorkbook... никаких свойств менять не надо..
Код:
Спасибо, работает... :D :D :D
Только вылазит Excel и при закрытии просит указать путь сохранения (что тоже неплохо), но как сделать что в уже существующий файл (например 'c:\file.xls') прога внесла изменения и не задавая никаких вопросов сохранила его куда-нибудь (например 'c:\...\file.xls');
Ну и еще возникает пару вопросов:
1) Как указывать лист
например, ячейке A1 первого листа нужно := 'Это лист 1', а ячейке A1 второго := 'Это лист 2';
2) Можно ли добавлять и удалять эти листы;
Только вылазит Excel и при закрытии просит указать путь сохранения (что тоже неплохо), но как сделать что в уже существующий файл (например 'c:\file.xls') прога внесла изменения и не задавая никаких вопросов сохранила его куда-нибудь (например 'c:\...\file.xls');
Ну и еще возникает пару вопросов:
1) Как указывать лист
например, ячейке A1 первого листа нужно := 'Это лист 1', а ячейке A1 второго := 'Это лист 2';
2) Можно ли добавлять и удалять эти листы;