Ammending to a table from multiple excel spreadsheets

Private Sub test_Click()
 
Dim objXL As Object
Dim sTable As String
Dim xlPath As String
Dim i As Integer
Dim dDate As Date
Dim shtName As String
Dim strFilter As String
Dim strInputFileName As String
 
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS")
strInputFileName = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)
 
xlPath = strInputFileName
 
Set objXL = CreateObject("Excel.Application")
    objXL.Workbooks.Open xlPath, , True
    With objXL
        For i = 1 To .Worksheets.Count
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "CSMP Upline", xlPath, True, .Worksheets(i).Name & "!"
         Next
    End With
    objXL.Quit
    Set objXL = Nothing
 
End Sub