Cómo usar VB para implementar paginación en tablas de Excel
Escribe un programa de macro y ejecútalo una vez cada vez.
Si no sabes cómo, puedes contactarme
■ Suplemento: p>
Usar vb La operación requiere los siguientes pasos:
1. Haga referencia a la biblioteca de tipos de Microsoft Excel en el proyecto:
Seleccione la columna "Referencia" del "Proyecto". "menú; seleccione Biblioteca de objetos de Microsoft Excel 9.0 (EXCEL2000) y luego seleccione "Aceptar". Indica que se debe hacer referencia a la biblioteca de tipos EXCEL en el proyecto.
2. Defina el objeto EXCEL durante el proceso de declaración del objeto general:
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
p>
Atenuar xlSheet como Excel.Worksheet
3 Opere EXCEL en el programa:
Establezca xlBook = xlApp.Workbooks.Open("Nombre de archivo.xls") ' Abrir archivos ya existentes
Set xlSheet = xlBook.Worksheets("nombre de la hoja") 'Establecer hoja de trabajo activa
xlSheet.Select
xlSheet.Range("A21 ").Seleccione 'Mover el foco a la fila 21
xlSheet.HPageBreaks.Add Before:=ActiveCell 'Agregar saltos de página
xlSheet.PageSetup.PrintTitleRows = "$1:$2" ' Establecer filas 1 y 2 como títulos de tabla
xlSheet.PrintOut 'Imprimir la hoja de trabajo
xlBook.Close (True) 'Cerrar el libro de trabajo
xlApp Salir 'Fin. Objeto EXCEL
El programa específico depende de la estructura del archivo xls. Se recomienda consultar la programación de macros, que es similar.