[es] - Delphi rzmena podtaka izmedju Excel-a

nekicneko99
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad Srbija

Član broj: 323579
Poruke: 108
*.dynamic.isp.telekom.rs.

Profil

Delphi rzmena podtaka izmedju Excel-a

^{06.07.2014. u 18:03 - pre 119 meseci}

Kao prvo izvinjavam se, u poslednje vreme pravim puno tema, ali sta da se radi. Delphi i skinovi mi je biolo za dusu, a ovo je za posao.

Misio sam da preko OLE-a ucitam/snimi podatke iz/u excel/-a. E sada problem je sto mi aplikacija izbacuje runtime gresku.

Evo konkrtno procedure

Code:

procedure TForm1.napraviekselExecute(Sender: TObject);
var
  XLApp: OLEVariant;
  WorkSheet: Variant;
  x, y: byte;
  Path: variant;
  g, r, o: integer;
begin
  if bazao then
  begin
    Path:=ExtractFilePath(Application.ExeName);
    SaveExcel.FileName:=baza+'.xls';
    if SaveExcel.Execute then
    begin
      if FileExists(Path+'template.xls') then
      begin
        CopyFile(Path+'template.xls', SaveExcel.FileName);
        Path:=SaveExcel.FileName;
        try
          XLApp:=CreateOleObject('Excel.Application');
          XLApp.Visible:=false;
          XLApp.DisplayAlerts:=false;
          XLApp.WorkBook.Open(Path+'template.xls');
          showmessage(XLApp.Cell[1, 1]);
        finally
          XLApp.ActiveWorkbook.Save;
          XLApp.Quit;
          XLApp:=Unassigned;
        end;
      end
      else
        Greske.Reinstalacija(Path, 'template.xls');
    end;
  end
  else
  begin
    if Greske.BazaNijeOtvorena=6 then
      otvori_bazu.Execute;
  end;
end;

Molim vas za pomoc. Unapred hvala.

_{[Ovu poruku je menjao nekicneko99 dana 06.07.2014. u 19:20 GMT+1]}

https://www.youtube.com/watch?v=CGvGdOjnTIA

Prikačeni fajlovi

p1.png - 17.38k

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Delphi rzmena podtaka izmedju Excel-a

^{07.07.2014. u 11:52 - pre 119 meseci}

Ja radim ovako:

Code (delphi):

procedure ......

var

    FWorkSheet, VExcel: Variant;

    ColumnRange: OleVariant;

    Range: Variant;

begin

          VExcel := CreateOleObject('Excel.Application');

          VExcel.Visible := False;

          VExcel.WorkBooks.Open(strImeFajla + 'stat.xls');

          FWorkSheet := VExcel.WorkSheets[2];

          VExcel.Sheets[2].Activate;

          FWorkSheet.Cells[i, 3] := DSet.Fields[0].AsString;

          VExcel.Visible := true;

          VExcel := unAssigned;

end;

Odgovor na temu

nekicneko99
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad Srbija

Član broj: 323579
Poruke: 108
*.dynamic.isp.telekom.rs.

Profil

Re: Delphi rzmena podtaka izmedju Excel-a

^{08.07.2014. u 15:15 - pre 119 meseci}

Hvala, nasao sam gde je greska (jedno slovo)

napisao sam WokBook.Open(Path);
a treba WorkBooks.Open(path);

Hvala.

https://www.youtube.com/watch?v=CGvGdOjnTIA

Odgovor na temu