可以.如:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
Table1.Active:=false;
Table1.DatabaseName:=ExtractFilePath(Opendialog1.Filename);
Table1.TableName:=ExtractFileName(Opendialog1.Filename);
table1.Active:=true;
end;
end;