Visual Basic para Aplicaciones - Bajar arreglo a excel

Life is soft - evento anual de software empresarial
 
Vista:

Bajar arreglo a excel

Publicado por K_afar (1 intervención) el 09/01/2003 21:23:30
Necesito bajjar el contenido de un arreglo (en memoria) a un lugar determinado de excel. El arreglo puedo trabajarlo con un msflexgrid también
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:Bajar arreglo a excel

Publicado por J.Fernando (1 intervención) el 21/01/2003 15:18:10
Si te refieres a pasar los datos de una matriz a una hoja de Excel, debes hacer lo siguiente:

Sub BajarArreglo()
MiArchivo = "C:\MiCarpeta\MiArchivo.xls"
Set MiObjeto = CreateObject("Excel.Application")
Set MiLibro = Mibjeto.Workbooks.Open(Archivo)
Milibro.Worksheets(n).Activate
Milibro.Worksheets(n).Select
For Fila = 1 to NumeroFilasArreglo
For Columna=1 to NumeroColumnasArreglo
Milibro.Worksheets(n).Cells(Fila, Columna)=MiArreglo(Fila,Columna)
Next Columna
Next Fila
MIlibro.SaveAs FileName:="C:\MiCarpeta\MiNombreArchivo.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MiLibro.Close
Set MiLibro=Nothing
MiObjeto.Quit
End Sub
Para que el codigo funcione bien, debes declarar Option Base 1 en el modulo donde declaraste tu arreglo.

Espero que te sirva de algo, Es con gusto
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