Witam.
Jak przenosząc z stringgrid do excela wymusić na excelu nadanie komórkom tryb tekstowy, a nie automatycznie rozpoznawał typ komórki. Chodzi mi głownie żeby wyrażenie typu "3/2007" excel rozpoznawał jako tekst a nie jako datę.
Kod wygląda następująco:
procedure TForm1.doexcel(var tab:tarray;var tabw:TStringGrid;var button:Tbutton);
var
Excel:Variant;
i,j:integer;
begin
try
Button.Visible:=False;
Excel:=CreateOleObject('Excel.Application'); // Otwarcie nowego Excela
Excel.WorkBooks.Add; // Stworzenie skoroszytu
for j:=1 to lickolspr do
Begin
for i:=1 to ogr-1 do if (tab[2,i]<>'')or(tab[1,i]<>'')then
begin
Excel.Cells[i,j]:=tab[j,i];
end;
end;
Excel.Visible := True;
//Excel.Cells[1,1].Value:='5as '; // Zapis danej do komórki Excela
{Excel.ActiveWorkbook.SaveAs('roz.xls'); // Zapis do pliku
Excel.Quit; }
finally
Button.Visible:=true;
end;
end;