$ex->{Visible}=1;
$ex->OpenCurrentDatabase ("D:\\database\\myDB.mdb");
$ex->DoCmd->OpenTable("MyTable", acViewPreview);
sleep(1);
$ex->ExportXML(acExportTable,"MyTable","D:\MyTable.xml");
$ex->{Visible}=1;
$ex->OpenCurrentDatabase ("D:\\database\\myDB.mdb");
$ex->DoCmd->OpenTable("MyTable", acViewPreview);
sleep(1);
$ex->ExportXML(acExportTable,"MyTable","D:\MyTable.xml");