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:

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.