Visual Basic para Aplicaciones - Error '1004' en tiempo de ejecución

Life is soft - evento anual de software empresarial
 
Vista:

Error '1004' en tiempo de ejecución

Publicado por Ramon (1 intervención) el 13/10/2005 11:56:48
Amigos, tengo un problema y no se que hacer ya..

Desde VB hago un informe en EXCEL. Con el 97 iba todo bien, pero al instalar el XP, apareció el error 1004. ¿Qué puedo hacer? El código es:

Dim objExcel As Object
Dim objLibro As Object

nFila = 2
nCol = 1
For i = 0 To chkColumnas.Count - 1
If chkColumnas(i).Value = 1 Then
objLibro.Worksheets("Hoja1").Cells(1, nCol) = objTabla.Fields(i).Name
nCol = nCol + 1
End If
Next i

nCol = 1
Do While Not objTabla.EOF
For i = 0 To chkColumnas.Count - 1
If chkColumnas(i).Value = 1 Then

'EN ESTA LINEA DA EL ERROR ===================================
objLibro.Worksheets("Hoja1").Cells(nFila, nCol) = objTabla.Fields(i)
'============================================================

nCol = nCol + 1
End If
Next i
nFila = nFila + 1
nCol = 1
objTabla.MoveNext
Loop


Un saludo, y gracias..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error '1004' en tiempo de ejecución

Publicado por Valdo (4 intervenciones) el 14/10/2005 21:08:58
objLibro.Worksheets("Hoja1").Activate

objLibro.Worksheets("Hoja1").Select

objLibro.Worksheets("Hoja1").Cells(nFila, nCol).Select

objLibro.Worksheets("Hoja1").Cells(nFila, nCol) = objTabla.Fields(i)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar