Cómo obtener un valor de una hoja de cálculo que utiliza VB

Conseguir un valor de una hoja de cálculo de Excel utilizando Visual Basic puede hacer su aplicación más flexible mediante la lectura de la hoja de trabajo de forma dinámica en lugar de que el usuario introduzca los valores manualmente. Esta tarea puede realizarse fácilmente mediante el uso de la Biblioteca de objetos de Microsoft Excel. Los programadores a menudo encuentran con problemas para leer las hojas de trabajo porque se olvidan de definir la celda de la hoja de cálculo como un tipo de datos "Excel.Range". Una vez hecho esto se puede leer fácilmente los datos de la celda utilizando la propiedad "Valor".

Instrucciones

1 Lanzamiento de Microsoft Visual Studio, haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador, y ampliar "Visual Basic" por debajo "Plantillas instaladas." Haga clic en "Windows" y haga doble clic en "Aplicación de consola" desde el centro de la ventana de diálogo para crear un nuevo proyecto de la consola.

2 Haga clic en el menú "Proyecto" y seleccione "<Nombre del Proyecto> Propiedades". Haga clic en "Referencias" y luego seleccionar "Añadir". Seleccione "COM" y haga clic en "<número de versión> Microsoft Excel biblioteca de objetos". Haga clic en Aceptar."

3 Escriba el siguiente código en la primera línea del módulo para declarar el espacio de nombres de Microsoft Office:

Las importaciones Microsoft.Office.Interop

4 Escribe lo siguiente para crear las variables de objeto y definir la ruta y hoja de trabajo que va a utilizar:

Dim como secuencia valueRead

Dim xlsxApp As Excel.Application = New Excel.Application

xlsxApp.DisplayAlerts = False

xlsxApp.Workbooks.Open ( "C: \ ExcelWorksheet.xlsx")

5 Editar la ruta y el nombre de la hoja en el paso anterior y escriba la ruta y el nombre de la hoja de cálculo. Agregue el código siguiente para usar "Hoja1", como la hoja de la manera siguiente:

Dim xlsxSht As Excel.Worksheet = xlsxApp.Sheets(1)

6 Definir la celda que desea leer y leer el valor:

Dim xlsxRange As Excel.Range = xlsxSht.Cells(1, 1)

valueRead = xlsxRange.Value

xlsxApp = nada

7 Visualizar el valor leído a través de la ventana de la consola:

Console.WriteLine(valueRead)

Console.ReadLine ()

8 Pulse la tecla "F5" para ejecutar el programa.