Quite not satisfied with the solution but I finally used this:
Code:
Function BorraExcel(ByVal strRutaHojaExcel As String)
Dim wb As Object
Dim XLapp As Object
Dim tbl As Object
Set XLapp = CreateObject("Excel.Application")
XLapp.Visible = False
Set wb = XLapp.Workbooks.Open(strRutaHojaExcel, True, False)
wb.Sheets(1).Range("A1").Select
Set tbl = XLapp.ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
XLapp.Selection.ClearContents
tbl.Range("A1").Select
wb.Close True
Set wb = Nothing
XLapp.Quit
Set XLapp = Nothing
End Function
Thanks for answering.