Question

我已经构建了一个excel应用程序（反馈调查表格），用户输入信息然后保存并上传到数据库。一旦完成单个帐户的表单然后保存，我需要删除源工作簿中的所有单元格内容。但是当我再次打开保存的文件以检查以供以后参考时，应该保留值而不是在关闭时清除。

我能做到最好吗？现在我在表单中包含了一个关闭按钮，单击时将删除原始工作簿的内容。如何使用excel的默认关闭按钮执行此任务？

     Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Dim wb As Excel.Workbook
     Set wb = ThisWorkbook

   On Error GoTo NoBlanks
     ActiveSheet.Range("A1").ClearContents
     ActiveSheet.Range("D3:D8").ClearContents
     ActiveSheet.Range("D12:E12").SpecialCells(xlConstants).ClearContents
     ActiveSheet.Range("D16:F19").ClearContents
     ActiveSheet.Range("D26:F29").ClearContents
     ThisWorkbook.Sheets("Data_upload").Range("D39:D41").ClearContents
     ActiveSheet.Range("A1").ClearContents

  NoBlanks:
      Resume Next

    wb.Close (True)
     wb.save


     End Sub

关闭之前删除源工作簿的内容

0 个答案: