Excel刷新并保存，无任何提示

Question

我有以下代码来打开和刷新Excel文件，然后保存，除了我拥有的几个具有Before_Close事件（对工作表进行了一些更改）的文件之外，此工作正常。

当我在这些工作簿上使用VB Net代码时，它会提示并询问我是否确定要在关闭时保存更改。

我有类似的代码可以执行相同的操作，但是可以通过Excel文件中的VBA进行操作，但是我没有得到提示，它只是保存和覆盖，我可以使用VB网络代码来阻止此操作。

  Dim XLApp As Object
  Dim WBook As WorkBook

  XLApp = CreateObject("Excel.Application")
  XLApp.Visible = False
  XLApp.DisplayAlerts = False 

  WBook = XLApp.workbooks.Open("Y:\Test.xlsb")
  WBook.Refreshall()
  WBook.Save()
  WBook.Close()

  XLApp.Quit()

  WBook = Nothing
  XLApp = Nothing

干杯

Answer 1

我似乎有一个修复程序，但是需要修改excel文件本身，这并不理想。

由于我的一份报告需要在工作表关闭时进行修改，以准备下一次打开，因此，如果确定要保存，此解决方法似乎会使它无法再次提出要求。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

   If Not Me.Saved Then   
      Call sbWritePivotWhenClosing
      Me.Save
      Me.Saved = True       
    Else  
     Call sbWritePivotWhenClosing
     Me.Saved = True
    End If
  End Sub