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