Beispiel für ActiveX-Automation (Windows)
Private Sub Form_Load()

'----------------------------------------------
' Beispielcode für Zugriff auf FileMaker Pro
' in Visual Basic.
'
' "FileMaker Pro 7.0 Type Library" muss in Visual
' Basic Project/References geprüft und verfügbar sein.
'----------------------------------------------
 
'----------------------------------------------
' Deklaration von Objekten und Start von FileMaker
'----------------------------------------------
 
' Deklarieren von Objektvariablen
Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document
' Starten von FileMaker
Set FMApp = CreateObject("FMPRO.Application")
 
' Documents-Objekt festlegen
Set FMDocs = FMApp.Documents
 
' FileMaker einblenden (beim Start von Automation ist
' FileMaker standardmäßig ausgeblendet.)
FMApp.Visible = True
 
'----------------------------------------------
' Abfragen geöffneter Dokumente
'----------------------------------------------
 
'Prüfen der Anzahl geöffneter Dokumente
If FMDocs.Count = 0 Then
Debug.Print "Keine Dokumente geöffnet"
Sonst
Debug.Print "Anzahl geöffneter Dokumente:"; FMDocs.Count
Ende (wenn)
 
'--------------------------------------------------
' Öffnen einer FileMaker-Datenbank und Ausführen eines Scripts
'--------------------------------------------------
 
' Hinweis: Die FileMaker-Datei "c:\testing.fmp12" muss mit dem Script
' "Erstes Script" verfügbar sein, damit die folgende Anweisung
' ausführbar ist.
Dim myOpenFile As Object ' Hinweis: kann auch deklariert werden als
FMPro70Lib.Document
 
Set myOpenFile = FMDocs.Open("c:\testen.fmp12", "","")
myOpenFile.DoFMScript ("Erstes Script")
 
'--------------------------------------------------
' Abfragen des aktiven Dokuments
'--------------------------------------------------
 
Set FMActiveDoc = FMDocs.Active
 
' Anzeigen des Namens des aktiven Dokuments
Debug.Print "Die aktive Datei ist "; FMActiveDoc.FullName
 
'--------------------------------------------------
' Enumeration und Schließen von Dokumenten
'--------------------------------------------------
 
Dim TempToc As Object
 
If FMDocs.Count = 0 Then
 
For Each TempDoc In FMDocs
Debug.Print "Dokument wird geschlossen: "; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Nächste(r)
Ende (wenn)
'----------------------------------------------
' Bereinigen und Beenden
'----------------------------------------------
Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing
 
' FileMaker beenden und Variablen freigeben
' (Hinweis: Application-Variable nach dem Beenden immer auf Nothing setzen.)
FMApp.Quit
Set FMApp = Nothing
End Sub
Weiterführende Themen 
Verwenden von ActiveX Automation in FileMaker Pro (Windows)
ActiveX Automation-Objekte, Methoden und Eigenschaften (Windows)