关于 Workbook_BeforeSave 用法 求高手指点

erfu

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     Dim NowWorkbook As Workbook
     Dim FileName$
     p_path = "H:\tmp"
     p_file = "test"
  If SaveAsUI Then  
       FileName = Application.GetSaveAsFilename(InitialFileName:=p_path & p_file, filefilter:="Xls File,*.xls")
        Cancel = True
        If FileName <> "False" Then
        ThisWorkbook.SaveAs FileName
       End If
  End If
  If Not fs.fileExists(p_path & p_file & ".xls") Then
       ThisWorkbook.SaveAs FileName:=p_path & p_file & ".xls"  '''###  如果文件不存在保存， 会不会保存两次？
  Else
       ActiveWorkbook.save    '''### 同样 如果文件 存在保存， 会不会保存两次？
  End If
End Sub

  求解惑？？？？？？？

erfu

当我选保存 文件时 提示我 “Microsoft excel has stopped working"
关闭文件， 非常奇怪

可是当我先选另存 然后弹出对话框， 保存文件， 我再 接着选保存选项 又没有问题， 不知到问题是不是和上面有关系。

erfu

Else
     msgbox "test times"  ' ' ###### 我测试保存时 弹出来两次
        ActiveWorkbook.save    '''### 同样 如果文件 存在保存， 会不会保存两次？
  End If
有大神帮忙吗？？？？

erfu

问题已解决。

Ride_Wind

请问怎么解决的？