Início > Projeto e criação de banco de dados > Criação de scripts para automatizar tarefas > Utilização de scripts com ActiveX Automation (Windows) > Exemplo de ActiveX Automation (Windows)
Exemplo de ActiveX Automation (Windows) Private Sub Form_Load()'---------------------------------------------- ' Código de amostra para acessar o FileMaker Pro' no Visual Basic.'' "FileMaker Pro 7.0 Type Library" deve ser marcado' e estar disponível em Project/References do Visual Basic. '---------------------------------------------- '---------------------------------------------- ' Declaração de objetos e inicialização do FileMaker '---------------------------------------------- ' Declarar variáveis de objeto Dim FMApp As FMPro70Lib.ApplicationDim FMDocs As FMPro70Lib.DocumentsDim FMActiveDoc As FMPro70Lib.Document ' Inicializar o FileMaker Set FMApp = CreateObject("FMPRO.Application") ' Definir o objeto Documents Set FMDocs = FMApp.Documents ' Tornar o FileMaker visível (ao inicializar por automação,' O FileMaker permanece oculto por padrão.) FMApp.Visible = True '---------------------------------------------- ' Consulta aos documentos abertos '---------------------------------------------- 'Verificar a contagem de documentos abertos If FMDocs.Count = 0 ThenDebug.Print "Nenhum documento aberto"ElseDebug.Print "A contagem de documentos abertos é:"; FMDocs.CountEnd If '-------------------------------------------------- ' Abertura de um banco de dados do FileMaker e execução de um script '-------------------------------------------------- ' Nota: Um arquivo do FileMaker "c:\testing.fmp12" deve estar disponível' com um script chamado "Primeiro script" para o seguinte' funcionar. Dim myOpenFile As Object ' nota: pode também pode ser declarado comoFMPro70Lib.Document Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")myOpenFile.DoFMScript ("Primeiro script") '-------------------------------------------------- ' Consulta ao documento ativo '-------------------------------------------------- Set FMActiveDoc = FMDocs.Active ' Exibir o nome do documento ativo Debug.Print "O arquivo ativo é "; FMActiveDoc.FullName '-------------------------------------------------- ' Enumeração e fechamento de documentos '-------------------------------------------------- Dim TempToc As Object If FMDocs.Count > 0 Then For Each TempDoc In FMDocs Debug.Print "Prestes a fechar o documento: "; TempDoc.FullNameTempDoc.CloseSet TempDoc = NothingNextEnd If '---------------------------------------------- ' Limpar e sair '---------------------------------------------- Set FMDocs = NothingSet FMActiveDoc = NothingSet myOpenFile = Nothing ' Sair do FileMaker e liberar as variáveis ' (Nota: sempre defina a variável de aplicação como Nothing antes de sair.) FMApp.QuitSet FMApp = Nothing End Sub Tópicos relacionados Utilização do FileMaker Pro ActiveX Automation (Windows) Objetos, métodos e propriedades de ActiveX Automation (Windows)