I? Di je zapelo?
Nisi zaslužio, ali evo.
Code:
procedure TFTest.UExcel;
var
sImeFajla: String;
x, y: integer;
FWorkSheet, VExcel : Variant;
begin
sImeFajla := OcitajIni('LokacijaExcel');
VExcel := CreateOleObject('Excel.Application');
VExcel.Visible := false;
VExcel.Workbooks.Open(sImeFajla+'ip.xlsm');
FWorkSheet := VExcel.ActiveSheet;
DSetPopisRadnika.First;
while not DSetPopisRadnika.Eof do
begin
VExcel.Sheets.Add;
FWorkSheet := VExcel.ActiveSheet;
y:=7;
x:=7;
FWorkSheet.Cells[y, x] := sGodina;
y:=7;
x:=10;
FWorkSheet.Cells[y, x] := Edit3.Text;
y:=3;
x:=1;
FWorkSheet.Cells[y, x] := 'NAZIV/IME I PREZIME:';
inc(y);
FWorkSheet.Cells[y, x] := 'ADRESA:';
inc(y);
FWorkSheet.Cells[y, x] := 'MB ILI MBG:';
y:=3;
x:=4;
FWorkSheet.Cells[y, x] := DataModuleNeki.DSetNeki.FieldByName('NAZIV').AsString;
.......
.......
.......
VExcel := unAssigned;
To ti je primjer kako pristupiti Excel file-u i kako ubacivati podatke.
F