Entwickler-Ecke :: Thema anzeigen - Excel speichern und schließen Schreibschutz??

rob87 - Di 29.01.08 11:36
Titel: Excel speichern und schließen Schreibschutz??

Hallo

ich hab ein Problem beim Speichern der Datei. Er meldet mir immer, dass die Datei schreibgeschützt ist und ich sie nur unter einem anderen Namen speichern kann.

Kann das damit zusammenhängen, dass in meinem Task Manager die EXCEL.EXE vorhanden bleibt, auch wenn ich das Delphi-Programm beendet habe? Ich bekomm nämlich bei jedem neuen Ausführen des Delphi-Programms wieder eine EXCEL.EXE zu meinem Task Manager "dazu".

Delphi-Quelltext

1:
2:
3:
4:

//Prozedur um zu Excel zu verbinden
//Schließen der Excel-Sachen:
      Excel.Workbooks.Close;
    Excel.Quit;

Ich denk, dass da in den unteren zwei Zeilen der Wurm drin ist.

zuma - Di 29.01.08 11:53

wenn du immer ein excel in der Taskleiste 'dazu' bekommst ...
sind die auch nach ende deines Programms noch da ?? (das 'freut' dann den User ...)

is bei dir Excel ein Object, das du irgendwo vorher mit create erzeugt hast ??
dann würde ich sagen, da fehlt nach dem excel.quit ein excel.free ?

iKilledKenny - Di 29.01.08 11:54

Sorry, dass ich mich gestern nicht gemeldet habe.

Die Lösung deines Problems ist, dass du nach dem Quit den OleVariant freigibst.

Delphi-Quelltext

1:
2:

Excel.Quit;
Excel := UnAssigned;

Danach sollte die Excel.exe aus dem Taskmanager verschwinden.

rob87 - Di 29.01.08 12:00

iKilledKenny hat folgendes geschrieben:

Sorry, dass ich mich gestern nicht gemeldet habe.

Kein Thema. Is ja eigentlich eh ein neues Thema. :wink:

iKilledKenny hat folgendes geschrieben:

Die Lösung deines Problems ist, dass du nach dem Quit den OleVariant freigibst.

Delphi-Quelltext

1:
2:

Excel.Quit;
Excel := UnAssigned;

Danach sollte die Excel.exe aus dem Taskmanager verschwinden.

Funktioniert leider ned. :roll: :roll:

rob87 - Di 29.01.08 12:04

zuma hat folgendes geschrieben:

wenn du immer ein excel in der Taskleiste 'dazu' bekommst ...
sind die auch nach ende deines Programms noch da ?? (das 'freut' dann den User ...)

Ja, leider. :(

zuma hat folgendes geschrieben:

is bei dir Excel ein Object, das du irgendwo vorher mit create erzeugt hast ??
dann würde ich sagen, da fehlt nach dem excel.quit ein excel.free ?

Hier mein Erzeugungs-Quelltext:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//Prozedur um zu Excel zu verbinden
procedure TfrmVerbrEintr.excel_verbinden();
begin
  Excel := CreateOleObject('Excel.Application');

  try
    Excel.Workbooks.Open [Main.dateiname_verbrauch];
  except
    Messagedlg('Datei '+Main.dateiname_verbrauch+' nicht gefunden',mtConfirmation,[mbOK],0);
  end;

  if Excel.Workbooks[1].Sheets.Count = 0 then
    ShowMessage('Keine Arbeitsblätter');

  Excel.Workbooks[1].Activate;
end;

rob87 - Di 29.01.08 12:11

zuma hat folgendes geschrieben:

probier mal da, wo du excel.quit machst, direkt danach ein
excel.free (oder muss das Excel.release oder excel.freeandnil sein .. k.a)

Zitat:

Die Methode Free wird vom Automatisierungsobjekt nicht unterstützt

, sagt mein Delphi

rob87 - Di 29.01.08 12:14

iKilledKenny hat folgendes geschrieben:

Hab ein kleines Beispiel-Projekt angehängt.

Merci. Aber: :roll:

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Button2Click(Sender: TObject);
begin
  FExcel.Quit;
  FExcel := Unassigned;   <!-- Undefinierter Bezeichner 'Unassigned
end;

zuma - Di 29.01.08 12:20

hab da was mit word gemacht, denke mir, das müsste mit excel auch so gehen

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

// Units, die für Word-Nutzung eingebunden werden müssen:
// Word97, Word2000
function gibWordApp(xVisible : boolean = false) : TWordApplication;
begin
 try
  result := TWordApplication.Create(nil);   // Word im Hintergrund starten/erzeugen
  result.Visible:= xVisible;                // Word (nicht) anzeigen
 except
  result := nil;
 end;
end;

und da gibts dann auch ein
Word.free

versuch also mal,
a) die unit Excel einzubinden (uses) und
b) dann eine excel-instanz nach dem obigen Muster zu erzeugen

rob87 - Di 29.01.08 12:22

zuma hat folgendes geschrieben:

hab da was mit word gemacht, denke mir, das müsste mit excel auch so gehen

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

// Units, die für Word-Nutzung eingebunden werden müssen:
// Word97, Word2000
function gibWordApp(xVisible : boolean = false) : TWordApplication;
begin
 try
  result := TWordApplication.Create(nil);   // Word im Hintergrund starten/erzeugen
  result.Visible:= xVisible;                // Word (nicht) anzeigen
 except
  result := nil;
 end;
end;

und da gibts dann auch ein
Word.free

versuch also mal,
a) die unit Excel einzubinden (uses) und
b) dann eine excel-instanz nach dem obigen Muster zu erzeugen

Unit 'Excel' kennt er bei mir ned.

iKilledKenny - Di 29.01.08 12:25

Google brachte für Delphi 7 die Unit Variants.pas zum Vorschein... Evtl. mal ein Unassigned in den Quelltext und dann ein F1, in der Delphi 5 Hilfe wird die Unit angezeigt, in der Solche Dinge deklariert sind.

@zuma:
rob87 versucht die Nutzung von Excel mit einem OleObject, nicht mit den VCL-Komponenten.

rob87 - Di 29.01.08 12:30

iKilledKenny hat folgendes geschrieben:

Dankeschön. Hab die function Unassigned in der Unit Variants (über die Hilfe) gefunden und eingebunden. Nun funktionierts mit deinem Projekt. Schau gleich mal vom Quelltext, was sich da zu meinem unterscheidet.

@zuma: Und ja, ich mach des via OLE ;)

rob87 - Di 29.01.08 12:36

iKilledKenny hat folgendes geschrieben:

Nichts, ausser dass ich nach dem Excel.Quit noch ein Excel := Unassigned; mache... :D

Ja, eben. Und das hab ich ja nun auch gemacht. Hab nun sogar noch das Excel.Workbooks.Close; weggetan (fraglich ob des so klug war) :roll:

Aber des haut bei mir immer noch nicht hin.

Agawain - Di 29.01.08 13:41

hi

Das workbooks.close muß drin bleiben.
Starte mal den Rechner neu, kann sein, daß Windows die Dateien noch nicht freigegeben hat, selbst wenn Du alle Excel-Tasks beendet hast. Zumindest unser Samba-Server macht sowas :wink:.

rob87 - Di 29.01.08 14:15

Agawain hat folgendes geschrieben:

hi

Starte mal den Rechner neu, kann sein, daß Windows die Dateien noch nicht freigegeben hat, selbst wenn Du alle Excel-Tasks beendet hast. Zumindest unser Samba-Server macht sowas :wink:.

Hat nichts gebracht :roll: :?: :?:

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!