Sección de códigos , trucos y ejemplos para visual basic

402 - Ejecutar Macro en vba desde visual basic

Ejemplo del método Run

Este simple ejemplo usa el método Run de vba y accede (desde vb ) a un libro de Excel que tiene una macro, y mediante el métotdo Run , que tiene los siguientes parámetros :

... es decir el nombre de la macro y la lista de argumentos o parámetros, que obviamente son opcionales y se deben pasar si la macro los tiene definidos, la ejecuta y luego se cierra la aplicación con le método Quit y el método SAve para guardar los cambios

Código fuente en el formulario

Private Sub Command1_Click() Dim ret As Boolean ' le pasa la ruta del libro y el nombre de la macro _ NOTA: Si la macro tiene parámetros, pasarlos al método Run, _ por ejemplo: Excel.Run "LaMacro","Param1","Param2", ..etc.... ret = Ejecutar("c:\Libro1.xls", "Macro1") If ret Then MsgBox "OK", vbInformation 'OK End If End Sub Private Sub Form_Load() Command1.Caption = "Ejecutar Macro" End Sub Function Ejecutar(Libro As String, _ Macro As String) As Boolean On Error GoTo Error_function Dim Excel As Object 'Nueva Referencia al Excel Set Excel = CreateObject("Excel.Application") Excel.Visible = True ' opcional With Excel .Application.workbooks.open Libro ' abre el libro .Run (Macro) ' ejecuta la macro End With ' descarga la referencia Set Excel = Nothing Ejecutar = True ' OK Exit Function Error_function: ' elimina la referencia If Not Excel Is Nothing Then Set Excel = nthing ' mensaje de error If Err Then MsgBox Err.Description, vbCritical End If End Function

Una macro de ejemplo que va escribiendo valores desde la celda 1 hasta la 10 , luego se guarda el libro y se cierra

Sub Macro1() Dim i As Integer ' escribe algunos daos en las celdas For i = 1 To 10 Cells(i, 1) = Cells(i, 1) + i Next ' guarda y cierra este libro ActiveWorkbook.Save Excel.Application.Quit End Sub

Nota: para que el Excel no se visualice, es decir que no sea visible, quitar la linea

Excel.Visible = True

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb