Visual Basic - Ayuda por favor

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda por favor

Publicado por Montse (3 intervenciones) el 03/01/2001 00:00:00
Quiero saber si se puede abrir una hoja de un libro de excel, desde una ventana de un formulario de Visual Basic y tener todas las funcionalidades de Excel. Es decir, lo que me gustaría poder conseguir es insertar el objeto Hoja de Cálculo de Excel que se encuentra en proyecto->componentes->Objetos insertables y poderlo conectar con la hoja que quiero.

Es muy urgente!!!

Muchas gracias de antemano!!
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:Ayuda I

Publicado por tecniCam (220 intervenciones) el 03/01/2001 00:00:00
Para utilizar procedimientos de VB, hay que hacer lo siguiente:
1.- Añadir el procedimiento de VBA al objeto OLE
2.- Activar el objeto OLE
3.- Solicitar el procedimiento de VBA
4.- Desactivar el objeto OLE cuando termine la solicitud a los procedimientos de VBA

Para agregar procedimientos de VBA a objetos incrustados:
1.- Abrir el objeto OLE en su aplicación
2.- Desde el menú Insertar de Excel, elegir Macro y después Módulo para crear un nuevo módulo VBA
3.- Añadir los procedimientos de VBA al nuevo módulo
4.- Desde el menú Archivo de Excel, elegir Cerrar para cerrar el objeto y volver a VB
5.- Guardar el formulario

Solicitud de procedimientos de VBA desde VB:
El objeto OLE ha de estar activo antes de solicitar un procedimiento de VB.
Cada aplicación OLE proporciona métodos distintos para ejecutar procedimientos de VBA:
Excel: Run -> oleObject.Object.Application.Run "FillSheet"
Project: MacroRun -> oleObject.Object.Application.MacroRun ·AsignTask"
Word: ToolsMacro -> oleObject.Object.Application.WordBasic.ToolsMacro "CreateLetter", 1
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

RE:Ayuda y II

Publicado por tecniCam (220 intervenciones) el 03/01/2001 00:00:00
Ejemplo Excel:
Ejecutar la función SumColumn de Excel y devolver el total de todas las celdas de una columna en una hoja de cálculo.

Private Sub cmdSum_Click()
Dim objExcel As Object, lTotal As Long
´Activar la hoja incrustada antes de ejecutar el procedimiento VBA
oleSheet.DoVerb
´Obtener referencia al objeto Application de Excel
Set objExcel = oleSheet.Object.Application
´Ejecutar el procedimiento SumColumn de VBA en la primera columna
lTotal = objExcel.Run("SumColumn",1)
´Cerrar el objeto OLE
oleSheet.Close
´Mostrar resultados
MsgBox lTotal
End Sub

La función SumColumn de Excel:
Function SumColumn(iCol As Integer) As Long
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
lTotal = lTotal + Cells(i, iCol)
Next i
SumColumn = lTotal
End Function
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