Try
MessageDlg (' please close all EXCEL table before mass increase. ', mtWarning, [mbok], 0);
ExcelApp:=CreateOleObject (' Excel. Application);
MyWorkBook:=CreateOleobject ('. Excel Sheet);
OpenDialog1. DefaultExt:='. XLS ';
OpenDialog1. Filter:='Excel file | *. XLS | | all file *. *';
Except,
Application. Messagebox (' can't open the.xls files. Please confirm you have installed EXCEL ', ' ', mb_OK + mb_IconStop);
The Exit;
end;


Xp, can filter out the execl file under the Windows 7, but under the win10, select all files don't see any file, can only see the folder,

CodePudding user response:

Don't know how to use your opendialog,

CodePudding user response:

Need
Try
//...
If OpenDialog1. Execute then
The begin
//...
end;
Except,
//...
end;

CodePudding user response:

If OpenDialog1. Execute then
The begin
Try
Except,
End
End

Under the xp and Windows 7 is normal, you can't see win10 file

CodePudding user response:

Open file dialog box didn't show?

CodePudding user response:

Open file dialog box is displayed folder, cannot display file, I remove the filter directly, it shows

CodePudding user response:

It feels like is *. * is invalid