ERROR 1004 EN TIEMPO DE EJECUCION_ EXPORTAR DATOS LISTVIEW A EXCEL

AUREA CARBALLO
09 de Febrero del 2011
Buenas tardes,
Quiero exportar datos de un listiview a excel. Me funcionaba perfectamente y dejó de funcionar dando error 1004 en tiempo de ejecución definido por la aplicación o el objeto. No se que ha psado y no consigo solucionarlo. tengo otra palicación con el mismo código y sigue funcionando bien. Me pueden ayudar?

Set OBJ_APPXL = CreateObject("Excel.Application")
With OBJ_APPXL
Set OBJ_LIBROXL = OBJ_APPXL.Workbooks.Open("C:Documents and SettingsagcMis documentosTESISMACROPLANTILLA" & "" & "EXCEL_V01" & "." & "xlsx", , , 2)
Dim filas, columnas, I As Long
filas = 1
'damos nombre a las columnas
OBJ_APPXL.Cells(filas, 1) = "ID"
OBJ_APPXL.Cells(filas, 2) = "NOMBRE"
OBJ_APPXL.Cells(filas, 3) = "CLAVE"
OBJ_APPXL.Cells(filas, 4) = "TOTAL"
For filas = 1 To Me.Lvwvertidos.ListItems.Count
columnas = 1
OBJ_APPXL.Cells(filas + 1, columnas) = Me.Lvwvertidos.ListItems(filas).Text
For columnas = 1 To Me.Lvwvertidos.ColumnHeaders.Count - 1
>>>>>>>>>>ERROR 1004 PARA LA SIGUIENTE LÍNEA
OBJ_APPXL.Cells(filas + 1, columnas + 1) = Me.Lvwvertidos.ListItems(filas).SubItems(columnas)
Next
Next
OBJ_APPXL.Range("A1:K1").Font.Bold = True
OBJ_APPXL.Range("A1:K1").Interior.Color = RGB(192, 200, 200)
OBJ_APPXL.Cells.EntireColumn.AutoFit
OBJ_APPXL.Cells.Font.Size = 10
End With
OBJ_APPXL.Visible = True
Set OBJ_LIBROXL = Nothing
Set OBJ_APPXL = Nothing

Gracias a todos,

AUREA CARBALLO
11 de Febrero del 2011
SOLUCIONADO ERROR 1004 : la hoja de excel estaba bloqueada y el formato de la hoja general. Desbloquear y formato texto.

un saludo,