SOLIDWORKS API Excel VBA #1

SOLIDWORKS API Excel VBA その1 入門編とりあえずExcel VBAでSOLIDWORKSとつなげてみる！ SOLIDWORKS API Excel連携マクロその1の復習編音声なし、、、日本語字幕でどうぞ

Sub main()

Dim swApp As SldWorks.SldWorks
Dim swDoc As ModelDoc2

On Error Resume Next

Set swApp = GetObject(, "SldWorks.Application")
If swApp Is Nothing Then Exit Sub

Range("A2") = swApp.RevisionNumber

Set swDoc = swApp.ActiveDoc
If swDoc Is Nothing Then Exit Sub

Range("A3") = swDoc.GetTitle

End Sub