procedure TForm12.btn1Click(Sender: TObject);
var
Workbook: OleVariant;
Worksheet: OleVariant;
begin
try
ExcelObj := GetActiveOleObject('Excel.Application');
except
try
ExcelObj := CreateOleObject('Excel.Application');
except
MessageBox(0, 'Не установлен Excel', 'Ошибка', MB_OK or MB_ICONSTOP);
exit;
end;
end;
try
ExcelObj.ScreenUpdating := False;
Workbook := ExcelObj.Workbooks.Add;
Worksheet := ExcelObj.ActiveSheet;
Worksheet.Cells[1, 1].Value := 'Тест';
// Копируем Range
ExcelObj.Range['A1:C3'].Copy;
// Указываем место, куда копировать
Worksheet.Cells[10, 1].Select;
// Копируем
Worksheet.Paste;
finally
ExcelObj.Visible := True;
end;
end;
|
