Beispiel für ActiveX-Automation (Windows)' 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.Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document' FileMaker einblenden (beim Start von Automation ist
' FileMaker standardmäßig ausgeblendet.)If FMDocs.Count = 0 Then
Debug.Print "Keine Dokumente geöffnet"
Sonst
Debug.Print "Anzahl geöffneter Dokumente:"; FMDocs.Count
Ende (wenn)' Hinweis: Die FileMaker-Datei "c:\testing.fp7" 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.DocumentSet myOpenFile = FMDocs.Open("c:\testen.fp7", "")
myOpenFile.DoFMScript ("Erstes Script")Debug.Print "Dokument wird geschlossen: "; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Next
Ende (wenn)FMApp.Quit
Set FMApp = Nothing