Excel VisualBasic Script

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