"DoCmd.RunSQL "SELECT * INTO [Excel 8.0;database=D:\My\市场商铺管理\商铺租赁.xls].A区商铺 FROM A区商铺;"
"DoCmd.RunSQL "SELECT * INTO [Excel 8.0;database=D:\My\市场商铺管理\商铺租赁.xls].B区商铺 FROM B区商铺;"
"DoCmd.RunSQL "SELECT * INTO [Excel 8.0;database=D:\My\市场商铺管理\商铺租赁.xls].C区商铺 FROM C区商铺;"