Red de conocimiento informático - Material del sitio web - ¿Cómo leer una fila o columna de datos en EXCEL en VB y realizar algunas operaciones con estos datos?

¿Cómo leer una fila o columna de datos en EXCEL en VB y realizar algunas operaciones con estos datos?

Muy sencillo

Operación Vb Excel

* * * * * * * * * * * *Estándar

Transferir xlApp a Excel. Aplicación

Transferir xlBook a Excel. Cuaderno de ejercicios

Convierte xlSheet a formato Excel. Hoja de trabajo

Set xlapp = createobject ("EXCEL. Aplicación")'Crear un objeto de Excel.

establecer libro XL = aplicación XL libros de trabajo Abrir(" d:\VB excel .

XlApp. Visible = True 'Establece el objeto EXCEL para que sea visible (o invisible).

Establecer hoja XL = Libro XL hojas("hoja 1")'Establecer la hoja de trabajo activa.

Hoja XL. ' Celdas(Fila, Col) = valor 'Asigna un valor a las celdas (Fila, Col).

xlHoja. Celda(5,5) = "Neok "

XlSheet. "Impresión" imprime la hoja de trabajo.

XlBook. Cerrar (Verdadero)'Cerrar el libro.

XlApp. "Salir" finaliza el objeto EXCEL.

' Set xlApp = Nothing 'Libera el objeto xlApp.

Xlbook. runautomacro(xlautoopen)'Ejecute la macro de inicio de EXCEL.

Libro XL . runautomacros(xlautoclose)'Ejecute EXCEL para cerrar la macro.

************************

Iniciar Excel

Atenuar objExcel como Sobresalir. Aplicación

set objExcel = CreateObject("Excel. Aplicación")

ObjEXCEL. 'Visible = True 'Establece que el objeto de Excel sea visible (o invisible).

Crea un libro de trabajo usando hojas de trabajo.

Muestra objWorkBook como Excel. Libro de trabajo

objExcel. SheetsInNewWorkbook = 1

Establecer objWorkbook = objExcel. Workbook.Add

Abre un archivo de libro de trabajo EXCEL existente.

set obj workbook = obj xcel workbooks open("nombre de archivo")

Establece la hoja de trabajo activa.

Muestra la hoja de cálculo en formato Excel. Hoja de trabajo

Establecer objsheet = objxcel.worksheets("nombre de la hoja")

Asignar valores a las celdas (filas, columnas)

ObjSheet. Celda (fila, columna) = valor

Asigne un valor a la celda fusionada, como por ejemplo (a3: a9).

Hoja de objetos. rango("A3:A9") = valor.

Ejecutar macro EXCEL

ObjWorkbook. RunAutoMacros("nombre de macro")

Insertar una fila

objSheet.

Número de filas ("1:1"). Insertar Shift:=xlDown

Guardar archivo EXCEL

objWorkbook. Rescate

Guardar como

ObjWorkbook. Guardar como ("nombre de archivo")

Cierre el libro.

objLibro de trabajo. Cerrar(verdadero)

Finalizar objeto EXCEL

objExcel. Ríndete

Si requieres que EXCEL no pregunte al usuario si desea guardar los cambios después de salir de la aplicación.

En el archivo, puede utilizar la siguiente declaración:

objExcel. showalert=false

objExcel. Renunciar

objExcel. showalert=true

Libera el objeto objExcel.

Establecer objExcel = Nothing

Nota: Para utilizar el modelo de objetos de Excel en un proyecto, debe consultar la biblioteca de objetos de Excel.

Proyecto->; Consulte Agregar biblioteca de objetos de Excel

para operar objetos EXCEL en VB. Si está visible, cierre EXCEL manualmente durante la operación.

El programa VB no puede saber que si se utiliza el objeto EXCEL en este momento, el programa VB lo generará.

Comete errores. El programa VB no puede controlar completamente la situación de Excel, lo que hace que VB y EXCEL

EXCEL estén fuera de contacto con la realidad. Tenga cuidado para evitar que esto suceda al programar.