我正在设置一个存储库文件夹文件,该文件将包含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。