¿Cómo leer una fila o columna de datos en EXCEL en VB y realizar algunas operaciones con estos datos?
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.