ActiveX Automation 示例 (Windows)
Private Sub Form_Load()

'----------------------------------------------
' 以 Visual Basic 形式访问 FileMaker Pro
' 的示例代码。
'
' "必须在 Visual Basic 的项目/引用中检查
' “FileMaker Pro 7.0 类型库”，且必须可用。
'----------------------------------------------
 
'----------------------------------------------
' 声明对象并启动 FileMaker
'----------------------------------------------
 
' 声明对象变量
Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document
' 启动 FileMaker
Set FMApp = CreateObject("FMPRO.Application")
 
' 设置 document 对象
Set FMDocs = FMApp.Documents
 
' 使 FileMaker 可见（从自动化启动时，
' 默认情况下，FileMaker 会保持隐藏。）
FMApp.Visible = True
 
'----------------------------------------------
' 查询打开的文档
'----------------------------------------------
 
'检查打开文档计数
If FMDocs.Count = 0 Then
Debug.Print "无开启的文档"
Else
Debug.Print "已开启文档的计数为:"; FMDocs.Count
End If
 
'--------------------------------------------------
' 打开 FileMaker 数据库并运行脚本
'--------------------------------------------------
 
' 注释：FileMaker 文件“c:\testing.fmp12”必须可用于
' 名为“第一个脚本”的脚本，以便下列代码
' 正确执行。
Dim myOpenFile As Object ' 注释：也可以声明为
FMPro70Lib.Document
 
Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")
myOpenFile.DoFMScript ("第一个脚本")
 
'--------------------------------------------------
' 查询活动文档
'--------------------------------------------------
 
Set FMActiveDoc = FMDocs.Active
 
' 显示活动文档的名称
Debug.Print "活动文件为 "; FMActiveDoc.FullName
 
'--------------------------------------------------
' 枚举并关闭文档
'--------------------------------------------------
 
Dim TempToc As Object
 
If FMDocs.Count > 0 Then
 
For Each TempDoc In FMDocs
Debug.Print "即将关闭文档:"; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Next
End If
'----------------------------------------------
' 清理并退出
'----------------------------------------------
Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing
 
' 退出 FileMaker 并释放变量
'（注释：退出后始终将应用程序变量设置为 Nothing。）
FMApp.Quit
Set FMApp = Nothing
End Sub
相关主题 
使用 FileMaker Pro ActiveX Automation (Windows)
ActiveX Automation 对象、方法和属性 (Windows)