Sección de códigos , trucos y ejemplos para visual basic

331 - Evaluar expresiones en visual basic usando el Excel

Ejemplo que utiliza la referencia a Microsoft Excel, para poder evaluar expresiones

El formulario de ejemplo es como el siguiente:

vista del formulario de ejemplo para evaluar expresiones como strings usando la referencia a microsoft excel

Para evaluar la expresión , se utilizan solo dos líneas de código. Primero se inserta la expresión en la celda anteponiendola con el signo "=". por ejemplo

Hoja.Cells(1, 1) = "=" & (2+8) * (50-25)

Luego se lee el resultado del contenido de la celda anterior que contiene dicha expresión

Evaluar_expresion = Hoja.Cells(1, 1)

Nota: Este ejemplo es váildo si nuestra aplicación se asegura que si o si estará instalado el Excel. Si no, podemos utilizar el componente activex Microsoft Script control que permite evaluar expresiones y ejecutar scripts

Para el ejemplo colocar un control commandButton y un control textBox

Código fuente en el formulario

Option Explicit ' Agregar un Command1. un textbox, y escribir en el text1 una expresión _ por ejemplo : (235*9) / (2+9) * (100*2*8) '*********************************************************************** Function Evaluar_expresion(Expresion As String) As Variant On Local Error GoTo ErrFunction ' Variable para hacer referencia a la aplciación y la hoja Dim Excel As Object Dim Hoja As Object ' Crea una nueva referencia para poder acceder a Excel Set Excel = CreateObject("Excel.Application") ' Agrega un nuevo libro Excel.Workbooks.Add ' verifica la versión del Excel para asignar la hoja activa If Val(Excel.Application.Version) >= 8 Then Set Hoja = Excel.ActiveSheet ' versión de Excel 97 Else Set Hoja = Excel ' Versión de Excel superior a 97 End If ' Coloca en la celda la expresión, con el signo = Hoja.Cells(1, 1) = "=" & Expresion ' Devuelve a la función el resultado de la celda A1 Evaluar_expresion = Hoja.Cells(1, 1) ' Cierra el libro Excel.ActiveWorkbook.Close False GoTo ErrFunction ' Rutina de error ErrFunction: ' si hay error lo mostramos If Err.Number <> 0 Then MsgBox Err.Description, vbCritical End If On Error Resume Next Excel.Quit ' Cierra la aplicación de Excel Set Hoja = Nothing ' DEstruye el objeto Sheet Set Excel = Nothing ' Destruye el objeto Application End Function Private Sub Command1_Click() Dim resultado As Variant ' Ejecuta y evalua por medio del Excel, la expresión de text1 resultado = Evaluar_expresion(Text1.Text) ' Muestra el resultado de la expresión MsgBox resultado, vbInformation, "Resultado" End Sub Private Sub Form_Load() Me.Caption = " Evaluar expresiones usando el excel" Text1.Text = "(25*4) + (50*2) - 50" Command1.Caption = " Calcular expresión " End Sub

Buscar en Recursos vb