VBA/Excel/Access/Word/Excel/Excel Transfer

acExport

   <source lang="vb">

Private Sub cmdSalesSheet_Click()

   DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryAllSalesFigures", "C:\Sales.xls"

End Sub

</source>
   
  

acLink

   <source lang="vb">

Private Sub cmdLink_Click()

   DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel9, "SalesFigures", "C:\Sales.xls", True

End Sub

</source>
   
  

Linking a Spreadsheet

   <source lang="vb">

Sub link()

    DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, _
           "SalesFigures", "C:\Sales.XLS", True
    MsgBox "Spreadsheet linked"

End Sub

</source>