Checkout using VB Script Error -2147417851 (80010105)

[tester408]

I have mircosoft 2007 installed in my machine.
When i try to checkout a file from sharepoint 2007, it throws below error.
Run-time error '-2147417851 (80010105)':
Automation error
The server threw an exception.

Code:

Set xlApp = CreateObject("Excel.Application")
strFilePath = "Path" & "filename"
If xlApp.Workbooks.CanCheckOut(strFilePath) = True Then
xlApp.Workbooks.CheckOut strFilePath ''Error triggers at this point
DisplayAlerts = False
MsgBox "Checkedout"
xlApp.Quit
Set xlApp = Nothing
End If


Note: Same code works fine in the machine where microsoft 2003 is installed.

Please help me.

Thanks!