时间戳

首页 > 解决方案 > 如果从备份工作簿中删除，如何从工作簿中恢复已删除的 TAB 表

excel - 如果从备份工作簿中删除，如何从工作簿中恢复已删除的 TAB 表

问题描述

我正在设置一个存储库文件夹文件，该文件将使用 10 Sheet TABS 保存我的工作簿。您是否知道我的一个选项卡是否丢失或被错误删除，还有另一种方法可以让我从工作簿中恢复已删除的选项卡？

这是应该创建，复制选项卡表并在我的文件夹文件备份文件夹上设置的备份代码，但是，我还尝试在此代码中包含添加所有工作表的可能方法，并且我不断收到所有其他工作表的错误除了工作表“TOC”

[code:]



Sub CreateWorkBooks()
Dim ws As Worksheet

    Application.ScreenUpdating = False

    For Each ws In ThisWorkbook.Worksheets

      If Left(ws.Name, 4) = "TOC" Then


          'Copy one worksheet as a new workbook
          'The new workbook becomes the ActiveWorkbook
          ws.Copy

          'Replace all formulas with values (optional)
          ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

          'Save the new workbook
          'May want (not required) to add a file name extension (.xls or 
.xlsx) to the file name
          ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
                                ws.Range("A1").Value & "Back Up_TOC" & 
ws.Range("Z400") '& ".xls"

          'Close new workbook
          ActiveWorkbook.Close SaveChanges:=False

      End If

    Next ws

    Application.ScreenUpdating = True


End Sub

我希望我的代码同时在工作簿中创建所有工作表的副本，然后在文件夹文件中创建备份文件，实际上代码仅复制 1 个标题为 TOC 的工作表，我希望包含一个恢复代码，该代码将返回任何已删除的 TABS工作簿。

标签： excelvba

解决方案

推荐阅读