Planillas y gráficos

HOLA alex120 MI PREGUNTA ES ESTA:
En un formulario de visual basic he incrustado una planilla excel y mi interés es ¿cómo darle valores a celdas por medio del código?.
También he incrustado un gráfico de excel y me interesa saber ¿cómo alterar los datos de origen por medio del código?
Desde ya muchas gracias.
Pablo.
1

1 respuesta

Respuesta
1
De la manera que estas panteandolo no se como hacerlo, yo en vez de un ole utilizaría un objeto diseñado para eso concretamente el woorkbook, permite hacer todas la operaciones que quieres y muchas más.
Agrega una referencia:
Microsoft Excel 9.0 Objeto library
Ej del objeto woorkbook
'Este ejemplo importa el contenido del archivo lista.xls a la base de datos web.mdb
'situada en el directorio de la aplicacion (no hace falta que el excel este abierto)
Dim sql As String, path As String, contador As Integer,basededatos as dao.database
dim rsDdescripciones as dao.recordset
Dim wkbNuevo As Workbook
contador = 4
path = App.path
If Right(path, 1) <> "\" Then
path = path + "\"
End If
LabOperacion.Caption = "Abriendo hoja de calculo (lista.xls)"
Set wkbNuevo = Application.Workbooks.Open(FileName:=path + "lista.xls")
LabOperacion.Caption = "Abriendo base de datos"
Set baseDeDatos = OpenDatabase(path + "web.mdb")
LabOperacion.Caption = "Abriendo tablas de base de datos"
Set rsDescripciones = baseDeDatos.OpenRecordset("Select * From Datos")
do
rsDescripciones.addnew 'Añadir un registro vacio
rsDescripciones("Archivo, Carpeta o Disco") = wkbNuevo.ActiveSheet.Cells(contador, 1)
'Añade el contenido de la celda contandor,1
rsDescripciones("Descripción") = wkbNuevo.ActiveSheet.Cells(contador, 2)
'Añade el contenido de la celda contandor,2
rsDescripciones.update
'Graba el registro
contador= contador + 1
Loop Until InStr(1, wkbNuevo.ActiveSheet.Cells(contador, 1), "Total carpetas") <> 0
LabOperacion.Caption = "Cerrando hoja de calculo (lista.xls)"
wkbNuevo.Close 'Cerrar objeto excel
End sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas