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..
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


0