「SaveAsで保存する際、上書き保存確認ダイアログで
"はい" を選択したか "いいえ" を選択したか、判断したい」
と御質問を頂きました。
SaveAsメソッドは戻り値がない為、保存前と保存後のタイムスタンプで
判断するしか方法が無いような気がします。
'vba Sub CATMain() Dim doc As Document Set doc = CATIA.ActiveDocument Dim before As Date before = GetDateLastModified(doc.FullName) '上書きでいいえの場合エラーになる為 On Error Resume Next doc.SaveAs doc.FullName On Error GoTo 0 If before = GetDateLastModified(doc.FullName) Then MsgBox "保存されていません" Else MsgBox "保存されました" End If End Sub Private Function GetDateLastModified( _ ByVal path As String) As Date Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") GetDateLastModified = fso.GetFile(path).DateLastModified End Function
色々を確認が足りないと思いますが、一応判断出来ていると思います。
過去に、マクロで保存を行うことに対しての賛否はありましたが・・・。