Programación General > Visual Basic 6.0 e inferiores

 Re: importar y exportar archivos de excel

(1/1)

jorgodoy:
me gustaria saber como puedo importar datos desde excel y como exportarlos nuevamente despues de depurados gracias

raulcobo:
El siguiente codigo es el que yo use y me fue bien, en el no se toman datos de la hoja de excel, pero si puedes acceder a una celda para escribir datos, puedes acceder para leerlos:

-----------------------------------------

Dim objxls As Object

'  creo el objeto de Excel.Application
Set objxls = CreateObject "Excel.Application")
   
' añado una nueva hoja
objxls.Workbooks.Add
       
' para modificar el estilo de la letra
' tamaño de la fuente
objxls.ActiveCell(1, 1).Font.Size = 8    
' negrita
objxls.ActiveCell(i, 1).Font.Bold = True
' cursiva
objxls.ActiveCell(i, 2).Font.Italic = True

' para insertar un valor
objxls.ActiveCell(i, 2).Value = "hola"

' guardo la hoja de excel
objxls.ActiveWorkbook.SaveAs (nombre)
objxls.Quit                 ' cierro el objeto
Set objxls = Nothing  ' liberas el objeto

---------------------------------------------

pues nada, espero que te vaya bien, un abrazo

salu2...

Navegación

[0] Índice de Mensajes