Hi Brian,
Thanks for the code, but I want to open, adjust,save and close the (downloaded) wedstrijd.xls from the MSAccess db prior to the import of the data in the wedstrijd.xls
This piece of code needs some checking (see previous post)

VB Code:
  1. Private Function change_xls()
  2.  
  3. Dim oApp As Object
  4. Dim File As String
  5. Dim xlsheet
  6.  
  7. File = Application.CurrentProject.Path & "\wedstrijd.xls"
  8.     Set oApp = CreateObject("Excel.Application")
  9.     On Error Resume Next
  10.    
  11.     oApp.Visible = True
  12.     oApp.Workbooks.Open Filename:=File
  13.    
  14.     Set xlsheet = oApp.Application.activeworkbook.sheets("wedstrijd")
  15.     With xlsheet
  16.     .range("C:C").NumberFormat = "dd/mm/yyyy"
  17.     End With
  18.    
  19.     oApp.SaveAs Filename:=File ' Doesn't work
  20.     oApp.Quit 'doesn't work
  21.  
  22. End Function