Utilice el software VS 2015 para utilizar la programación VB.NET para operar Excel. ¿Cómo leer celdas de área directamente en una matriz como Excel VBA?

'Primero vaya al menú [Proyecto] - [Agregar referencia], seleccione la pestaña [COM], seleccione "Biblioteca de objetos Microsoft Excel XX.0", [Aceptar].

Agregue un botón:

Pruebe el siguiente código: preste atención a la versión; primero cree un archivo EXCEL y guárdelo en c:\. Mi computadora está equipada con OFFICE 2010.

Formulario de clase pública1

Subbotón privado1_Click(ByVal remitente como System.Object, ByVal y como System.EventArgs) Maneja el botón1.Click

Atenuar AppXls como Microsoft .Office.Interop.Excel.Application 'Declarar objeto de Excel

Dim AppWokBook como Microsoft.Office.Interop.Excel.Workbook 'Declarar objeto de libro de trabajo

Dim AppSheet como nuevo Microsoft.Office . Interop.Excel.Worksheet 'Declarar objeto de hoja de cálculo

AppXls = New Microsoft.Office.Interop.Excel.Application 'Crear instancia de objeto de Excel

AppXls.Workbooks.Open("C :\Workbook1 .xlsx") 'Abrir un archivo EXCEL existente

AppXls.Visible = False 'Hacer que Excel sea invisible

'AppWokBook = Nuevo Microsoft.Office.Interop. Excel.Workbook 'Crear una instancia del objeto de libro de trabajo

'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet 'Crear una instancia del objeto de hoja de cálculo

AppWokBook = AppXls.Workbooks(1) 'El objeto AppWokBook apunta al libro de trabajo "C: \Student Grades.xls"

AppSheet = AppWokBook.Sheets("Sheet1") 'El objeto AppSheet apunta a la tabla "Sheet1" en el objeto AppWokBook, es decir: "C: \Table "Sheet1" en "Student Grades.xls"

'Aquí hay algunos ejemplos:

'1 Si el objeto de hoja de cálculo AppSheet no está declarado, entonces la tabla en el objeto AppWokBook La declaración de ". Sheet1" es: AppWokBook.Sheets("Sheet1")

'2. Si el objeto del libro de trabajo AppWokBook no está declarado, entonces se utiliza la tabla "Sheet1" en "C:\Student Grades.xls". La declaración es: AppXls.Workbooks("C:\Student Scores.xls").Sheets("Sheet1")

'Para leer el valor de la celda "A1" en la tabla de datos "Sheet1", en variable S1

Dim S1 As String

'Método 1

S1 = AppXls.Workbooks(1).Sheets("Hoja1").Range ("A1 ").Valor

MsgBox(S1)

p>

'Método 2

S1 = AppWokBook.Sheets("Hoja1").Range("A1").Value

MsgBox(S1)

'Método 3

S1 = AppSheet.Range("A1").Value

MsgBox(S1)

'Escribe datos en la celda "H2 " es la octava celda de la fila 2

'Método 1

AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8) .Value = "Hola !"

S1 = AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value 'Para verificación, léelo y muéstralo

MsgBox(S1)

'Método 2

AppWokBook.Sheets("Hoja1").Cells(2, 8).Value = "¡Hola!"

S1 = AppWokBook.Sheets("Sheet1").Cells(2, 8).Value 'Para verificación, léelo y muéstralo

MsgBox(S1)

'Método 2

AppSheet.Cells(2, 8).Value = "¡Hola a todos!"

S1 = AppSheet.Cells(2, 8).Value 'Para verificarlo, léelo y muéstralo

MsgBox(S1)

'Excel debe cerrarse después de su uso y salir

AppXls.ActiveWorkbook.Close(SaveChanges:=True )

AppXls.Quit()

'Completa este procedimiento, abre EXCEL para verificar, puedes ver que en la celda "H2" de la tabla "Hoja1" está el texto "¡Hola a todos! ”

Finalizar sub

Finalizar clase