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

----------------------------------------------
'
BeispielcodefürZugriffaufFileMaker Pro
'inVisualBasic.
'
'"FileMaker Pro7.0TypeLibrary"mussinVisual
'BasicProject/Referencesgeprüftundverfügbarsein.'
----------------------------------------------'
 
----------------------------------------------'
DeklarationvonObjektenundStartvonFileMaker'
----------------------------------------------'
 
DeklarierenvonObjektvariablen'
Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document
StartenvonFileMaker'
Set FMApp = CreateObject("FMPRO.Application")
 
Documents-Objektfestlegen'
Set FMDocs = FMApp.Documents
 
FileMakereinblenden(beimStartvonAutomationist
'FileMakerstandardmäßigausgeblendet.)'
FMApp.Visible = True
 
----------------------------------------------'
AbfragengeöffneterDokumente'
----------------------------------------------'
 
PrüfenderAnzahlgeöffneterDokumente'
If FMDocs.Count = 0 Then
Debug.Print "Keine Dokumente geöffnet"
Sonst
Debug.Print "Anzahl geöffneter Dokumente:"; FMDocs.Count
Ende (wenn)
 
--------------------------------------------------'
ÖffneneinerFileMaker-DatenbankundAusführeneinesScripts'
--------------------------------------------------'
 
Hinweis:DieFileMaker-Datei"c: esting.fmp12"mussmitdemScript
'"ErstesScript"verfügbarsein,damitdiefolgendeAnweisung
'ausführbarist.'
Dim myOpenFile As Object Hinweis:kannauchdeklariertwerdenals
'FMPro70Lib.Document
 
Set myOpenFile = FMDocs.Open("c: esten.fmp12", "","")
myOpenFile.DoFMScript ("Erstes Script")
 
--------------------------------------------------'
AbfragendesaktivenDokuments'
--------------------------------------------------'
 
Set FMActiveDoc = FMDocs.Active
 
AnzeigendesNamensdesaktivenDokuments'
Debug.Print "Die aktive Datei ist "; FMActiveDoc.FullName
 
--------------------------------------------------'
EnumerationundSchließenvonDokumenten'
--------------------------------------------------'
 
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
Next
Ende (wenn)
----------------------------------------------'
BereinigenundBeenden'
----------------------------------------------'
Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing
 
FileMakerbeendenundVariablenfreigeben'
(Hinweis:Application-VariablenachdemBeendenimmeraufNothingsetzen.)'
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)