ExcelApp:=CreateOleObject (' Excel. Application);
ExcelWorkBook:=ExcelApp. WorkBooks. Open (sFilePath);
Generated after, then use ExcelWorkBook1 SaveAs save, but because I am an, the default format is XLXS, how export XLS ah, I use ExcelWorkBook1 SaveAs (ExtractFilePath (Application. ExeName) + ExcelWorkBook. Sheets [I] name + '. XLS ') and ExcelWorkBook1 SaveAs (ExtractFilePath (Application. ExeName) + ExcelWorkBook. Sheets [I] name + '. XLS ', 56) are not,

CodePudding user response:

Change office setting
Points in the upper left corner of the OFFICE logo, in the pop-up window in the bottom right hand corner to select "options" "save" on the right side in the "save the document" after "saves the file format for this:" select XLS format,

CodePudding user response:

Suffix XLS can, I just tested, if not, is the default XLXS