Inicio > Diseñar y crear bases de datos > Crear guiones para automatizar tareas > Crear guiones con ActiveX Automation (Windows) > Ejemplo de ActiveX Automation (Windows)
Ejemplo de ActiveX Automation (Windows) Private Sub Form_Load()'---------------------------------------------- ' Código de ejemplo para acceder a FileMaker Pro' en Visual Basic.'' Debe activarse "FileMaker Pro 7.0 Type Library"' y estar disponible en Project/References de Visual Basic. '---------------------------------------------- '---------------------------------------------- ' Declarar objetos e iniciar FileMaker '---------------------------------------------- ' Declarar variables de objeto Dim FMApp As FMPro70Lib.ApplicationDim FMDocs As FMPro70Lib.DocumentsDim FMActiveDoc As FMPro70Lib.Document ' Iniciar FileMaker Set FMApp = CreateObject("FMPRO.Application") ' Configurar el objeto Documents Set FMDocs = FMApp.Documents ' Hacer visible FileMaker (cuando se inicia desde Automation,' FileMaker sigue oculto de forma predeterminada.) FMApp.Visible = True '---------------------------------------------- ' Consultar documentos abiertos '---------------------------------------------- 'Comprobar el recuento de documentos abiertos If FMDocs.Count = 0 ThenDebug.Print "Ningún documento abierto"ElseDebug.Print "El recuento de documentos abiertos es:"; FMDocs.CountEnd If '-------------------------------------------------- ' Abrir una base de datos FileMaker y ejecutar un guión '-------------------------------------------------- ' Nota: Debe estar disponible un archivo de FileMaker "c:\testing.fmp12"' con un guión llamado "Primer guión" para que funcione' el siguiente. Dim myOpenFile As Object ' nota: también se puede declarar comoFMPro70Lib.Document Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")myOpenFile.DoFMScript ("Primer guión") '-------------------------------------------------- ' Consultar el documento activo '-------------------------------------------------- Set FMActiveDoc = FMDocs.Active ' Mostrar el nombre del documento activo Debug.Print "El archivo activo es"; FMActiveDoc.FullName '-------------------------------------------------- ' Enumerar y cerrar documentos '-------------------------------------------------- Dim TempToc As Object If FMDocs.Count > 0 Then For Each TempDoc In FMDocs Debug.Print "Acerca de cerrar documentos: "; TempDoc.FullNameTempDoc.CloseSet TempDoc = NothingSiguienteEnd If '---------------------------------------------- ' Borrar y salir '---------------------------------------------- Set FMDocs = NothingSet FMActiveDoc = NothingSet myOpenFile = Nothing ' Salir de FileMaker y liberar las variables ' (Nota: después de salir, asigne siempre a la variable de aplicación el valor Nothing.) FMApp.QuitSet FMApp = Nothing End Sub Temas relacionados FileMaker Pro ActiveX Automation (Windows) Objetos, métodos y propiedades de ActiveX Automation (Windows)