Visual Basic para Aplicaciones - Excel y Visual Basic

Life is soft - evento anual de software empresarial
 
Vista:

Excel y Visual Basic

Publicado por Laura (1 intervención) el 14/07/2003 09:20:02
Hola: necesito que alguién me ayude urgentemente, necesito pasar unos datos desde visual basic a excel y me gustaría que alguién me mandase algún ejemplo, si es posible comentado o con una breve explicación. Muchíiiiiisimas gracias
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:Excel y Visual Basic

Publicado por J.Fernando (39 intervenciones) el 15/07/2003 19:30:44
Hola Laura. Esto puede Ayudarte

Sub CrearPasar()
Dim Objeto as Object
Dim Libro as Object
Dim Archivo as String
Archivo = "C:\MiRuta\MiLibro.xls"
Set objeto = CreateObject("Excel.Application")
Set libro = objeto.Workbooks.Open(Archivo)
libro.Worksheets(1).Activate
libro.Worksheets(1).Select
libro.Worksheets(1).Cells(1, 1).Select
'Hasta aqui hemos creado el archivo
'Ahora suongamos que hay 8 text (Text1(0) hasta Text1(7) y queremos 'pasar los datos a la hoja1 columna A desde la fila 1
Dim fila as Long
for fila=1 to 8
libro.Worksheets(1).Cells(Fila, 1)=val(Text1(fila-1).text)
next i
Libro.save
Libro.close
set objeto=nothing
Set libro=Nothing
End sub

Saludos
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

Un par de errores

Publicado por J.Fernando (39 intervenciones) el 15/07/2003 19:36:51
En luger de next i es obviamente Next Fila y antes de Set objeto=nothing va objeto.Quit. De todas maneras si no te funciona, puedes escribirme
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