XLS 2 XLSX

[DrShepard 0]

Hello! I need to convert xls-file to xlsx-file without OLE. Any ideas?

[Bill Meyer 339]

TMS FlexCel would make it a trivial task.

[David Heffernan 2404]

In full generality this is difficult. Not many libraries have full support for reading and writing both formats. If it were me, I'd be looking for a way to change the problem statement.

[Bob Devine 12]

+1 for Flexcel

[DrShepard 0]

I 'm looking for freeware solution, that's why TMS is not my way

[David Heffernan 2404]

54 minutes ago, DrShepard said:

I 'm looking for freeware solution, that's why TMS is not my way

It's a huge amount of work to build such software. Unlikely to find comprehensive free solution for Delphi. Perhaps you should consider my suggestion. 

[Rollo62 564]

1 hour ago, DrShepard said:

I 'm looking for freeware solution, that's why TMS is not my way

No payed, no OLE, ... Puh its getting hard.

I would have suggested to look into (payed) HtmlOffice components as well, but not sure if they can do that you want.

 

Anyway, then maybe UNO + LibreOffice is the last free resort ?

[Attila Kovacs 648]

@Rollo62 right, libreoffice can convert 

 

"C:\Program Files\LibreOffice\program\soffice.exe" --convert-to xlsx "C:\input_path\file.xls" -outdir "C:\output_path"

[TurboMagic 100]

He didn't state what those files contain in terms of formatting or charts etc. Maybe the xls only contains values?

[Anders Melander 1951]

http://b2xtranslator.sourceforge.net/index.html

Open Source. Written in C++. Precompiled binaries available.

[darnocian 93]

The apache POI java library (  https://poi.apache.org/ ) is pretty good when it comes to working with the office formats. I've mainly used it for extracting data, but have seen examples of it used for conversion too.

[DrShepard 0]

On 2/9/2021 at 9:22 PM, Attila Kovacs said:

@Rollo62 right, libreoffice can convert 

 

"C:\Program Files\LibreOffice\program\soffice.exe" --convert-to xlsx "C:\input_path\file.xls" -outdir "C:\output_path"

This method doesn't work in cycle.

 

uses
  Winapi.Windows,
  Winapi.ShellApi,
  System.SysUtils;

var
  Command: PWideChar;
  SearchRec: TSearchRec;
  XLSdir, XLSXdir: string;

begin
  try
    XLSdir  := ExtractFilePath(ParamStr(0)) + 'xls';
    XLSXdir := ExtractFilePath(ParamStr(0)) + 'xlsx';

    if FindFirst(XLSdir + '\*.xls',  faAnyFile, SearchRec) = 0 then
      repeat
        if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
          continue;

        WriteLn(SearchRec.Name);
        Command := PChar('/c ""C:\Program Files\LibreOffice\program\soffice.exe" --convert-to xlsx "' + XLSdir + '\' + SearchRec.Name + '" -outdir "' + XLSXdir + '""');
        ShellExecute(GetModuleHandle(nil), 'open', 'cmd.exe', Command, nil, SW_HIDE);
        Sleep(1000);

      until FindNext(SearchRec) <> 0;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

  Write(#13#10 + 'press any key to continue...');
  ReadLn;
end.

 

[Attila Kovacs 648]

Sorry, it's "--outdir", you can check the parameters with "--help".

Yes, *nix style.

That's why the "*.xls" also doesn't work. (<o> free software)

You can also create a batch file with "for in" and call that. https://ask.libreoffice.org/en/question/253696/using-wildcards-for-windows-command-line-batch-convert/

 

 

[PhilPlus 6]

You can open/create XLS/XLSX in Delphi, without Office, with ADO components.