那段代码如下:
procedure TDRExcel.Button1Click(Sender: TObject);
var
AFileName:String;
begin
if OpenDialog1.Execute then
AFileName := OpenDialog1.FileName;
if AFileName.Length>0 then
begin
try
ExcelToTable1.FileName:= AFileName;
finally
ExcelToTable1.Free;
end;
end;
end;