[es] - uvoz excel tabele u delphi

proba_kg

Član broj: 225716
Poruke: 2
77.46.201.*

Profil

uvoz excel tabele u delphi

^{17.06.2009. u 11:42 - pre 180 meseci}

Imam zahtev da tabelu u access-u upunim kroz delphi aplikaciju iz excel tebele

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: uvoz excel tabele u delphi

^{17.06.2009. u 12:05 - pre 180 meseci}

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.

Odgovor na temu

proba_kg

Član broj: 225716
Poruke: 2
79.101.192.*

Profil

Re: uvoz excel tabele u delphi

^{24.06.2009. u 11:40 - pre 180 meseci}

opet ja!
da se zahvalim na pomoci ali efekat je nikakav.ova procedura koju ste mi poslali ne radi.verovatno fali nesto

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: uvoz excel tabele u delphi

^{24.06.2009. u 12:21 - pre 180 meseci}

Pogledajte u uses da li imate slijedeće:

ComObj, ExcelXP

I inače, napišite šta ne radi, koju grešku baca, na kojoj liniji itd...

Ovo šta sam vam poslao je samo primjer, sigurno neće raditi na c/p.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: uvoz excel tabele u delphi

^{24.06.2009. u 12:29 - pre 180 meseci}

Ako je i dalje pitanje kako da nesto iz Excela prebacis u Access, otvoriš access tabelu, otvoriš Excel, vrtiš se u petlji i redom dodaješ.
Kao TOP temu imaš ADO upute kako koristiti Access tabelu iz Delphija. Za upotrebu Excela isto možeš koristiti ADO (samo treba odgovarajući connection string, bilo je to dato pre nekoliko dana) ili možeš koristiti Excel preko OLEa (kao što ti je dato u primeru u ovoj temi.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu