Cómo opera VB comandos macro en EXCEL

Primero graba la macro en Excel.

Luego seleccione la columna "Referencia" en el menú "Proyecto" de VB, seleccione Biblioteca de objetos Microsoft Excel x.x

Establezca un botón Button1 en VB

Lo siguiente código:

Sub botón1_click()

Atenuar xlApp como Excel.Aplicación

Atenuar xlBook como Excel.WorkBook

Atenuar xlSheet como Excel Hoja de trabajo

Set xlApp = CreateObject("Excel.Application") 'Crear un objeto EXCEL

Set xlBook = xlApp.Workbooks.Open("Nombre de archivo") 'Abrir un archivo existente. Archivo de libro de trabajo EXCEL

xlApp.Visible = True 'Establecer el objeto EXCEL visible (o invisible)

Set xlSheet = xlBook.Worksheets("nombre de la hoja") 'Establecer la hoja de trabajo activa

Con xlSheet

'Aquí, copie la macro que registró en Excel a continuación y modifíquela apropiadamente, por ejemplo

.Cells(1,1) = "' Asigne un valor a la celda (A1)"

.PrintOut 'Imprimir la hoja de trabajo

Finalizar con

xlBook .Close (True) 'Cerrar el libro de trabajo

xlApp.Quit 'Finalizar objeto EXCEL

Establecer xlApp = Nothing 'Liberar objeto xlAppEnd Sub