acLink
Private Sub cmdLink_Click() DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel9, "SalesFigures", "C:\Sales.xls", True End Sub