Crear nuevos libros utilizando VBA en Microsoft Excel
Puede haber casos en los que necesite crear un nuevo libro de trabajo con cierto número de hojas mediante un código vba o una macro. Aquí hay una macro simple que le permite crear un nuevo libro de trabajo> abrir y luego guardar con un máximo de 255 nuevas hojas de trabajo. En esta macro de muestra, crearemos un nuevo libro de trabajo con 10 hojas de trabajo.
Option Explicit _Sub create_workbook ()
Dim wb As Workbook Set wb = NewWorkbook (10)
Finalizar Sub_ Function NewWorkbook (wsCount As Integer) As Workbook Dim OriginalWorksheetCount As Long Establecer NewWorkbook = Nada Si wsCount <1 O wsCount> 255 Luego Salir de la función OriginalWorksheetCount = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = wsNeWorksetbooks.AplicaciónWorkbook = wsNeCount Set NewWorkbook = OriginalWorksheetCount End Function Code Explicación:
Primero tenemos un procedimiento llamado «create_workbook«. En este procedimiento, tenemos una variable wb como libro de trabajo y llamamos a la función NewWorkbook a través de esta variable. Por lo tanto, se llama a la nueva función y el conteo se establece en 10, que es el recuento de hojas de trabajo en el nuevo libro de trabajo.
Luego vamos a la función llamada que es Function NewWorkbook (wsCount como Integer) como Workbook. El valor de wsCount que es 10 se pasa desde el sub create_workbook.
Set NewWorkbook = Nothing
Primero, el NewWorkbook no está configurado para nada para que podamos borrar cualquier otro valor que se le pueda asignar en cualquier código anterior.
Si wsCount <1 o wsCount> 255, salga de Function
A continuación, tenemos que comprobar si el valor transmitido desde el sub es menor que 1 o mayor que 255. Si la respuesta es sí a cualquiera de estas comprobaciones, salga de la función.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Hay un parámetro en la página de opciones de Excel donde se establece el número de hojas que se incluirán en un nuevo libro de trabajo. Pasamos este valor a la variable OriginalWorksheetCount . * La variable contendrá el número predeterminado de hojas que ya estaba preestablecido en las opciones de Excel.
Application.SheetsInNewWorkbook = wsCount
Luego asignamos el valor de wsCount que se pasa del sub al parámetro en las opciones de Excel para la cantidad de hojas que se incluirán en un nuevo libro de trabajo. Así que ahora este parámetro cambiará del valor anterior a 10. El valor anterior podría ser 1 o 3 o cualquier otro número establecido por el usuario.
Set NewWorkbook = Workbooks.Add
Creamos un nuevo libro de trabajo que se asigna a NewWorkbook. Este nuevo libro de trabajo se crea con la cantidad de hojas especificadas en wsCount. Verá un nuevo libro de trabajo con 10 hojas titulado Sheet1 a Sheet10. Vea la imagen a continuación para ver el nuevo archivo Book3 que se ha creado.
La siguiente imagen le mostrará la cantidad de hojas que se crearon en el nuevo libro de trabajo.
Además, el número 10 aparecerá en el parámetro Application.SheetsInNewWorkbook en Opciones de Excel como se muestra en la siguiente imagen –
Application.SheetsInNewWorkbook = OriginalWorksheetCount TheApplication.SheetsInNewWorkbook se devuelve a su número original que estaba presente antes de que se estableciera wsCount. Entonces, si el número original era 1 o 3, este parámetro ahora volverá a ese número.
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos a