Visual Basic para Aplicaciones - modificar ole hoja de calculo con programacion

Life is soft - evento anual de software empresarial
   
Vista:

modificar ole hoja de calculo con programacion

Publicado por villicaña (3 intervenciones) el 03/05/2009 02:15:30
hola buen dia tengan todos

mi pregunta creo es muy sencilla espero me puedan ayudar

Inserte una hoja de calculo en un formulario con ayuda del control ole y puesto que no tengo experiencia con el manejo de este control no se como agregar datos a la hoja de calculo Excel mediante programación
POR EJEMPLO:
coloco en el formulario una hoja de calculo Excel con un ole y coloco un command en el formulario

quiero que al dar clic al command aparezca la frase “gracias por su ayuda” en la celda (1,1)

eso es todo espero en verdad me puedan hechar una mano

de antemano les doy las gracias por su ayuda

byee
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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- controlar tecla Numlock
- Cajero Automatico
- Control de Stock

RE:modificar ole hoja de calculo con programacion

Publicado por Cristian Vasquez (5 intervenciones) el 19/05/2009 07:34:17
Hola que tal,

En estos casos un ejemplo vale mas que mil palabras, aqui te va:

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub cmdExcel3_Click()

Dim appExcel As Excel.Application
Dim wbLibro As Workbook
Dim strRuta As String

Set appExcel = New Excel.Application

'Ruta de un archivo de Excel existente
strRuta = "C:Prueba.xls"

'Verificamos que exista el archivo
If Len(Dir(strRuta)) > 0 Then

'Abrimos un libro existente
Set wbLibro = appExcel.Workbooks.Open(strRuta)

'Escribimos en la celda A1 de la primer hoja
wbLibro.Worksheets(1).Range("A1").Value = "Esto lo puse desde VB"

'Guardamos los cambios en el libro
wbLibro.Save

wbLibro.Close
End If

appExcel.Quit
Set wbLibro = Nothing
Set appExcel = Nothing

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Espero que te sirva,
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