會呼吸就會的巨集錄製範例(5)

fang9595

因上回已將資料型態宣告成符合物件變數之資料型態，接著於程式區中，如下圖所示，對於使用物件將會有自動查詢下拉表單。


接著Save2上回有提到其相關內容，其內容如下：
Syntax (OLE Automation)
retval = ModelDoc2.Save2 ( silent )

Input:
(BOOL) silent
TRUE if you want to avoid error and warning dialogs, FALSE if you want the dialogs displayed to the user

Return:
(long) retval
0 for no error or a bitwise OR of the errors encountered; see swFileSaveError_e for a list of possible errors and warnings

其中Return內容說明其有回傳值(long)retval，表示可由一資料型態為Long的來接收，因此我們可將原程式碼改寫成：
原：Part.Save2 False
新：longstatus = Part.Save2(False)
longstatus即為接收儲存變數，若上述Returm說明為0或者為swFileSaveError_e

改成上述接收儲存結果，有興趣的人可透過debug與MsgBox將其印出。
改完結果如下圖


下回再說明SaveAs2的用法。