<definedName name="_FilterDatabase" localSheetId="0" hidden="1">Лист1!$A$26:$I$26</definedName>
<definedName name="_xlnm._FilterDatabase" localSheetId="0" hidden="1">Лист1!$D$1:$D$272</definedName>

function TDSMessageLoader.FixXLSXFile(XLSFileName, TempFolder: String; aZM: TZipMaster; var ErrMsg: String):Boolean;
var XMLDoc, aNode, aNodeList: Variant;
FileName: String;
i: Integer;
begin
  try
  Result := True;
  aZM.Unattended := True;
  aZM.ZipFileName := XLSFileName;
  aZM.ExtrBaseDir := TrimPathDelimiter(TempFolder) + '\';
  aZM.FSpecArgs.Clear;
  aZM.ExtrOptions := [];
  aZM.ExtrOptions := aZM.ExtrOptions + [ExtrDirNames] + [ExtrOverwrite];
  aZM.FSpecArgs.Add('xl\workbook.xml');
  aZM.Extract;

  FileName := aZM.ExtrBaseDir + 'xl\workbook.xml';

  XMLDoc := CreateOleObject('MSXML2.DOMDocument.4.0');
  XMLDoc.async := False;
  XMLDoc.load(FileName);
  XMLDoc.setProperty('SelectionLanguage', 'XPath');
  XMLDoc.SetProperty('SelectionNamespaces', 'xmlns:wrk="http://schemas.openxmlformats.org/spreadsheetml/2006/main"');

  if not (XMLDoc.parseError.reason = '') then raise Exception.Create(XMLDoc.parseError.reason);

  aNodeList := XMLDoc.selectNodes('//wrk:definedName[@name=''_xlnm._FilterDatabase'']');
  if aNodeList.length > 0 then
  begin
    ErrMsg := 'Исправлен атрибут (_xlnm._FilterDatabase) XLS файла ' + XLSFileName;
    aNode := aNodeList.item[0];
    aNode.setAttribute('name', '_xlnm._FilterDatabaseFixed');
    XMLDoc.save(FileName);

    aZM.ZipFileName := XLSFileName;
    aZM.FSpecArgs.Clear;
    aZM.FSpecArgs.Add('workbook.xml');
    aZM.Delete;
    aZM.FSpecArgs.Clear;
    aZM.RootDir := TempFolder;
    aZM.FSpecArgs.Add('\xl\workbook.xml');
    aZM.AddOptions := [];
    aZM.AddOptions := aZM.AddOptions + [AddDirNames] + [AddUpdate]; // Update
    aZM.Add;
    DeleteFile(aZM.ExtrBaseDir + '\xl\workbook.xml');
  end;
  except
    on E: Exception do
    begin
      Result := False;
      ErrMsg := E.Message;
    end;
  end;
end;