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

时间:2019-07-15 18:05:43

标签: excel vba

我正在设置一个存储库文件夹文件,该文件将包含10张TABS的工作簿。您是否知道我的一个标签丢失或被误删除了,还有另一种方法可以让我从工作簿中恢复已删除的TAB?

这是应该创建,复制标签页并在我的文件夹文件备份文件夹上设置的备份代码,但是,我也尝试在此代码中包括一种添加所有工作表的可能方式,但我不断遇到错误除工作表“ 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。

0 个答案:

没有答案