Hiho.
Mit ein wenig Phantasie kann man dem Topic schon entnehmen, worum es geht ^^
Ich möchte von Delphi aus Excel ansteuern, dazu habe ich auch einige Beiträge im Netz gefunden und es auch wie folgt umgesetzt:
Delphi-Quellcode:
procedure TForm1.ExcelViewer(ms:TMemoryStream);
var
Excel : Variant;
strPath :
string;
screened:boolean;
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
try
try
ms.Position:=0;
strPath:=ExtractFilePath(paramstr(0))+'
hype.xls';
ms.savetofile(strPath);
Excel:=CreateOleObject('
Excel.Application');
try
Excel.Workbooks.open(strPath);
Excel.Visible:=true;
screened:=takescreen(bmp);
finally
Excel.quit;
deletefile(strPath);
end;
if screened
then
begin
image1.Picture.Bitmap.assign(bmp);
memo1.Visible:=false;
stringgrid1.Visible:=false;
image1.Visible:=true;
image1.Left:=0;
image1.Top:=0;
image1.Height:=image1.Picture.Height;
image1.Width:=image1.Picture.Width;
form1.clientheight:=image1.Height;
form1.ClientWidth:=image1.Width;
end
else
showmessage('
taking screenshot failed');
finally
bmp.Free;
deletefile(strPath);
end;
except
on e :
exception do
showmessage('
das hat nicht geklappt '+e.
message);
end;
end;
Die Procedure ist nicht wirklich ausgereift, z.Bsp. kriege ich Excel nicht maximiert, falls es noch nicht maximiert ist.
Habe auch schon n Makro aufgezeichnet:
Application.WindowState = xlMaximized
Ich krieg das aber nicht in Delphi übertragen...
Ein weiterer sehr unschöner Sachverhalt ist, dass ich die hype.xls nicht mehr löschen kann, weil sie von irgendwas geöffnet ist.
Habe im TaskManager nachgeguckt, ob da irgendwo noch ein Excel läuft und: nein
Auch nach einem Neustart ist die Datei nicht löschbar... (auch von Hand nicht)
Also wer mir da einen Rat geben kann: immer her damit!
Nun zum eigentlichen Problem:
Mir liegt das Excel-File als MemoryStream vor und ich würde den gern an Excel übergeben, anstatt ihn erst als .xls abzuspeichern und die Datei dann mit Excel zu öffnen - geht das irgendwie?
Vielen Dank schonmal.
mfg
Hype