[es] - Upisivanje stringa u Excel-ovoj ćeliji

Aleksandar Ilić
Beograd

Član broj: 15867
Poruke: 405
*.smin.sezampro.yu.

Profil

Upisivanje stringa u Excel-ovoj ćeliji

^{12.12.2005. u 23:43}

Interesuje me kako da upišem string u određenu ćeliju u Excel-u.
Treba mi preko drag&drop-a ili pritiskom na button ili šta već u programu da se dotični string doda u aktivnu ćeliju.

Unapred hvala.

_{„Zaslepljujuće neznanje vodi nas krivim putem. O! Smrtnici jadnici, otvorite oči!”}
^{Leonardo da Vinči}

^{12.12.2005. u 23:43}

igorv
Igor Vujovic
Beograd

Član broj: 70222
Poruke: 20
195.46.55.*

Profil

Re: Upisivanje stringa u Excel-ovoj ćeliji

^{16.12.2005. u 14:18}

1.
možes preko clipboarda tj.
edit1.copytoclipboard a posle da pastuješ ručno ili preko makroa u excel ili

2. da koristiš OLE tj

Code:

uses
...,comobj;
var     XLApp,Sheet: Variant;

begin
try
  XLApp:= CreateOleObject('Excel.Application');
  XLApp.Visible := True;
  XLApp.FixedDecimal:=true;

ako hoces da otvoris postojeci dokument onda

Code:

XLApp.Workbooks.Open('c:\..ime excel fajla.XLT');

ili da kreiras novi

Code:

XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name := 'Ime sita';

Code:

  Sheet := XLApp.Workbooks[1].WorkSheets['Ime sita'];
  //sheet.rows[4].Font.Bold := True;
  //sheet.rows[4].Interior.ColorIndex := 3;
//  sheet.Rows[1].rowheight:=22; sheet.Rows[2].rowheight:=22;
//  Sheet.Columns[1].ColumnWidth := 3;

Poljima u excelu pristupas sa

Code:
sheet.Cells[x,y]:='string';

^{16.12.2005. u 14:18}