¿Cómo operar EXCEL directamente en formato VB?
Primero, VB lee y escribe tablas EXCEL:
El propio VB proporciona la función automatizada de leer y escribir tablas EXCEL. El método es el siguiente:
1. Haga referencia a la biblioteca de tipos de Microsoft Excel del proyecto:
Seleccione la columna Referencia en el menú Proyecto; seleccione Biblioteca de objetos de Microsoft Excel 9.0 (excel 2000) y luego seleccione Aceptar. Indica que se hará referencia a la biblioteca de tipos EXCEL en el proyecto.
2. Definir el objeto EXCEL en el proceso de declaración del objeto general:
Cambiar xlApp a Excel. Aplicación
Transferir xlBook a Excel. Cuaderno de ejercicios
Convierte xlSheet a formato Excel. Hoja de trabajo
3. Comandos comunes para operar tablas EXCEL en programas:
Set xlapp = createobject ("EXCEL. Aplicación")'Crear un objeto Excel.
Establezca xlBook = xlApp. Workbooks.Open("nombre de archivo")'Abre un archivo de libro de EXCEL existente.
XlApp. Visible = True 'Establece el objeto EXCEL para que sea visible (o invisible).
Establecer xlSheet = xlBook. Hojas de trabajo ("nombre de la tabla")'Establece la hoja de trabajo activa.
Hoja XL. Celdas(fila,col) = valor 'Asigna un valor a la celda(fila,col).
Hoja XL. "Imprimir" 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.
4. Cuando se utilizan los comandos VB anteriores para operar la tabla EXCEL, a menos que el objeto EXCEL esté configurado como invisible, el programa VB puede continuar realizando otras operaciones, cerrar EXCEL y operar EXCEL al mismo tiempo. . Sin embargo, el programa VB no puede saber cuándo se cierra el objeto EXCEL durante la operación EXCEL. Si se utiliza el objeto EXCEL en este momento, el programa VB generará errores de automatización. El programa VB no puede controlar completamente la situación de EXCEL, lo que provoca que VB se desconecte de EXCEL.
2. Funciones macro de EXCEL:
EXCEL proporciona un editor de Visual Basic. Abra el Editor de Visual Basic, que tiene una ventana Propiedades del proyecto. Haga clic en "Insertar módulo" en el menú contextual y agregue un "Módulo 1". Las funciones y procedimientos del módulo se pueden escribir en lenguaje Visual Basic y llamar a macros. Entre ellas, EXCEL tiene dos macros automáticas: una es la macro de apertura (Sub Auto_Open()) y la otra es la macro de cierre (Sub Auto_Close()). Sus características son: cuando usa EXCEL para escribir un libro que contiene macros de inicio, la macro de inicio se ejecutará automáticamente. Del mismo modo, cuando se cierra un libro que contiene una macro de apagado, ejecutará automáticamente la macro de apagado. Sin embargo, cuando se llama a la hoja de trabajo EXCEL a través de la función de automatización de VB, la macro de inicio y la macro de apagado no se ejecutarán automáticamente. En cambio, la macro de inicio y la macro de apagado deben ejecutarse mediante el comando xlbook. Runautomacros (xlautoopen) y xlbook. Ejecutarautomacros (xlautoclose) en VB.
3. Comunicación entre VB y EXCEL:
Aproveche al máximo la macro de inicio y la macro de apagado de EXCEL para realizar la comunicación entre VB y EXCEL. Estos métodos son los siguientes:
Agregue un programa a la macro de inicio de EXCEL, que escribe un archivo de logotipo en el disco, y agregue un programa a la macro de apagado para eliminar el archivo de logotipo. Cuando se ejecuta el programa VB, determina si EXCEL está abierto determinando si este archivo de bandera existe. Si este archivo de bandera existe, significa que el objeto EXCEL se está ejecutando y se debe prohibir la ejecución de otros programas.
Si este archivo de bandera no existe, significa que el usuario ha cerrado el objeto EXCEL. En este momento, si desea utilizar el objeto EXCEL para ejecutar, debe volver a crear el objeto EXCEL.
Cuarto, por ejemplo:
1. En VB, cree un formulario, coloque dos botones de comando en él, cambie la propiedad Caption de Command1 a EXCEL y cambie la propiedad Caption de Command2 La propiedad Título se cambia a Fin. Luego ingresa en él el siguiente programa:
Dimxlappasasexcel. "Aplicación" define la clase EXCEL.
Convierte xlBook a Excel. "libro de trabajo" define la clase del libro de trabajo.
Convierte xlsheet a formato Excel. "Hoja de trabajo" define la clase de hoja de trabajo.
Subcomando privado 1_Click()'abre el programa EXCEL.
Ifdir ("d:\temp\excel.bz") = " "Luego determine si Excel está abierto.
Set xlapp = createobject ("EXCEL. application")'Crear una clase de aplicación Excel.
XlApp. "Visible = Verdadero" establece EXCEL visible.
establecer libro XL = libros de trabajo XL. Abrir(" d:\ temp \ bb . xls ")'Abra el libro de trabajo EXCEL.
establecer hoja XL = libro XL hojas de trabajo(1)'Abre la hoja de trabajo EXCEL.
Hoja XL. "Activar" activa la hoja de trabajo.
Hoja XL. celdas (1, 1) = "ABC " 'Asigna valores a las filas y columnas de la celda 1.
XL book. runautomacros(xlautoopen) ejecuta la macro de inicio en EXCEL.
Otros
MsgBox ("EXCEL está abierto")
Terminará si...
Finalizar conector
Subcomando privado 2_Click()
if Dir(" D:\ temp \ excel . BZ ")<& gt" "Luego cierre EXCEL con VB.
Xlbook. runautomacros (xlautoclose)'Ejecutar macro de cierre EXCEL.
XlBook. "Cerrar (Verdadero)" cierra el libro de EXCEL.
XlApp. Salga y cierre EXCEL.
Terminará si...
' Set xlApp = Nothing 'Libera el objeto EXCEL.
Fin
Conector final
2. Cree un subdirectorio llamado Temp en el directorio raíz de la unidad D y cree un subdirectorio llamado " bb.xls" EXCEL. archivo.
3. Abra el editor de Visual Basic en "bb.xls", haga clic con el botón del mouse en la ventana del proyecto para seleccionar el módulo insertado e ingrese el siguiente programa en el módulo para guardar:
Sub auto_open()
Abra 'd:\temp\excel.bz' como #1 'Escribir salida del archivo de bandera.
Cerrar #1
Conector final
Sub auto_close()
Eliminar "d:\temp\excel.bz " 'Eliminar archivo de logotipo.
Conector final
4. Ejecute el programa VB y haga clic en el botón EXCEL para abrir el sistema EXCEL. Después de abrir el sistema EXCEL, el programa VB y EXCEL pertenecen a dos sistemas de aplicación diferentes y ambos pueden operarse al mismo tiempo. Debido a que el sistema ha agregado juicio, al hacer clic repetidamente en el botón EXCEL en el programa VB se le indicará que EXCEL ya está abierto. Si cierra EXCEL en EXCEL y luego hace clic en el botón EXCEL, EXCEL se volverá a abrir. Independientemente de si EXCEL está abierto o no, EXCEL se puede cerrar mediante el programa VB. De esta manera, se logra una conexión perfecta entre VB y EXCEL.