当VB中调用了EXCEL，覆盖对话框的属性的选择值的读取

Question

当VB中调用了EXCEL后，在使用电子表格的过程中设置了DisplayAlerts的属性为True,在文件保存是提示是否覆盖，
我选择后用访问什么属性能够得到提示框的选择。

Answer 1

Dim xlApp As Excel.Application
………………
xlApp.Visible = True
xlBook.SaveAs ("I:\1\gantyian.xls") 
在出现覆盖安装的提示框后，我如何得到选择覆盖安装、不覆盖安装和取消保存的返回值！！
高手快赐教啊，急急急！

Answer 2

问题自行解决我主要是通过下列方式
cd.Action = 2
  fiLe_naMe = cd.filename '设置文件保存路径
  
  '==========确定文件是否为新文件===========================================================
  Yn = Dir(fiLe_naMe) '找到文件，则返回文件名称，找不到则返回 ''
  If Yn = "" Then
    Yn_I = 0
  Else
    vbYNC = MsgBox("文件已经存在，选择是覆盖原来数据，选择否，在原表中添加新数据，或者取消数据导出", vbQuestion + vbYesNoCancel)
    If vbYNC = vbYes Then Yn_I = 0
    If vbYNC = vbNo Then Yn_I = 1
    If vbYNC = vbNo Then
      MsgBox "本次操作取消！", vbCritical
      Exit Sub
    End If
  End If
通过对文件的控制查找决定是否覆盖保存等。