Automation error help

I have the following code that is supposed to copy a range of cells in excel paste them to another sheet and then import that to an access table.  Here is the code

Sub getXLSData()

On Error GoTo erLn

Dim objAPp, objSSht, objDSht, objSCell, objDCell
Dim filepath, tblName

filepath = "c:\Documents and Settings\msgay\Desktop\myBK1.xls"
tblName = "imp_XLSTbl"

Set objAPp = GetObject(filepath)

Set objSSht = objAPp.Worksheets("Rows")
    With objSSht
        .Activate
        Set objSCell = .Range("A1:E3")
            With objSCell
                .Copy
            End With
    End With
   
Set objDSht = objAPp.Worksheets("Columns")
    With objDSht
        .Activate
        Set objDCell = .Range("A1")
        'objDCell.PasteSpecial Transpose:=True
        With objDCell
            .PasteSpecial Transpose:=True
        End With
    End With
        objAPp.Save
       
    DoCmd.DeleteObject acTable, tblName

   
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, tblName, filepath, True, "Sheet2!A:IV"
    DoCmd.OpenTable tblName
   
xtLn:
        If Not objAPp.Saved Then objAPp.Save
        objAPp.Close
       
    Set objAPp = Nothing
        Exit Sub
       
erLn:
    MsgBox Err.Description & vbCr & Err.Number, vbInformation, Err.Source
    Resume xtLn


End Sub


What happens when I execute the code is the initial excel spreadsheet is totally wiped out and the following error occurs:

Automation error
The server threw an exception
-2147417851

I looked up the binary code and all it says is "the server threw an exception"  
I have no idea why this is happening.  Could someone please enlighten me on this

Thank youStart Free Trial