Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: ActiveX/СОМ/CORBA > копировать лист...


Автор: alexpro2004 17.8.2007, 00:10
мне надо скопировать с 'C:\15.xls' третий лист в C:\1.xls' как это сделать...
объясните....

procedure TForm1.Button4Click(Sender: TObject);
var
  Excel, sheet: Variant;
begin
  Excel:=CreateOleObject('Excel.Application');
  try
    Excel.visible:=true;
    Excel.DisplayAlerts:=false;
    Excel.WorkBooks.Add('C:\1.xls');
  Excel.Workbook.Sheets[3].open('C:\15.xls');
    Excel.Sheets.Copy(EmptyParam,EmptyParam,0);
   
  except
    Excel.Quit;
    Excel:=null;
  end;
end;

Автор: Albinos_x 17.8.2007, 19:54
1. Используйте теги (кнопка "Код")
2. как копировать лист есть в статье закреплённой вверху страницы (http://forum.vingrad.ru/topic-84634.html), а также здесь (http://forum.vingrad.ru/topic-70509.html)
всё это также отображено внизу страницы...
3. есть пример для копирования ячеек из одной книги в другую... скачать можно здесь:
http://www.albinos.nightmail.ru/Excel.zip

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)