ActiveX 자동화 예제(Windows)
Private Sub Form_Load()

'----------------------------------------------
' Visual Basic에서 FileMaker Pro에
' 접근하기 위한 샘플 코드
'
' "FileMaker Pro 7.0 형식 라이브러리"는 Visual Basic의
' 프로젝트/참조에서 확인되고 사용 가능해야 합니다.
'----------------------------------------------
 
'----------------------------------------------
' 대상체 선언 및 FileMaker 실행하기
'----------------------------------------------
 
' 대상체 변수 선언
Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.s
Dim FMActiveDoc As FMPro70Lib.Document
' FileMaker 실행
Set FMApp = CreateObject("FMPRO.Application")
 
' 문서 대상체 설정
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 자동화 사용하기(Windows)
ActiveX 자동화 대상체, 메소드 및 속성(Windows)