Axolot Data

Code: Select all

function TXLSNames.Add(const AName, ASheetName: AxUCString; const ACol, ARow: integer): TXLSName;
var
  Def: AxUCString;
begin
  if FManager.Worksheets.Find(ASheetName) < 0 then begin
    FManager.Errors.Error(ASheetName,XLSERR_FMLA_UNKNOWNSHEET);
    Result := Nil;
  end
  else begin
    Def := ASheetName+ '!' + ColRowToRefStr(ACol,ARow,True,True);
    Result := Add(AName,Def);
  end;
end;

Code: Select all

FManager.Worksheets.Find(ASheetName)

Code: Select all

Def := QuotedStr(ASheetName)+ '!' + ColRowToRefStr(ACol,ARow,True,True);

Code: Select all

program AddNameErr;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  XLSSheetData5,
  XLSReadWriteII5;

var xls: TXLSReadWriteII5;
    sheet: TXLSWorksheet;

begin
  xls := TXLSReadWriteII5.Create(nil);
  sheet := xls.Add();
  sheet.Name := 'one two';
  try
    xls.Names.Add('name1', sheet.name, 1, 1);
  except
    // Project AddNameErr.exe raised exception class Exception with message 'E4016: Uknown sheet name "two"'.
  end;

  try
    xls.Names.Add('name1', QuotedStr(sheet.name), 1, 1);
  except
    // quoting does not help
    // Project AddNameErr.exe raised exception class Exception with message 'E4016: Uknown sheet name "'one two'"'.
  end;
end.