Visual Basic para Aplicaciones - Problema vb-excel

Life is soft - evento anual de software empresarial
   
Vista:

Problema vb-excel

Publicado por Serior (3 intervenciones) el 15/03/2010 12:10:23
Hola,
tengo un problema con pasar datos de una matriz a una hoja de excel. El código que tengo es el siguiente:
Dim vector() As String
vector= Split(txtContenido.Text, " ")
longitud = UBound(vector)

Dim prg As Excel.Application 'la instancia de ms excel que va a abrir vb
Dim w As Excel.Workbook, h As Excel.Worksheet 'libro y hoja a procesar

Set prg = New Excel.Application 'abre excel
'prg.Visible = True 'si queres mostrar excel a medida que trabaja
Set w = prg.Workbooks.Open("C:\Users\Usuario\Desktop\Nueva carpeta (4)\archivo.xls") 'abre el archivo
Set h = w.Worksheets(1) 'selecciono la primer hoja

For i = 0 To longitud
h.Cells(i, 1) = vector(i)
Next

'grabo los cambios, en otro archivo o en el mismo
'w.SaveAs "C:\otroarchivo.xls"
w.Save 'grabo el mismo archivo

'libero toda la memoria
Set h = Nothing
w.Close
Set w = Nothing
prg.Quit
Set prg = Nothing
End Sub

La matriz llamada vector, es una matriz con números. El error que me da, es en la línea donde voy a rellenar la tabla de excel con la matriz, y me dice: "Error 1004,error definidio por la apliación o el objeto".
Un saludo!
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
Imágen de perfil de JuanC

RE:Problema vb-excel

Publicado por JuanC (431 intervenciones) el 15/03/2010 12:39:44
un error de índice...
en lugar de
h.Cells(i, 1) = vector(i)
debe ir
h.Cells(i + 1, 1) = vector(i)
para evitar i = 0

Saludos, desde Baires, JuanC
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

RE:Problema vb-excel

Publicado por Serior  (3 intervenciones) el 15/03/2010 13:02:18
OK, muchas gracias. Menudo despiste.
Un saludo
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