diff --git a/components/fpspreadsheet/fpspreadsheet.pas b/components/fpspreadsheet/fpspreadsheet.pas
index 16c519d19..ba06dee29 100755
--- a/components/fpspreadsheet/fpspreadsheet.pas
+++ b/components/fpspreadsheet/fpspreadsheet.pas
@@ -398,7 +398,7 @@ var
   lStr: string;
 begin
   lStr := '';
-  if ACol < 26 then lStr := Char(ACol+54);
+  if ACol < 26 then lStr := Char(ACol+65);
 
   Result := Format('%s%d', [lStr, ARow+1]);
 end;
diff --git a/components/fpspreadsheet/xlsxooxml.pas b/components/fpspreadsheet/xlsxooxml.pas
index 9b2990bb7..18f2af5eb 100755
--- a/components/fpspreadsheet/xlsxooxml.pas
+++ b/components/fpspreadsheet/xlsxooxml.pas
@@ -493,7 +493,7 @@ begin
   CellPosText := TsWorksheet.CellPosToText(ARow, ACol);
   FSheets[FCurSheetNum] := FSheets[FCurSheetNum] +
    Format('    <c r="%s" t="s">', [CellPosText]) + LineEnding +
-          '      <v>2</v>' + LineEnding +
+   Format('      <v>%s</v>', [AValue]) + LineEnding +
           '    </c>' + LineEnding;
 end;
 
@@ -508,7 +508,7 @@ begin
   CellPosText := TsWorksheet.CellPosToText(ARow, ACol);
   FSheets[FCurSheetNum] := FSheets[FCurSheetNum] +
    Format('    <c r="%s">', [CellPosText]) + LineEnding +
-          '      <v>1</v>' + LineEnding +
+   Format('      <v>%f</v>', [AValue]) + LineEnding +
           '    </c>' + LineEnding;
 end;