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

Aleksandar Ilić
Software Developer
Beograd

Član broj: 15867
Poruke: 417

Sajt: www.ailic.rs

+3 Profil

Upisivanje stringa u Excel-ovoj ćeliji

^{12.12.2005. u 23:43 - pre 232 meseci}

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.

_{„Naposletku, suština saznavanja nije u tome gubimo li igru, već kako je gubimo,

šta time spoznajemo, čemu nas je poraz naučio i kako nas to menja. Gubiti na određen

način znači - dobijati.”}
^{Richard Bach}

Odgovor na temu

igorv
Igor Vujovic
Beograd

Član broj: 70222
Poruke: 68
195.46.55.*

Sajt: objengine.com

+4 Profil

Re: Upisivanje stringa u Excel-ovoj ćeliji

^{16.12.2005. u 14:18 - pre 232 meseci}

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';

Odgovor na temu