Access to Excel ( Overwrite current file )

Sub sendit()
Call ImportExport("acExport", "a_query_name", "pathtofile")

End Sub

Public Function ImportExport(ByVal Ltype As String, ByVal Tname As String, _
                                 ByVal TLoc As String) As Long
Dim intCnt As Integer
ErrorResume:
On Error GoTo Err_handler


Select Case Ltype:
    Case "acImport":  Ltype = 0
    Case "acExport":  Ltype = 1
    Case "acLink":    Ltype = 2
End Select
DoCmd.TransferSpreadsheet " " & Ltype, 8, Tname, TLoc, True, ""

Exit Function

Err_handler:

 Select Case Err.Number:
  Case 2391:
    'MsgBox Err.Number & " One or more fields in " & TLoc & " not in Database"
    'Debug.Print TLoc & " Has too many fields"
    Call RemoveXLSColumns(TLoc)
    intCnt = intCnt + 1
    If intCnt < 2 Then          ' Only attempt to remove columns once
      GoTo ErrorResume
    End If
  Case 3051:
    ' Somebody is in the table
  Case Else
    Debug.Print Err.Number & " " & Err.Description
 End Select
ImportExport = Err.Number
Err.Clear
End Function