W delphi polaczylem sie do arkuszu excela i zapisuje dane go komorek w arkusz. i mam taki problemik jak zapisze do tych komorek to zamykam excela i po otwarciu tego pliku to nie widac wcale arkuszy. tak jakby byly one niewidoczne ale sa tam. Wykorzystalem w programie procedure zamieszczana jednym z artykukow.

procedure TForm6.Do_Excela(aForm: TForm; ExcelApplication1: TExcelApplication;
ExcelWorkBook1: TExcelWorkBook);
var
w,k,liczk :Integer;
Arkusz :TExcelWorkSheet;
Temp_Worksheet: _WorkSheet;
begin
Form1.DataSource4.Enabled:=false;
try
ExcelApplication1.Connect;
{w pasku tytulu}
if zestawienie=0 then begin
ExcelApplication1.Caption:='Zestawienie miesięczne dla zlomu kolorowego - '+ComboBox1.Text+' '+ComboBox2.Text;
liczk:=4;
end
else begin
ExcelApplication1.Caption:='Zestawienie miesięczne dla zlomu stalowego - '+ComboBox1.Text+' '+ComboBox2.Text;
liczk:=5;
end;
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)as _WorkSheet;
Arkusz:=TExcelWorkSheet.Create(aForm);
Arkusz.ConnectTo(Temp_WorkSheet);
Arkusz.Name:='Zestawienie miesięczne';
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.ScreenUpdating[0] := True;
Arkusz.Cells.ColumnWidth:=21;
{czcionka}
Arkusz.Cells.Font.Name:='Arial';
Arkusz.Cells.Font.Size:=10;
Arkusz.Cells.VerticalAlignment:=xlCenter;
Arkusz.Cells.HorizontalAlignment:=xlCenter;
...
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
Arkusz.Free;
except
ShowMessage('W Twoim komputerze nie jest zainstalowany MS Excel lub aplikacja ta jest uszkodzona albo też przerwałeś(aś) pracę aplikacjii !');
end;
moze ktos mi momoze. Z gory dziekuje:)